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個數據位，一個停止位
Mscomm1. inputmode=1 ＇通過input屬性以二進制形式取回數據
Mscomm1.inputlen=0 ＇讀取接收緩沖區全部內容
Mscomm1.rthreshold=1 ＇每收到一個字符位引發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 ＇取輸入緩沖區字節個數
instring = MSComm1.Input ＇把輸入緩沖區數據送給數組
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)) ＇將數組數據給繪圖函數
End If
Next i
End Sub

3、結束語

利用VB6.0的事件驅動方式可以很方便地開發數據采集與監控系統，用單臺PC機可以測量和監控多路控制信號，整控制系統設計方便，對小型測控系統的設計具有很大的實用性。

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