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 校验的主要内容，如果未能解决你的问题，请参考以下文章