如何利用vb绘制小蜜蜂图案
的有关信息介绍如下:我们知道计算机程序不但可以设计一些疑难问题的求解方法,还可以利用它绘制一些优美的图案,不过要绘制优美的图案还必须有足够的数学基础才行,因为它要结合数学中的函数问题,今天小编在这里就跟大家交流一下利用vb程序开发小蜜蜂图案的问题,现在就把它的绘制过程跟大家做一汇报,仅供参考。
启动vb6.0,打开vb程序后,执行文件-新建工程命令,在打开的窗口中选择标准exe选项,双击该选项进行打开进入窗体界面。
调节窗体的大小,选择该窗体修改startupposition属性值为2-屏幕中心,同时修改borderstyle属性值为0-none。
在工具箱里双击picturebox控件,在窗体上出现一个picturebox1控件,调整其大小和位置。使其充满整个窗体,并把整个窗体全部覆盖。
从工具箱里拖拽两个按钮到picturebox1上面,调整按钮的大小和位置,选择commmand1修改caption属性为绘图,修改commmand2修改caption属性值为退出。
双击commmand1进行代码编程区域,书写commmand1的点击事件过程,接着输入代码,代码的功能是定义区域,并且要画出坐标轴。代码如下:
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.125, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(0.125, 9.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, 0.125), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.125), RGB(0, 0, 255)
接着要继续编写代码,代码要完成绘图功能,绘制这样一个图案需要不断描点,尽量使点的数量足够多,这样就连接成线了,所有必须使用for语句,代码如下
For t = -360 To 360 Step 0.001
x = 2 * (Cos(t * 360) + Cos(3 * t * 360))
y = 2 * (Sin(t * 360) + Sin(5 * t * 360))
Picture1.PSet (x, y)
Next t
在编写程序的同时还要不断的进行调试,以便发现错误及时进行纠正,点击运行按钮,查看程序运行情况。
根据错误提示修改错误,上面错误的原因是变量未定义,在vb中变量要遵循先定义后使用的原则,不然的话就会出现类似的错误,及时纠正可以避免错误数的累加。对于使用中的变量进行定义。
点击运行按钮进行编译运行,如果没有错误的话,程序会通过出现窗口界面。
现在还有另外一个按钮没有处理,双击退出按钮,进入代码区域,对象中选择commmand2,过程中选择click事件,然后输入 end代码即可,此代码就一句但是它的功能很强大,那就是退出应用程序。
再次点击运行按钮进行功能测试,不断进行调试直至没有错误通过为止,这样绘制小蜜蜂就大功告成了。
执行文件-保存工程命令,在弹出的窗口中输入名称为小蜜蜂图案,找到一个合适的位置点击保存,程序会有提示先保存工程然后再保存窗体,缺一不可,不然再次打开程序时就不能正确运行。