在搞RFID的时候需要对指令进行校验,他的校验方式是ADD8而不是常用的MODBUS。所以记录一下
这个函数返回校验和结果。
Function ADD8校验和(Data() As Byte) As Integer
Dim sum As Integer = 0
For Each b As Byte In Data
sum += b
Next
sum = Not sum
sum += 1
Return sum And &HFF
End Function