当前位置:系统粉 >  系统教程 > 电脑软件教程 >  怎样利用vb绘制双曲螺线 利用vb绘制双曲螺线的方法

怎样利用vb绘制双曲螺线 利用vb绘制双曲螺线的方法

时间:2017-07-04 来源:互联网 浏览量:

今天给大家带来怎样利用vb绘制双曲螺线,利用vb绘制双曲螺线的方法,让您轻松解决问题。

利用编程绘制数学图案,一方面绘制比较精准,另一方面又比较美观,现在就给大家介绍绘制双曲螺线的方法步骤,同时分享制作的截图,希望对你有所帮助。

具体方法如下:

1

首先启动vb6.0,执行ctrl+n组合键,在弹出的新建工程对话框中选择标准exe文件,点击确定按钮,进入窗体。

2

拖拽窗体周边的正方形调整窗体的大小,设置其caption属性值为双曲螺线,修改其backcolor属性值为滤色。

3

接着双击窗体进入代码编辑区域,在该区域中对象选择form1,过程事件选择click,一定要仔细查看是否为click,往往双击后进入的是窗体的load事件。

4

接着在代码区域输入创建直角坐标系的代码,颜色设置为白色,代码如下“”

Scale (-200, 200)-(200, -200)

Line (-195, 0)-(195, 0), RGB(255, 255, 255)

Line (0, 195)-(0, -195), RGB(255, 255, 255)

Line (195, 0)-(190, 3), RGB(255, 255, 255)

Line (195, 0)-(190, -3), RGB(255, 255, 255)

Line (0, 195)-(-3, 190), RGB(255, 255, 255)

Line (0, 195)-(3, 190), RGB(255, 255, 255)

CurrentX = 192: CurrentY = 10: Print "x", RGB(255, 255, 255)

CurrentX = 6: CurrentY = 195: Print "y", RGB(255, 255, 255)

点击运行进行调整直至出现正确的坐标系为止。

5

接下来就是输入绘制双曲螺线的代码,并通过代码设置颜色为蓝色,代码如下:

Dim i As Single

i = 199.99

   For l = 0.01 To i Step 0.001

        X = i / l * Cos(l)

        Y = i / l * Sin(l)

        PSet (X, Y), RGB(0, 0, 255)

    Next

6

点击工具栏里的运行按钮,根据错误提示纠正错误,提示信息为缺少语句结束,那是因为语句输入有误,检查for语句的书写和语法结构是否有误。

7

再次点击运行按钮,对整个程序进行编译调试,直至出现正确的结果为止,修改变量i的值可以改变图像的大小,修改rgb参数可以改变颜色。

8

执行文件-生成工程命令,在弹出的对话框中输入名称为“双曲螺线”,保存在桌面上即可。

9

接着执行文件-工程另存为命令,根据提示首先要保存form1,接着会继续弹出对话框让我们保存工程,将需要的文件依次保存即可。

10

这样就完成了双曲螺线的绘制,在桌面上你会看到“双曲螺线.exe”文件,双击该文件查看效果,同时该文件可以实现跨平台打开。

以上就是怎样利用vb绘制双曲螺线,利用vb绘制双曲螺线的方法教程,希望本文中能帮您解决问题。

我要分享:
版权信息

Copyright @ 2011 系统粉 版权声明 最新发布内容 网站导航