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
