VB6.0 CRC校验程序

2. 1、加入CRC校验的发送帧
3. Private Sub Timer1_Timer() '发送数据
4. Dim longCRC As Long '定义校验变量
5. Dim aa(7) As Byte '定义动态数组
6. aa(0) = &H1'地址
7. aa(1) = &H3'功能码 读
8. aa(2) = &H0'起始地址
9. aa(3) = &HA
10. aa(4) = &H0'数据点数
11. aa(5) = &H8
13. longCRC = CRC16(aa)'CRC校验
14. aa(UBound(aa) - 1) = longCRC Mod 256
15. aa(UBound(aa)) = longCRC \\ 256
16. MSComm1.OutBufferCount = 0 '清空输出寄存器
17. MSComm1.Output = aa'发送
18. End Sub
20. 2，CRC校验程序
21. Function CRC16(Coun() As Byte) As Long
22. Dim intBit, intTemp As Integer
23. Dim lonCRC As Long
24. lonCRC = &HFFFF&
25. For intCnt = 0 To UBound(Coun) - 2
26. lonCRC = lonCRC Xor Coun(intCnt)
27. For intBit = 0 To 7
28. intTemp = lonCRC Mod 2
29. lonCRC = lonCRC \\ 2
30. If intTemp = 1 Then
31. lonCRC = lonCRC Xor &HA001&
32. End If
33. Next intBit
34. Next intCnt
35. CRC16 = lonCRC
36. End Function

复制代码

谢谢楼主，支持共享！