Question

求代码 VB串口16进制程序

我购买了一个检测设备，按照说明使用串口调试工具和他通讯，波特率9600，8位数据，2位停止。发送81 81 52 00 00 00 53 00，就会返回00 00 00 00 00 00 28 03 53 00。但是要求在串口调试工具上勾上HEX发送和接受。请问我现在想自己用VB通讯，怎么实现HEX发送和接受呢？？？求这部分代码，谢谢

Answer 1

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1" '设置通信口参数
MSComm1.InBufferSize = 40 '设置MSComm1接收缓冲区为40字节
MSComm1.OutBufferSize = 2 '设置MSComm1发送缓冲区为2字节
MSComm1.InputMode = comInputModeBinary '设置接收数据模式为二进制形式
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.OutBufferCount = 0 '清除发送缓冲区
'MSComm1.RThreshold = 1 '设置接收一个字节产生OnComm事件
MSComm1.CommPort = 5
MSComm1.PortOpen = True '打开通信口
End Sub
Private Sub Command2_Click()
Dim data() As Byte '串口发送字节
ReDim data(7)
data(0) = &H81
data(1) = &H81
data(2) = &H52
data(3) = &H00
data(4) = &H00
data(5) = &H00
data(6) = &H53
data(7) = &H00
MSComm1.Output = data
接收有几种办法：1.延时接收
Timer1.Enabled = True
t1_c0:
If t1_flag0 = True Then GoTo t1_c1
DoEvents
GoTo t1_c0
t1_c1:
t1_flag0 = False
Dim Bintput() As Byte
Dim Binputa As Variant
Binputa = MSComm1.Input ' 从接收队列中读入字符串
Bintput() = Binputa
Dim i As Integer
For i = 0 To UBound(Bintput)
If Len(Hex(Bintput(i))) = 1 Then
strData = strData & "0" & Hex(Bintput(i))
Else
strData = strData & Hex(Bintput(i))
End If
Next
Text3.Text = strData
2.用事件接收---串口要打开'MSComm1.RThreshold = 1 '设置接收一个字节产生OnComm事件
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case 2
strTxt = strTxt & MSComm1.Input
If Right(strTxt, 1) = Chr(13) Then
Text1.Text = strTxt
strTxt = ""
End If
End Select
End Sub
祝你成功！