用VB實現實時曲線的繪制和保存

2019-11-18 17:41:35

字體：大中小

來源：轉載

供稿：網友

在VB中繪制實時曲線是比較難的，一般要應用第三方控件或是WindowsAPI函數來完成，但是如果你對實時曲線的要求不是很高，只要能表示出當前的一般情況的話，我們可以直接應用VB提供給我們的空間來完成。

　　原則上講，直接在Form里繪制曲線都是可以的，MSDN上面很多例程就是直接在Form里面繪制圖形的，Form作為繪制圖形的容器，不過一般應用中Form中不可避免的會有很多其他控件，所以我們選擇PictureBox作為繪制曲線的容器。

　　實時曲線的繪制一般借助于Timer控件來完成，使用Timer控件，定期將串口或是其他儀器中監測到的數據送往PictureBox1，而曲線的繪制一般畫成折線圖，采用PictureBox1的Line方法繪制.具體實現如下:

　　1.選擇需要顯示的窗體Picture1，加入圖片框Picture1，根據實際需要設置圖片的大小并移到合適的位置，并在圖片的外面畫好量程----時間坐標系；然后加上Timer控件以及兩個CommandButton，界面就基本設置好了。

　　2.建立坐標系，根據Picture1的大小和高度設置畫出坐標系的X軸和Y軸:

->Picture1.ScaleMode=1‘以VB的基本單位作為建立坐標軸以及繪制圖形的單位;
Picture1.Refresh
Picture1.CurrentX=Picture1.ScaleLeft 100
Picture1.CurrentY=Picture1.ScaleTop
Picture1.PRintPicture1.ScaleHeight-100
Picture1.Line(Picture1.ScaleLeft 100，Picture1.ScaleTop 100)-(Picture1.ScaleLeft 100，Picture1.ScaleHeight-100)
Picture1.CurrentX=Picture1.ScaleLeft 100
Picture1.CurrentY=Picture1.ScaleHeight
Picture1.Print“(0，0)”
Picture1.Line(Picture1.ScaleLeft 100，Picture1.ScaleHeight-100)-(Picture1.ScaleWidth-100，Picture1.ScaleHeight-100)
Picture1.CurrentX=Picture1.ScaleWidth
Picture1.CurrentY=Picture1.ScaleHeight
Picture1.PrintPicture1.ScaleWidth-100
Picture1.AutoRedraw=True‘必要時，用存儲在內存中的圖象進行重繪->

　　3.繪制曲線并保存，我們這里以正弦曲線作為繪制曲線的數據來源，具體應用是可以采用由串口或其他儀器采集得到的數據.首先我們繪制一條中線，然后在Timer控件的Time事件中繪制曲線:

->Picture1.Line(Picture1.ScaleLeft，CInt(Picture1.ScaleHeight/2))-(Picture1.ScaleWidth，CInt(Picture1.ScaleHeight/2))‘繪制中線
PrivateSubTimer1_Timer()
　Dimy1AsInteger
　y1=CInt(Sin((x-Picture1.Left)/20/180*pi)*Picture1.ScaleHeight/2)
　y1=CInt((Picture1.ScaleHeight 1000)/2)-y1
　Picture1.Line(x，y)-(x 20，y1)
　x=x 20
　y=y1
　Ifx>=Picture1.ScaleWidthThen
　　SavePicturePicture1.Image，"c:/sin.bmp"‘保存圖畫，可以根據實際需要命名圖片
　　x=0
　　y=Picture1.ScaleHeight/2
　　Picture1.Cls‘清屏重畫
　EndIf
EndSub->

　　從上面的過程可以看出，其實對于要求不高的實時曲線的繪制還是比較簡單的，在這里我采用的是清屏重畫圖像，如果要實現圖像往左移動，圖像仍然保留的效果，可以采用Windows的Bitblt函數，可以讓圖像每次移動一個象素或是多少個twip。

　　以上只是實時曲線繪制的一點簡單說明，具體應用中可能需要花更多的功夫修飾圖像，顯示時間(可以依據上面的代碼中的Picture1.Print實現)，但是基本原理大同小異。
->

上一篇：VB實現文件數據對SQLServer上傳下載

下一篇：VB圖像處理之圖像的亮度對比度調整