Modbus CRC 校验码的小程序！

好东西！ 谢啦！ LZ  这个必须顶！
要是有源代码就好了 呵呵

肯定是地位在前，高位在后。必须的

哈哈，楼主写的不错

生成Modbus CRC 如何运算的？什么函数

好用吗？

好东西！ 谢啦！

很简单啊 没什么的

CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。
　　Function crc16_1(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 &H1
　　 If data Then
　　 Addressreg_crc = Int(Addressreg_crc / 2)
　　 Addressreg_crc = Addressreg_crc And &H7FFF
　　 Addressreg_crc = Addressreg_crc Xor &HA001
　　 Else
　　 Addressreg_crc = Addressreg_crc / 2
　　 Addressreg_crc = Addressreg_crc And &H7FFF
　　 End If
　　 Next j
　　 Next i
　　
　　 If Addressreg_crc < 0 Then
　　 Addressreg_crc = Addressreg_crc - &HFFFF0000
　　 End If
　　
　　 HiByte = Addressreg_crc And &HFF
　　 LoByte = (Addressreg_crc And &HFF00) / &H100
　　End Function

以上为计算CRC校验码的VB源码，我测试过可用，来源于网络

好像有毒啊？？！！