vb串口通訊源碼，可以測(cè)試一下

ID:436618 · 發(fā)表于 2018-11-30 15:58

串口初始化
Private Sub Form
Load()
MSComm1.CommPort = 1
設(shè)置通信端口號(hào)為
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
通過時(shí)鐘控制來自動(dòng)接收字符
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)閉通信端口
停止程序運(yùn)行
Private Sub Cmdquit
Click()
MSComm1.PortOpen = False
Unload Me
End Sub

ID:436618 · 發(fā)表于 2018-11-30 16:00

這是一個(gè)簡單的串口通訊的源碼，僅是示例

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

vb串口通訊源碼，可以測(cè)試一下