VB串口读取16进制

以下是 VB 中读取串口数据并将其解析为16进制的示例代码：

Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    Dim data As String = SerialPort1.ReadExisting()
    Dim hexData As String = ""

    For Each c As Char In data
        hexData &= Asc(c).ToString("X2") & " "
    Next

    '在控制台中输出16进制数据
    Console.WriteLine(hexData)
End Sub

在这个例子中，我们使用 `SerialPort1` 控件来读取串口数据。当有数据到达时，`SerialPort1_DataReceived` 事件会被触发。

在事件处理程序中，我们首先读取串口数据并将其存储在 `data` 变量中。然后，我们遍历 `data` 中的每个字符，并将其转换为16进制格式。我们使用 `Asc` 函数将每个字符转换为其 ASCII 码，并使用 `ToString("X2")` 将 ASCII 码转换为2位16进制格式。

最后，我们将所有16进制数据连接起来，并在控制台中输出。你可以根据需要修改代码，以便将数据存储在数组中或在应用程序的其他部分中使用它。