Private sub form_l oad()
Comm1.portopen=true
Timer.interval=1000 ＇定時器時間間隔為1000s
Timer.enabled=true
Mscomm1.compore=1 ＇選擇通訊口1
Mscomm1.settings=“110,n,8,1” ＇波特率110，無奇偶校驗，8個數(shù)據(jù)位，一個停止位
Mscomm1. inputmode=1 ＇通過input屬性以二進制形式取回數(shù)據(jù)
Mscomm1.inputlen=0 ＇讀取接收緩沖區(qū)全部內(nèi)容
Mscomm1.rthreshold=1 ＇每收到一個字符位引發(fā)oncomm事件
Graph1.scale(0,10)-(20,0) ＇定制坐標
Grahp1.forecoclr=rgb(0,0,255)
End sub
Private Sub Command1_Click()
Dim a!(30), b!(30)
num = MSComm1.InBufferCount ＇取輸入緩沖區(qū)字節(jié)個數(shù)
instring = MSComm1.Input ＇把輸入緩沖區(qū)數(shù)據(jù)送給數(shù)組
For i = 0 To num - 1
a(i) = i
b(i) = instring(i)
GRAPH1.Cls
If i = 1 Then
GRAPH1.PSet (a(i), b(i))
Else
GRAPH1.Line -(a(i), b(i)) ＇將數(shù)組數(shù)據(jù)給繪圖函數(shù)
End If
Next i
End Sub

3、結(jié)束語

利用VB6.0的事件驅(qū)動方式可以很方便地開發(fā)數(shù)據(jù)采集與監(jiān)控系統(tǒng)，用單臺PC機可以測量和監(jiān)控多路控制信號，整控制系統(tǒng)設(shè)計方便，對小型測控系統(tǒng)的設(shè)計具有很大的實用性。

參考文獻：
1、 何立民，單片機應用系統(tǒng)設(shè)計.北京：航空航天大學出版社，1992
2、 美Jan Axelson 著，串行端口大全，精英科技譯，2001.5