mscomm读取16进制数据

在使用mscomm控件读取16进制数据时，需要将数据包装成16进制字符串后再进行读取。

首先，打开mscomm控件的属性窗口，设置波特率、数据位、校验位等相应参数。然后，在代码中使用以下语句读取16进制数据：

Dim Data As String
Data = MSComm1.Input ' 读取数据
Data = HexStrToStr(Data) ' 将16进制字符串转换为普通字符串

在上述代码中，MSComm1是mscomm控件的名称，Input方法用于读取数据。但是，由于mscomm控件读取的是16进制字符串，需要使用HexStrToStr函数将16进制字符串转换成普通字符串，其代码如下：

Private Function HexStrToStr(hexstr As String) As String
    Dim i As Integer
    Dim result As String
    Do While hexstr <> ""
        result = result & Chr(Val("&H" & Left(hexstr, 2)))
        hexstr = Mid(hexstr, 3)
    Loop
    HexStrToStr = result
End Function

该函数将输入的16进制字符串转换成可读的字符串后返回。需要注意的是，如果输入的16进制字符串不是偶数个字符，该函数无法正确转换，因此需要在程序中添加错误处理功能。