Question

VB 串口通信 上位机 如何将接收到的数据转为16进制

Private Sub MsComm1_OnComm()
Dim i As Integer
Dim recdata As String
Dim intinputlen As Integer

intinputlen = MSComm1.InBufferCount

ReDim bytInput(intinputlen)’存放数据用

bytInput = MSComm1.Input

MSComm1.InputMode = comInputModeBinary '二进制接收

recdata = recdata & MSComm1.Input '读取传送数据

Text1.Text = recdata + Text1.Text ’文本显示

jieshou ’16进制转换

End Sub

Public Function jieshou() '接收数据处理为16进制

Static i As Integer

For i = 0 To UBound(bytInput)

If Len(Hex(bytInput(i))) = 1 Then

strData = strData & "0" & Hex(bytInput(i))

Text1.Text = strData

Else

strData = strData & Hex(bytInput(i))

Text1.Text = strData

End If

Next

Text1 = strData

Call MsComm1_OnComm

End Function
程序目的是把串口接受来的二进制数据转换为16进制数据，用来显示和其他函数调用。在网上找的程序，怎么接收不到数据，求分析讲解

Answer 1

你的 MsComm1 如何陵祥 设置的？

推荐竖汪世看书
Visual_Basic与_RS-232_串行通信余肢控制

追问

有这本书吗

追答

当然

需要 联系 homewaygd@gmail.com

Answer 2

需贴出属性设置才能看出来