串口初始化
Private Sub Form
Load()
MSComm1.CommPort = 1
設置通信端口號為
COM1
MSComm1.Settings = "9600,n,8,1"
設置串口
1
參數
MSComm1.InputMode = 0
接收文本型數據
MSComm1.PortOpen = True
打開通信端口
1
End Sub
把字符通過串口發送出去
Private Sub Cmdsend
Click()
If Textsend.Text = "" Then
pp = MsgBox("
發送的數據不能為空！
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)
將緩沖區內的數據讀入
buf
變量中
If Len(buf) <> 0 Then
判斷緩沖區內是否存在數據
TextReceive.Text = TextReceive.Text +Chr(13) + Chr(10) + buf
回車換行
End If
End Sub
關閉通信端口
停止程序運行
Private Sub Cmdquit
Click()
MSComm1.PortOpen = False
Unload Me
End Sub
|
