ModBus CRC16校验VB算法.docVIP

ModBus CRC16校验VB算法 ModBus CRC16 VB与modbus rtu协议通信,并进行CRC校验 modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。 以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。 这次把这个demo共享，希望能给大家一点帮助。 Sub Button1_Click() Dim str As String Dim sByte(10) As Byte Dim i As Integer, j As Integer Dim l As Byte, h As Byte str = Trim(Sheet1.TextBox1.Text) str = Replace(str, , ) j = 0 For i = 0 To Len(str) - 1 Step 2 sByte(j) = Mid(str, i + 1, 2) j = j + 1 Next MsgBox CalCRC16Fast(sByte, 5, l, h) MsgBox CalCRC16Tbl(sByte, 5, l, h) End Sub Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String Dim CL As Byte, CH As Byte 多项式码HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer btHiCRC = HFF btLoCRC = HFF CL = H1 CH = HA0 For i = 0 To (no - 1) btHiCRC = btHiCRC Xor data(i) 每一个数据与CRC寄存器进行异或 For Flag = 0 To 7 SaveHi = btLoCRC SaveLo = btHiCRC btLoCRC = btLoCRC \ 2 高位右移一位 btHiCRC = btHiCRC \ 2 低位右移一位 If ((SaveHi And H1) = H1) Then 如果高位字节最后一位为1 btHiCRC = btHiCRC Or H80 则低位字节右移后前面补1 End If 否则自动补0 If ((SaveLo And H1) = H1) Then 如果LSB为1，则与多项式码进行异或 btLoCRC = btLoCRC Xor CH btHiCRC = btHiCRC Xor CL End If Next Flag Next i Dim ReturnData(1) As Byte ReturnData(0) = Hex(btHiCRC) CRC高位 ReturnData(1) = Hex(btLoCRC) CRC低位 CalCRC16Fast = ReturnData(1) ReturnData(0) End Function Public Function CalCRC16Tbl(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String Dim btLoCRC As Byte Dim btHiCRC As Byte btLoCRC = HFF btHiCRC = HFF Dim i As Integer Dim iIndex As Long