- 帖子
- 22
- 主題
- 17
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- wiindows
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新北
- 註冊時間
- 2021-6-21
- 最後登錄
- 2022-1-4
|
下面這個簡單的例子，可示範用數據機進行基本的序列通訊：
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 |
|
發表於 2021-7-12 09:05
| 
