vb
Private Sub cmdSend_Click()
' 發送數據
If Len(txtSend.Text) > 0 Then
commSerial.Output = txtSend.Text
Else
MsgBox "請輸入要發送的數據。", vbExclamation, "錯誤"
End If
End Sub
Private Sub commSerial_OnComm()
' 處理接收到的數據
If commSerial.CommEvent = comEvReceive Then
txtReceive.Text = txtReceive.Text + commSerial.Input
End If
End Sub
在cmdSend_Click事件中,程序檢查txtSend文本框中是否有數據,如果有,則通過串口發送出去。
在commSerial_OnComm事件中,程序檢查是否有數據到達(通過檢查CommEvent屬性是否為comEvReceive),
如果有,則將其添加到txtReceive文本框中。