用VB实现实时曲线的绘制和保存r
作者：HASH更新时间：20050503r
r
　　在VB中绘制实时曲线是比较难的，一般要应用第三方控件或是Wi
dowsAPI函数来完成，但是如果你对实时曲线的要求不是很高，只要能表示出当前的一般情况的话，我们可以直接应用VB提供给我们的空间来完成。r
r
　　原则上讲，直接在Form里绘制曲线都是可以的，MSDN上面很多例程就是直接在Form里面绘制图形的，Form作为绘制图形的容器，不过一般应用中Form中不可避免的会有很多其他控件，所以我们选择PictureBox作为绘制曲线的容器。r
r
　　实时曲线的绘制一般借助于Timer控件来完成，使用Timer控件，定期将串口或是其他仪器中监测到的数据送往PictureBox1，而曲线的绘制一般画成折线图，采用PictureBox1的Li
e方法绘制具体实现如下r
r
　　1选择需要显示的窗体Picture1，加入图片框Picture1，根据实际需要设置图片的大小并移到合适的位置，并在图片的外面画好量程时间坐标系；然后加上Timer控件以及两个Comma
dButto
，界面就基本设置好了。r
r
　　2建立坐标系，根据Picture1的大小和高度设置画出坐标系的X轴和Y轴r
r
Picture1ScaleMode1‘以VB的基本单位作为建立坐标轴以及绘制图形的单位r
Picture1Refreshr
Picture1Curre
tXPicture1ScaleLeft100r
Picture1Curre
tYPicture1ScaleTopr
Picture1Pri
tPicture1ScaleHeight100r
Picture1Li
ePicture1ScaleLeft100，Picture1ScaleTop100Picture1ScaleLeft100，Picture1ScaleHeight100r
Picture1Curre
tXPicture1ScaleLeft100r
Picture1Curre
tYPicture1ScaleHeightr
Picture1Pri
t“0，0”r
Picture1Li
ePicture1ScaleLeft100，Picture1ScaleHeight100Picture1ScaleWidth100，Picture1ScaleHeight100r
Picture1Curre
tXPicture1ScaleWidthr
Picture1Curre
tYPicture1ScaleHeightr
Picture1Pri
tPicture1ScaleWidth100r
Picture1AutoRedrawTrue‘必要时，用存储在内存中的图象进行重绘r
r
　　3绘制曲线并保存，我们这里以正弦曲线作为绘制曲线的数据来源，具体应用是可以采用由串口或其他仪器采集得到的数据首先我们绘制一条中线，然后在Timer控件的Time事件中绘制曲线r
r
Picture1Li
ePicture1ScaleLeft，CI
tPicture1ScaleHeight2Picture1ScaleWidth，CI
tPicture1ScaleHeight2‘绘制中线r
PrivateSubTimer1_Timerr
　Dimy1AsI
tegerr
　y1CI
tSi
xPicture1Left20180piPicture1ScaleHeight2r
　y1CI
tPicture1ScaleHeight10002y1r
　Picture1Li
ex，yx20，y1r
　xx20r
　yy1r
　IfxPicture1ScaleWidthThe
r
　　SavePicturePicture1Image，