如何编程绘制领花

时间:2024-11-11 04:18:49

1、启动vb6.0,执行ctrl+n组合键新建工程,在弹出的新建工程对话框中,新建一个标准的exe文件。

如何编程绘制领花

2、拖拽窗体周围正方形调整窗体的大小,修改caption属性值为“领花效果”,修改startupposition属性值为“屏幕中心”,修改boderstyle属性值为“4-fiexd”。

如何编程绘制领花

3、在窗体上创建picturebox控件,并调整其位置和大小,使其和窗体的布局一致,尽可能的美观。

如何编程绘制领花

4、接着在picturebox控件上面创建标签控件,修改其caption属性值为“领花效果”,并修改font属性。

如何编程绘制领花

5、在picturebox控件上面创建两个按钮控件,一个是commmand1一个commmand2,修改commmand的caption属性值为“绘图”,修改commmand2的caption属性值为“退出”,并调整他们的位置。

如何编程绘制领花

6、双击commmand1控件,进入代码区域,在代码区域中对象要选择commmand1,过程选择click。不能选错。

如何编程绘制领花

7、接着输入代码内容:Dim i, r, x, 鲻戟缒男y As SinglePicture1.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 i = -14.5 * 3.1415926 To 14.5 * 3.1415926 Step 0.005r = 2 + 8 * Cos(5 * i)x = r * Cos(i * 1.113)y = r * Sin(i * 1.1133)Picture1.PSet (x, y), RGB(255, 0, 0)Next i

如何编程绘制领花

8、接着点击工具栏中的运行按钮,进行编译连接,编译的时候出现了变量未定义的错误,主要原因是i没有进行声明就使用了,纠正过来。

如何编程绘制领花

9、再次点击运行按钮进行编译又一次出现了错误,错误提示为缺少表达式,原因是由于保留字书写错误,进行纠正过来。不断的进行调试直至无误为止。

如何编程绘制领花

10、双击commmand2在代码区域输入代码end,再次进行启动调试,程序运行通过。

如何编程绘制领花

11、在窗体点击绘图按钮,程序就会自动展示绘图的过程,如果要慢一点展示的话,可以把步长设置小一点。

如何编程绘制领花

12、执行文件-工程存储为命令,选择一个合适的位置,依次把工程和窗体进行保存即可。

如何编程绘制领花
© 手抄报圈