如何做象罗盘形的统计图.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 9 行

这个问题实际上需要的是三角知识。如果把圆n等分，则以圆心为坐标，则每个圆和直线交点的坐标为（R * cos(2*pi/n*i), R * sin(2*pi/n*i)）。下面就是一个简单的例子： 
     r = ScaleWidth / 3 
     Circle (1.2 * r, 1.2 * r), r 
     Circle (1.2 * r, 1.2 * r), r / 2 
     For i = 1 To 7 
     alpha = 2 * 3.1415926 / 7 * i 
     Line (r * (1.2 + 0.5 * Cos(alpha)), r * (1.2 + 0.5 * Sin(alpha)))-(r * (1.2 + Cos(alpha)), r * (1.2 + Sin(alpha))) 
     Next 
<END>