Private Sub Command1_Click()'发送 Dim number As Integer Dim outbyte(0) As Byte number = Val(Text1.Text) outbyte(0) = CByte(number) MSComm1.OutBufferCount = 0 MSComm1.Output = outbyte Print outbyte(0) End Sub
Private Sub Command2_Click() MSComm1.PortOpen = False Unload Form1 End Sub
Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputMode = comInputModeBinary '二进制接收 MSComm1.PortOpen = True MSComm1.InBufferCount = 0 End Sub
Private Sub MSComm1_OnComm()'接收 Dim indata As Variant Dim arr(0) As Byte Select Case MSComm1.CommEvent Case comEvReceive indata = MSComm1.Input arr(0) = AscB(indata) Text2.Text = arr(0) MSComm1.InBufferCount = 0 End Select End Sub
