'CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。
Function crc16(ByRef cmdstring() As Byte, ByVal j As Integer)
Dim data As Integer
Dim i As Integer
Addressreg_crc = &HFFFF
For i = 0 To j
Addressreg_crc = Addressreg_crc Xor cmdstring(i)
For j = 0 To 7
data = Addressreg_crc And ...
Public Function UnsignInt(ByRef Num As Variant) As Boolean
Num = Num And &HFFFF&End Function'8005 Public Function CRC168005(ptr() As Byte) As String
Dim i As In...
