标题: vb串口程序，发送十六进制数，单片机没有反应，求大佬解答 [打印本页] 作者: 1115204179 时间: 2020-11-6 16:15 标题: vb串口程序，发送十六进制数，单片机没有反应，求大佬解答 Private Sub Command1_Click()
Dim send(0 To 3) As Byte
send(0) = &HC0
send(1) = &HC0
send(2) = &H8
send(3) = &H41
MSComm1.Output = send
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
MSComm1.CommPort = 3 '??????
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.SThreshold = 2
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub Command4_Click()
MSComm1.OutBufferCount = 0
End Sub
Private Sub Command5_Click()
MSComm1.InBufferCount = 0
End Sub
Private Sub MSComm1_OnComm()
Dim buffer As String
buffer = MSComm1.Input
Text2.Text = buffer
End Sub