偶看新闻燃气 警报 家用 牌子:用VB实现实时曲线的绘制和保存--VB-程序设计-计算机学习网-育龙网
来源：百度文库 编辑：偶看新闻 时间：2024/05/03 04:55:20
在VB中绘制实时曲线是比较难的，一般要应用第三方控件或是Windows API函数来完成，但是如果你对实时曲线的要求不是很高，只要能表示出当前的一般情况的话，我们可以直接应用VB提供给我们的空间来完成。
原则上讲，直接在Form里绘制曲线都是可以的，MSDN上面很多例程就是直接在Form里面绘制图形的，Form作为绘制图形的容器，不过一般应用中Form中不可避免的会有很多其他控件，所以我们选择PictureBox作为绘制曲线的容器。
实时曲线的绘制一般借助于Timer控件来完成，使用Timer控件，定期将串口或是其他仪器中监测到的送往PictureBox1，而曲线的绘制一般画成折线图，采用PictureBox1的Line方法绘制.具体实现如下:
1.选择需要显示的窗体Picture1，加入图片框Picture1，根据实际需要设置图片的大小并移到合适的位置，并在图片的外面画好量程时间坐标系；然后加上Timer控件以及两个CommandButton，界面就基本设置好了。
2.建立坐标系，根据Picture1的大小和高度设置画出坐标系的X轴和Y轴:
Picture1.Refresh Picture1.CurrentX = Picture1.ScaleLeft +100 Picture1.CurrentY = Picture1.ScaleTop Picture1.Print Picture1.ScaleHeight100 Picture1.Line- Picture1.CurrentX = Picture1.ScaleLeft +100 Picture1.CurrentY = Picture1.ScaleHeight Picture1.Print Picture1.Line - Picture1.CurrentX = Picture1.ScaleWidth Picture1.CurrentY = Picture1.ScaleHeight Picture1.Print Picture1.ScaleWidth-100 Picture1.AutoRedraw = True 必要时，用存储在内存中的图象进行重绘Picture1 .ScaleMode = 1 以VB的基本单位作为建立坐标轴以及绘制图形的单位;
3.绘制曲线并保存，我们这里以正弦曲线作为绘制曲线的，具体应用是可以采用由串口或其他仪器采集得到的.首先我们绘制一条中线，然后在Timer控件的Time事件中绘制曲线:
Private Sub Timer1_Timer Dim y1 As Integer y1 = CInt / 20 / 180 * pi) * Picture1.ScaleHeight / 2) y1 = CInt / 2)y1 Picture1.Line - x = x + 20 y = y1 If x 保存图画，可以根据实际需要命名图片 x = 0 y = Picture1.ScaleHeight / 2 Picture1.Cls 清屏重画 End If End SubPicture1.Line )-) 绘制中线