?? 實(shí)例75.餅形圖統(tǒng)計(jì).html
字號(hào):
<style>td {font-size:13px;}</style><SCRIPT language="JavaScript"><!--function drawc(a,b,c,d,e){var i,n;var w=200,h=160; // 設(shè)置控件的寬和高var arrData=new Array(a,b,c,d,e); // 設(shè)置餅圖的數(shù)據(jù)document.write('<OBJECT ID="DAControl" onerror=alert("您的系統(tǒng)未安裝DirectX") style="WIDTH='+w+';HEIGHT='+h+';border:0 solid black" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"></OBJECT>'); // 畫出DAControlvar m=DAControl.PixelLibrary;var arrCol=new Array(m.Red, m.Green, m.Blue, m.Aqua, m.Fuchsia, m.Gray,m.Lime, m.Maroon, m.Navy, m.Olive, m.Purple, m.Silver, m.Teal, m.Cyan, m.Magenta, m.Yellow, m.Black, m.White);//設(shè)置顏色數(shù)組var iSum=0;for(i=0;i<arrData.length;i++)iSum+=arrData[i]; // 求出各數(shù)據(jù)的累加和var ds=m.NewDrawingSurface();var iFrom=0,iTo=0;var iMax=4; // 設(shè)置重畫次數(shù)var px=0,py=6; // 設(shè)置x,y軸的傾斜度for(n=0;n<=iMax;n+=0.5) // 重畫可產(chǎn)生立體感for(i=0;i<arrData.length;i++){ds.FillColor(arrCol[i]); // 設(shè)置填充顏色ds.BorderColor(arrCol[i]); // 設(shè)置邊框顏色iTo+=arrData[i]; // 設(shè)置終止地點(diǎn)相關(guān)系數(shù)ds.PieDegrees(-w/2+n*px,-h/2+(iMax-n)*py,iFrom/iSum*360,iTo/iSum*360,w-iMax*px,h-iMax*py); // 畫小塊餅圖iFrom=iTo; // 設(shè)置下一個(gè)數(shù)據(jù)初始位置相關(guān)系數(shù)}DAControl.Image=ds.Image; // 設(shè)置DAControl的圖形ds.Image.Transform(m.Rotate2Rate(3)) DAControl.Start(); // 執(zhí)行}//--></script><TABLE width="400" align=center border=0 cellspacing=0 cellpadding=0><TR><TD><p> 成績餅形圖</p><FONT color=Fuchsia>■</FONT>不及格人數(shù):8人<BR><FONT color=Aqua>■</FONT>60-69分:21<BR><FONT color=Blue>■</FONT>70-79分:13人<BR><FONT color=Green>■</FONT>80-89分:14人<BR><FONT color=Red>■</FONT>90-100分:5人<BR> 總?cè)藬?shù):61人</TD><TD><SCRIPT language="JavaScript"><!--drawc(8,21,13,14,5)//--></script></TD></TR></TABLE>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -