modbus RTU通信时，CRC验证码怎样计算？是不是有快捷简单的方法？麻烦举例一下（原理很难懂啊）

Posted 2023-04-22

我是用PLC跟温控表做通信的

参考技术A 我这人比较笨，花了2天时间，看了很多资料，才把CRC校验原理弄清楚。其实该CRC校验的过程就是异或、移位、取余数。
目前CRC校验有直接计算和查表法。这两种方法我都用PLC（AB）梯形图实现过。
直接计算会让PLC的执行时间将变得很长，特别是当传输数据量大的时候，因为每个字节的每个位都要进行一次计算。
推荐用查表法，PLC执行快，一个字节查表一次，计算一次。至于算法可百度搜索，很多用C语言实现的，想办法把它转为梯形图实现就可以了，并不需要知道它的原理。
CRC校验是否正确，你可以下载CRC校验器来验证。

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