VB Modbus RTU CRC 校验

Posted 溶进咖啡的糖

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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

 

以上是关于VB Modbus RTU CRC 校验的主要内容,如果未能解决你的问题,请参考以下文章

C51 modbus rtu crc下面这段代码校验结果总是不对,请高手指教,不胜感激!

modbus rtu校验方法

Modbus RTU CRC校验码计算方法

51单片机MODBUS通讯,RTU中的CRC校验

使用了modbus协议的程序,如何进行CRC校验

modbus协议CRC校验计算方式?该怎么计算?