WebBuild

饼图代码

作者:parno 日期:2006-08-15

字体大小: 小中大

HTML代码

document.write('<OBJECT ID="DAControl'+count+'" style="WIDTH='+w+';HEIGHT='+h+';border:0 solid black" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"></OBJECT>');//画出DAControl
 eval("var DAControl=DAControl"+count)
 var 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);//设置颜色数组
 var iSum=0;for(i=0;i<arrData.length;i++)iSum+=arrData[i];//求出各数据的累加和
 var ds=m.NewDrawingSurface();
 var iFrom=0,iTo=0;
 var iMax=4;//设置重画次数
 var px=0,py=4;//设置x,y轴的倾斜度
 for(n=0;n<=iMax;n+=0.5)//重画可产生立体感
 for(i=0;i<arrData.length;i++){
 ds.FillColor(arrCol[i]);//设置填充颜色
 ds.BorderColor(arrCol[i]);//设置边框颜色
 iTo+=arrData[i];//设置终止地点相关系数
 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;//设置下一个数据初始位置相关系数
 }
 DAControl.Image=ds.Image;//设置DAControl的图形
 DAControl.Start();//执行
}
</script>

<TABLE width="100%" border=1 cellspacing=0 cellpadding=0>
<TR><TD>第一章</TD><TD>■不及格人数：1人 ■60-69分：1 ■70-79分：1人 ■80-89分：1人 ■90-100分：1人 </TD><TD><script>drawcake(1,1,1,1,1,1)</script></TD></TR>
<TR><TD>第二章</TD><TD>■不及格人数：1人 ■60-69分：1 ■70-79分：1人 ■80-89分：1人 ■90-100分：3人 </TD><TD><script>drawcake(3,1,1,1,1,2)</script></TD></TR>
<TR><TD>第三章</TD><TD>■不及格人数：1人 ■60-69分：1 ■70-79分：2人 ■80-89分：2人 ■90-100分：1人 </TD><TD><script>drawcake(1,2,2,1,1,3)</script></TD></TR>
<TR><TD>第四章</TD><TD>■不及格人数：3人 ■60-69分：2 ■70-79分：1人 ■80-89分：2人 ■90-100分：3人 </TD><TD><script>drawcake(3,2,1,2,3,4)</script></TD></TR>
<TR><TD>第五章</TD><TD>■不及格人数：2人 ■60-69分：1 ■70-79分：2人 ■80-89分：1人 ■90-100分：2人 </TD><TD><script>drawcake(2,1,2,1,2,5)</script></TD></TR>
</TABLE>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]