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