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