用VB绘制抛物线动画曲线

发表于:2007-06-17来源:作者:点击数: 标签:
用 VB 绘制抛物线动画曲线 绘制动画曲线是编程人员感兴趣的问题之一,下面笔者将向大家详细介绍绘制抛物线的全过程。 首先,启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为抛物线和结束。 双击Co

   
  用VB绘制抛物线动画曲线

  绘制动画曲线是编程人员感兴趣的问题之一,下面笔者将向大家详细介绍绘制抛物线的全过程。

  首先,启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为抛物线和结束。

  双击Command1,打开代码编辑器窗口,相应事件的代码如下:

  通用声明模块:

  Const pi = 3.14159

  Dim a

  Private Sub Command2_Click()  注释:画抛物线

    注释:首先清除picture1内的图形

    Picture1.Cls

    注释:Scale方法设定用户坐标系,坐标原点在Picture1中心

    Picture1.ScaleMode = 0

    Picture1.ScaleMode = 3

    Picture1.Scale (-20, 20)-(20, -20)

    注释:设置绘线宽度

    Picture1.DrawWidth = 1

    注释:绘坐标系的X轴及箭头线

    Picture1.Line (-20, 0)-(20, 0), vbBlue

    Picture1.Line (18, 1)-(20, 0), vbBlue

    Picture1.Line -(18, -1), vbBlue

    Picture1.ForeColor = vbBlue

    Picture1.Print "X"

    注释:绘坐标系的Y轴及箭头线

    Picture1.Line (0, 20)-(0, -20), vbBlue

    Picture1.Line (1, 18)-(0, 20), vbBlue

    Picture1.Line -(-1, 18), vbBlue

    Picture1.Print "Y"

    注释:指定位置显示原点O

    Picture1.CurrentX = 1

    Picture1.CurrentY = -1

    Picture1.Print "O"

    注释:重设绘线宽度

    Picture1.DrawWidth = 2

    注释:用For循环绘点,使其按抛物线规律变化。步长值很小,使之形成动画效果

    For a = -10 To 10 Step pi / 6000

      Picture1.PSet (a, a ^ 2 / 5), vbRed

    Next a

    注释:指定位置显示描述文字

    Picture1.CurrentX = pi / 2

    Picture1.CurrentY = -7

    Picture1.ForeColor = vbBlack

    Picture1.Print "抛物线示意"

  End Sub

  Private Sub Command3_Click()  注释:运行结果如图1

  图1

    Unload Me

  End Sub

  以上程序代码在VB6.0,Windows 98中调试通过。

原文转自:http://www.ltesting.net