VFP 愛用者社區

sunghsia · 註冊時間: 2003-06-13 文章: 52 來自: 台北 第 1 樓

*拷備至: 表單的Activate 事件裏

this.circle (100,100,100)
this.circle (70,100,100)

for a=0 to 330 step 30
x1=100 + (100 * sin(a*0.01745))
y1=100 + (100 * -cos(a*0.01745))
x2=100 + (100 * sin((a+30)*0.01745))
y2=100 + (100 * -cos((a+30)*0.01745))
this.line(x1,y1 , x2,y2)

b=a-15
x3=100+(70*sin(b*0.01745))
y3=100+(70*-cos(b*0.01745))
x4=100+(70*sin((b+30)*0.01745))
y4=100+(70*-cos((b+30)*0.01745))
this.line(x3,y3 , x4,y4)

this.line(x1,y1 , x3,y3)
this.line(x1,y1 , x4,y4)
endfor