modbus rtu校验方法

Posted 2023-04-22

参考技术A CRC-16（循环冗余错误校验）
CRC-16 错误校验程序如下：报文（此处只涉及数据位，不指起始位、停止位和任选的奇偶校验位）被看作是一个连续的二进制，其最高有效位（MSB）首选发送。报文先与X↑16 相乘（左移16 位），然后看X↑16+X↑15+X↑2+1 除，X↑16+X↑15+X↑2+1 可以表示为二进制数11000000000000101。整数商位忽略不记，16 位余数加入该报文（MSB 先发送），成为2 个CRC 校验字节。余数中的1 全部初始化，以免所有的零成为一条报文被接收。经上述处理而含有CRC 字节的报文，若无错误，到接收设备后再被同一多项式（X↑16+X↑15+X↑2+1）除，会得到一个零余数（接收设备核验这个CRC 字节，并将其与被传送的CRC 比较）。全部运算以2 为模（无进位）。习惯于成串发送数据的设备会首选送出字符的最右位（LSB-最低有效位）。而在生成CRC 情况下，发送首位应是被除数的最高有效位MSB。由于在运算中不用进位，为便于操作起见，计算CRC 时设MSB 在最右位。生成多项式的位序也必须反过来，以保持一致。多项式的MSB 略去不记，因其只对商有影响而不影响余数。

生成CRC-16 校验字节的步骤如下：
①装如一个16 位寄存器，所有数位均为1。
②该16 位寄存器的高位字节与开始8 位字节进行“异或”运算。
运算结果放入这个16 位寄存器。
③把这个16 寄存器向右移一位。
④若向右（标记位）移出的数位是1，则生成多项式1010000000000001
和这个寄存器进行“异或”运算；若向右移出的数位是0，则返回③。
⑤重复③和④，直至移出8 位。
⑥另外8 位与该十六位寄存器进行“异或”运算。
⑦重复③~⑥，直至该报文所有字节均与16 位寄存器进行“异或”运算，并移位8 次。
⑧这个16 位寄存器的内容即2 字节CRC 错误校验，被加到报文的最高有效位。
另外，在某些非ModBus 通信协议中也经常使用CRC16 作为校验手段，而且产生了一些
CRC16 的变种，他们是使用CRC16 多项式X↑16+X↑15+X↑2+1，单首次装入的16 位
寄存器为0000；使用CRC16 的反序X↑16+X↑14+X↑1+1，首次装入寄存器值为0000 或
FFFFH。 参考技术B crc16校验两个字节构成低位在前，高位在后。本回答被提问者采纳

VB Modbus RTU CRC 校验

 Public Function Chr_crc(data() As Byte) As String    ‘*RTU方式的CRC校验计算

      Dim CrcJ As Long
      Dim i As Integer
      Dim j As Integer
             
      CrcJ = 65535                                       ‘*CRCj赋值65535
      
      For i = 0 To UBound(data) ‘- 2                      ‘*循环参加校验的字节个数

          CrcJ = CrcJ Xor data(i)                        ‘*每个字节与CRCj的当前值异或
          For j = 0 To 7                                 ‘*循环八次
              If CrcJ Mod 2 = 1 Then                     ‘*如果CRCj当前值除2的余数等于1  判断最低位是否为1
                 CrcJ = CrcJ \ 2                         ‘*则CRCj当前值除2  右移
                 CrcJ = CrcJ Xor 40961                   ‘*CRCj当前值与40961异或
              Else
                 CrcJ = CrcJ \ 2                         ‘*如果CRCj当前值最低位不等于1 则只右移
              End If
         Next j
      Next i
      Chr_crc = Right("0000" + Hex(CrcJ), 4)             ‘*计算的CRCj当前值转换为十六进制
      Chr_crc = Right(Chr_crc, 2) + Left(Chr_crc, 2)     ‘*低字节放在前面，高字节放在后面
End Function