如何用VB函数画圆

标签:
按键精灵vb编程画圆函数杂谈 |
此贴是摘自于按键精灵论坛“乱闯”的帖子,乱闯是我在按键论坛认识的好兄弟,在编程上和生活中一直都互相帮忙。
缘于本人实际的工作中多次用到类似思想,收此贴于博客方便自己浏览,也方便其他用的到的兄弟借鉴。
原帖地址:http://bbs.anjian.com/thread-155938-1-1.html
没事研究画圈
x=350 //圆心坐标
y=350
r=200//半径
MoveTo x,y
LeftClick 1
For i=0.01 to 6 step 0.05 //注意这里的是弧度不是角度
ab= r* sin(i)
ac=r*cos(i)
MoveTo x+ab,y-ac
LeftClick 1
next
上边的代码画的图 弧度步进不一样的效果
http://bbs.anjian.com/forum.php?mod=attachment&aid=NDE2NjJ8YmVkYWM1NTR8MTM0MjYyNDUzNnw2MjYyNDV8MTU1OTM4&noupdate=yes
2010-9-8 01:37 上传
下载附件 (16.74
KB)画N个圈
x=350
y=350
For j=1 to 100 step 10
MoveTo x,y
LeftClick 1
For i=0.01 to 6 step 0.05
ab= j* sin(i)
ac=j*cos(i)
MoveTo x+ab,y-ac
LeftClick 1
next
Next
效果图
http://bbs.anjian.com/forum.php?mod=attachment&aid=NDE2NjN8NDYxZmExMDh8MTM0MjYyNDUzNnw2MjYyNDV8MTU1OTM4&noupdate=yes
2010-9-8 01:37 上传
下载附件 (24.65
KB)x=350
y=350
For j=1 to 100 step 10
MoveTo x,y
LeftClick 1
For i=0.01 to 6+ (j/10) step 0.05 //弧度增加 这样就可以画完整了
ab= j* sin(i)
ac=j*cos(i)
MoveTo x+ab,y-ac
LeftClick 1
next
Next
http://bbs.anjian.com/forum.php?mod=attachment&aid=NDE2NjR8YzJkNTA0OTV8MTM0MjYyNDUzNnw2MjYyNDV8MTU1OTM4&noupdate=yes
2010-9-8 01:37 上传
下载附件 (24.33
KB)还有就是画螺旋线
x=350
y=350
r=1
MoveTo x,y
LeftClick 1
For i=0.01 to 600 step 0.05
r=r+0.1
ab= r* sin(i)
ac=r*cos(i)
MoveTo x+ab,y-ac
LeftClick 1
next
http://bbs.anjian.com/forum.php?mod=attachment&aid=NDE2NjF8MmIxNjMwN2F8MTM0MjYyNDUzNnw2MjYyNDV8MTU1OTM4&noupdate=yes
2010-9-8 01:37 上传
下载附件 (83.13
KB)