API接收串口数据问题
VB应用API做的串口通信，假如接收二进制发的1，接收到的是313130303031，这是为什么？怎么正确的获取发送数据呢？
'从串口读取数据 Function ReadCommPure() As String On Error GoTo handelpurecom Dim RetBytes As Long Dim i As Integer Dim ReadStr As String Dim retval As Long Dim CheckTotal As Integer Dim CheckDigitLC As Integer retval = ReadFile(ComNum, bRead(0), 255, RetBytes, 0) ReadStr = "" If (RetBytes > 0) Then For i = 0 To RetBytes - 1 ReadStr = ReadStr & Hex(bRead(i)) If Len(Hex(bRead(i))) = 1 Then strData = strData & "0" & Hex(bRead(i)) '转为16进制显示 Else strData = strData & Hex(bRead(i)) '转为16进制显示 End If Next i Else FlushComm End If ReadCommPure = ReadStrhandelpurecom: Exit Function End Function
