37 刘万斌
用VB 6.0绘制物理图像
陕西省勉县职业教育中心 刘万斌
进入21世纪以来，随着信息技术的不断发展和现代多媒体技术的发展，多媒体技术在教学中的运用日益广泛，广大教师非常重视使用多媒体辅助教学手段，原因在于多媒体不仅丰富了教学手段，增加了教学信息传递的方式、方法，也提高了教育教学的效率。但是许多教师由于计算机知识掌握的不全面，在教学中使用的课件多数不是自己制作的，是从网上下载的，使用过程觉得不是很完美。在这里我简单地介绍用VB 6.0绘制波形图象的方法。这样物理教师就可以自己绘制简单的波形图象。以绘制Y=Cosx在（-4∏,4∏）既（-10.56,10.56）上的图象为例。步骤如下：
第一步：打开VB 6.0，在VB 6.0窗口中的“新建工程”中选择“新建”中的“标准 EXE”中选中打开，在右面出现的“工程1”中将“属性—Form1”里“caption”的“Form1”改成“波形图象”。因为在VB6.0中默认的新建工程的名称为“Form1”,改成中文名称为“波形图象”，对物理教师来说以后的使用一目了然。
第二步：使用“Commandbutton”按键。在左面的工具箱中鼠标单击“Commandbutton”按键，拖拽到已改名为“波形图象”的窗体中的适当位置，在此窗体中出现一个名为“Command1” 按键,。同样在右面出现的“工程1”中将“属性—Command1”里“caption”的“Command1”改成“绘图”。双击此按键，出现工程1—Form1(code)代码窗口。在Private Sub Command1_Click() 和End Sub输入代码，整个代码如下：
Private Sub Command1_Click() '确定按钮单击事件
Dim x, y As Single '定义x,y两个变量
Form1.Scale (-10.56, 2)-(10.56, -2) 定义坐标系
Form1.Line (-10.56, 0)-(10.56, 0), RGB(0, 0, 255) 画横坐标轴，颜色为蓝色
Form1.Line (0, 2)-(0, -2), RGB(0, 0, 255) 画纵坐标轴，颜色为蓝色
For x = -10 To 10 Step 0.0001 'x值从-10变化到10，每次增量为0.0001
y = cos(x) '根据表达式y=cosx来计算y值
Form1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点
Next x '取下一个增量后的x值
End Sub '结束程序
注意事项：代码中的汉字是解释代码的意思，不输入。
第三步： 运行代码。整个代码输入无误后，单击菜单栏中的“运行”中的“启动”。这一步可以检验代码是否出错。运行无误后关闭代码窗口。
第四步：保存。单击菜单栏中的“文件”，在下拉菜单中选择“生成工程1 .exe(k)”。在生成工程窗口中选择适当的保存位置，例如保存在“我的文档”中，并将文件名改成波形图象，单击确定按键。关闭VB6.0。这样我们以后给学生讲波形图象时就可使用保存在“我的文档”中波形图象，通过生动的绘图过程，让学生记忆深刻。
对于高中物理中出现的其他波形图象我们只需将上述代码中的第三句Form1.Scale括号中的值根据波形值的范围修改，再将第七句波形名称修改。以在VB中画y=x2图象为例，修改后代码如下：
Private Sub Command1_Click()
Dim x, y As Single
Form1.Scale (-10, 25)-(10, -25)
Form1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Form1.Line (0, 25)-(0, -25), RGB(0, 0, 255)
For x = -10 To 10 Step 0.0001
y = x ^ 2
Form1.PSet (x, y), RGB(255, 0, 0) '
Next x
End Sub
绘图思路是利用物理课中学过的“描点法”手工绘制图波形图象的一般过程：第一步，准备好绘图工具。第二步，绘制坐标系的横轴与纵轴。第三步，依据要绘制的波形表达式的一组自变量计算出对应的因变量，得到一组坐标点。第三步，在坐标系上描出这一组点，用光滑地描点连线。借鉴此思路，用计算机编程绘制波形图象的过程是：第一步，选择计算机程序设计语言如VB6.0。第二步，绘制坐标系。第三步，根据波形表达式计算所要描点的坐标。第四步，在坐标系中描点成像。
通过这种方法，我们可以得到各种物理波形图象。
