標(biāo)題: vb串口通訊源碼，可以測試一下 [打印本頁] 作者: hbsynut 時間: 2018-11-30 15:58 標(biāo)題: vb串口通訊源碼，可以測試一下 串口初始化
Private Sub Form
Load()
MSComm1.CommPort = 1
設(shè)置通信端口號為
COM1
MSComm1.Settings = "9600,n,8,1"
設(shè)置串口
1
參數(shù)
MSComm1.InputMode = 0
接收文本型數(shù)據(jù)
MSComm1.PortOpen = True
打開通信端口
1
End Sub
把字符通過串口發(fā)送出去
Private Sub Cmdsend
Click()
If Textsend.Text = "" Then
pp = MsgBox("
發(fā)送的數(shù)據(jù)不能為空！
Exit Sub
End If
MSComm1.Output = Trim(Textsend.Text)
For i = 1 To 20000000
Next i
End Sub
通過時鐘控制來自動接收字符
Private Sub Timer1_
Timer()
Dim buf$
buf = Trim(MSComm1.Input)
將緩沖區(qū)內(nèi)的數(shù)據(jù)讀入
buf
變量中
If Len(buf) <> 0 Then
判斷緩沖區(qū)內(nèi)是否存在數(shù)據(jù)
TextReceive.Text = TextReceive.Text +Chr(13) + Chr(10) + buf
回車換行
End If
End Sub
關(guān)閉通信端口
停止程序運行
Private Sub Cmdquit
Click()
MSComm1.PortOpen = False
Unload Me
End Sub 作者: hbsynut 時間: 2018-11-30 16:00
這是一個簡單的串口通訊的源碼，僅是示例