Option ExplicitPrivate Sub Command1_Click() MSComm1.Output = Trim(txtSend.Text) End SubPrivate Sub Command2_Click() Dim buf$ buf = Trim(MSComm1.Input) If Len(buf) = 0 Then txtReceive.Text = "Empty" Else txtReceive.Text = buf End If End SubPrivate Sub Command3_Click() MSComm1.PortOpen = False End End SubPrivate Sub Form_Load() MSComm1.PortOpen = True End Sub 就這個是回路測試哦,別看它少,但是是可以用的
MSComm1.Output = Trim(txtSend.Text)
End SubPrivate Sub Command2_Click()
Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
txtReceive.Text = "Empty"
Else
txtReceive.Text = buf
End If
End SubPrivate Sub Command3_Click()
MSComm1.PortOpen = False
End
End SubPrivate Sub Form_Load()
MSComm1.PortOpen = True
End Sub
就這個是回路測試哦,別看它少,但是是可以用的