vb编写双机通信，要求加入crc,怎么加啊？超急。

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:23:31
老师要求进行双机通信。利用VB编程要求在发送的数据后加一串CRC，怎么用VB实现呢？
很急啊，摸不着头绪！！希望有人帮忙写一下！！！不胜感激！！！
如果CRC太难实现的话，别的校验码也可以的！！

这是一个普遍的CRC16校验for VB的
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 &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

调用很简单：
Call crc16(SendStr(), 5)