vb.net - 在 VB.NET 中处理字节

Question

我正在 VB.NET 中开发一个从串行端口读取一些信息的项目。此信息以 4 个字节为一组。我能够从串口读取数据，但我得到的只是一包 4 个数字。

例如，我的读数是：

134 0 0 4
140 0 0 6
141 0 0 5
133 0 0 8
...

该手册解释了如何将这些数字转换为可用数据。我可以在一篇论文中完成，但我不知道如何在 VB.NET 中编写代码。我不知道如何在字节级别工作。

我附上一张关于字节含义的图片。

Answer 1

我得到了答案，感谢用户 x4rf41

也许需要一些修复，但它是我正在寻找的。

这是代码：

Private Sub thread_lectura_tarjeta1()

        Dim RXByte As Byte 'byte recived
        Dim RXPacket As List(Of Byte) = New List(Of Byte) 'each reading has 4 bytes
        Dim lectura As Long = 0 'is the FINAL data
        Dim COMPort As SerialPort = ensayo.get_digitalizadores(0).get_puerto_com
        Dim chk_signo As Byte = 0

        While (True)

            lectura = 0

            Do 'each package starts with a byte > 127, because is the only byte that its first bit is 0

                RXByte = COMPort.ReadByte

            Loop Until (RXByte > 127)

            RXByte = RXByte And 127
            RXPacket.Insert(0, RXByte)

            RXByte = COMPort.ReadByte            
            RXPacket.Insert(1, RXByte)

            RXByte = COMPort.ReadByte
            chk_signo = RXByte And 8
            RXPacket.Insert(2, RXByte And 7)

            RXByte = COMPort.ReadByte
            RXPacket.Insert(3, RXByte)

            lectura = RXPacket.Item(0) + RXPacket.Item(1) * 128 + RXPacket.Item(2) * 16384

            'checking sign


            If chk_signo = 8 Then ' negative number

                lectura = (lectura Xor 131071) * -1
            End If



            Sleep(1) 'wait 1 milisecond and read again

        End While
    End Sub