多语言展示
当前在线:896今日阅读:176今日分享:34

星形线编程实现方法

利用vb6.0编程实现数学上的各种图案效果,其实主要使用的就是描点法,现在就把利用vb6实现的星形线的过程和截图分享给大家,希望对你有所帮助。
方法/步骤
1

首先启动vb6.0,执行文件-新建命令,在弹出的新建工程对话框中选择标准exe文件,点击打开按钮。

2

进入窗体窗口,调整窗口的大小,修改窗体的caption属性值为“星形线”,修改borderstyle属性值为“5-fixed”。

3

双击工具箱里的picturebox控件,在窗体上创建一个picturebox1控件,调整其大小,使其布局更加美观。

4

在工具箱里双击command控件两次,在picturebox1上创建command1、command2控件。

5

分别修改command1、command2的caption属性值为“绘图”,“退出”,调整他们的位置。

6

双击command1按钮进入其代码区域,选择对象为command1,过程选择click事件。

7

接着输入代码,首先要绘制平面二维坐标系,输入代码如下: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)并进行调试运行。

8

接下来绘制图案,输入代码: For t = 0 To 360 Step 0.01x = 5 * (Cos(t * 360)) ^ 3y = 5 * (Sin(t * 360)) ^ 3Picture1.PSet (x, y) Next t并进行运行调试,根据错误提示进行纠正错误。错误的主要原因是漏掉了乘号。

9

继续修改调试,点击工具栏里的运行按钮进行调整,直至无误为止,查看效果。接着在command2代码区域输入end。

10

执行文件-生成工程exe文件,将文件生成可执行文件,这样就可以跨平台运行操作了。

11

执行文件-工程另存为命令,在弹出的对话框中依次保存窗体文件和工程文件即可。

推荐信息