VB Modbus RTU CRC 校验

Modbus RTU 协议中使用 CRC 校验来检验数据的完整性。CRC 校验是通过对数据进行异或运算，得出一个校验值，然后将这个校验值添加到数据中传输给接收方。接收方将数据和校验值进行同样的计算，如果得出的结果与发送方传输的校验值一致，就说明数据没有损坏，否则说明数据在传输过程中发生了错误。

以下是 VB 代码实现 Modbus RTU CRC 校验的示例：

Private Function CalculateCRC(data() As Byte) As Integer
    Dim CRC As Integer = &HFFFF
    Dim i As Integer, j As Integer

    For i = 0 To UBound(data)
        CRC = CRC Xor data(i)
        For j = 0 To 7
            If (CRC And &H1) <> 0 Then
                CRC = (CRC >> 1) Xor &HA001
            Else
                CRC = CRC >> 1
            End If
        Next j
    Next i

    Return CRC
End Function

在上述代码中，`data` 参数是需要计算 CRC 校验的数据，返回值是计算出的 CRC 校验值。