在啟動過程中對串口和輸入輸出緩沖區(qū)初始化
  comm1.Settings = "1200,n,8,1" '設定波特率1200bps，無校驗，8位數(shù)據(jù)位，1位停止位
　comm1.CommPort = 1 '串口1
　comm1.InputLen = 1 '一次從輸入緩沖區(qū)中讀取一個字符
　comm1.InBufferSize = 512 '定義輸入緩沖區(qū)為512字節(jié)（bytes）
　comm1.InBufferCount = 0 '清空輸入緩沖區(qū)
　comm1.OutBufferCount = 0 '清空輸出緩沖區(qū)
　comm1.PortOpen = True '啟動串口

上位機向下位機發(fā)送的命令有校時命令、請求內存命令、發(fā)送數(shù)據(jù)命令、快采命令和慢采命令等。發(fā)送命令有兩種發(fā)送方式,即手動方式和自動方式,自動方式是由定時器來完成的。
下面是發(fā)送數(shù)傳命令的子過程,啟動該過程由一個定時器控制:
Sub sample_data ()
comm1.RTSEnable = True 將上位機置高,
 Call time_delay 適當延時
comm1.Output = "*關機" + Chr$(13) 發(fā)送命令
Do
該循環(huán)用來檢測命令是否全部發(fā)送完畢
Loop Until comm1.OutBufferCount = 0
Call time_delay
適當延時
comm1.RTSEnable = False 將上位機置低,改為接受狀態(tài)
comm1.InBufferCount = 0 清空接收緩沖區(qū)
comm1.RThreshold = 1 設定RThreshold = 1,等待出發(fā)OnComm事件
End Sub