加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

如何用VB函数画圆

(2012-07-18 23:16:33)
标签:

按键精灵

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)

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有