vb6串口接收16进制字节，将其转换为字符串，然后赋值给变量wyh

以下是一个示例代码，可以实现将16进制字节转换为字符串并赋值给变量wyh：

Private Sub MSComm1_OnComm()
Dim strData As String
Dim arrData() As Byte
Dim i As Integer

If MSComm1.CommEvent = comEvReceive Then
'读取串口数据
arrData = MSComm1.Input
'将字节数组转换为字符串
For i = LBound(arrData) To UBound(arrData)
strData = strData & Chr(arrData(i))
Next i
'将字符串赋值给变量wyh
wyh = strData
End If
End Sub

在上面的代码中，MSComm1是一个串口控件，可以通过它来读取串口数据。在OnComm事件中，我们首先读取串口数据，然后将其转换为字符串。最后，将字符串赋值给变量wyh。

相关问题

vb6串口接收3个字节的16进制字节然后赋值给变量wyh

以下是一个VB6程序示例，演示如何从串口接收3个字节的16进制字节，并将其赋值给变量wyh：

Private Sub Form_Load()

    '打开串口
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()

    Dim buffer(2) As Byte
    Dim wyh As Long

    If MSComm1.CommEvent = comEvReceive Then
        '接收3个字节的数据
        MSComm1.InputLen = 3
        MSComm1.InputMode = comInputModeBinary
        MSComm1.Input(buffer)

        '将3个字节的数据转换为长整型数
        wyh = buffer(0) * 256 * 256 + buffer(1) * 256 + buffer(2)

        '在调试窗口中显示接收到的数据
        Debug.Print "接收到的数据：0x" & Hex(buffer(0)) & " 0x" & Hex(buffer(1)) & " 0x" & Hex(buffer(2))
        Debug.Print "wyh = " & wyh
    End If

End Sub

在上面的示例中，我们使用了MSComm控件来进行串口通信。在Form_Load事件中，我们打开了COM1口，并设置了波特率为9600，数据位为8，无校验位，停止位为1。在MSComm1_OnComm事件中，我们检测到了串口接收到数据的事件，然后从串口中读取了3个字节的数据，并将其存储在一个字节数组buffer中。接着，我们将这3个字节的数据转换为一个长整型数wyh，并在调试窗口中显示出来。

请注意，上面的示例仅演示了如何从串口接收3个字节的16进制字节。如果您需要接收更多字节的数据，您需要根据实际情况调整InputLen属性的值。此外，如果您需要发送数据到串口，您可以使用MSComm1.Output方法来发送数据。

改进这代码：wyh: Private Sub MSComm1_OnComm() With MSComm1 .InputLen = 1 Dim buffer() As Byte Dim count As Integer If MSComm1.CommEvent = comEvReceive Then count = MSComm1.InBufferCount buffer = MSComm1.Input '将16进制字节数据转换为字符串 Print HexToStr(buffer) End If wyh: Private Function HexToStr(buffer() As Byte) As String Dim i As Integer Dim str As String For i = 0 To UBound(buffer) str = str & Right("00" & Hex(buffer(i)), 2) Next i HexToStr = str End Function 让它能够先读取3个字节，再分8次每次读取2个字节，最后读取2个字节

& Chr(buffer(i)) Next HexToStr = str End Function

改进后的代码：

Private Sub MSComm1_OnComm()
With MSComm1
.InputLen = 1
Dim buffer() As Byte
Dim count As Integer
If .CommEvent = comEvReceive Then
count = .InBufferCount
buffer = .Input
'将16进制字节数据转换为字符串
Debug.Print HexToStr(buffer)
End If
End With
End Sub

Private Function HexToStr(buffer() As Byte) As String
Dim i As Integer
Dim str As String
For i = 0 To UBound(buffer)
str = str & Chr(buffer(i))
Next
HexToStr = str
End Function

改进说明：

1. 在 Sub MSComm1_OnComm() 中，将 With MSComm1 放置在最开始，以避免重复使用 MSComm1。
2. 在调用 HexToStr() 函数时，使用 Debug.Print 代替 Print，以便在调试过程中查看结果。
3. 在 HexToStr() 函数中，将 str = str & Chr(buffer(i)) 代替 str = str，以便将每个字符添加到字符串中。
4. 在 HexToStr() 函数中，将 HexToStr = str 放置在函数的最后，以便将结果返回给调用方。