[轉貼] MSComm 控制項範例

laigs218

下面這個簡單的例子，可示範用數據機進行基本的序列通訊：
Private Sub Form_Load ()
   ' 儲存輸入字串的暫存區
   Dim Instring As String
   ' 使用 COM1.
   MSComm1.CommPort = 1
   ' 連線速度 9600 baud、無同位檢查、資料位元 8、停止位元 1
   MSComm1.Settings = "9600,N,8,1"
   ' 告訴控制項當使用 Input 時，讀取整個暫存區
   MSComm1.InputLen = 0
   ' 開啟序列連接埠
   MSComm1.PortOpen = True
   ' 將 attention 指令送到數據機
   MSComm1.Output = "ATV1Q0" & Chr$(13) ' 確定
   ' 數據機回應 "OK" 的訊息

   ' 等待資料傳回到序列連接埠
   Do
      DoEvents
   Buffer$ = Buffer$ & MSComm1.Input
   Loop Until InStr(Buffer$, "OK" & vbCRLF)   ' 從序列連接埠讀取 "OK" 回應資料
   ' 關閉序列連接埠
   MSComm1.PortOpen = False
End Sub

laigs218

補充說明，若是初步接觸 RS232 通訊的人可以先試雙機互通，或者單機互通，
接法如下，
PC雙機對連
接線方式 將PC 1的rs-232第2腳接到 PC 2的rs-232第3腳  TX--->RX
                 將PC 1的rs-232第3腳接到 PC 2的rs-232第2腳  RX---->TX
                 將PC 1的rs-232第5腳接到 PC 2的rs-232第5腳  GND<---->GND
單機相連時  將PC 的rs-232第3腳接到 PC 的rs-232第2腳  第5腳是本身gnd不用接

若還是不了解，可以到網路上搜尋一下相關資料。