VB6查表法编解Modbus RTU协议CRC16校验码

Modbus RTU协议CRC16编解码用VB6写起来比较啰嗦，需要做一些简单处理。下面就查表法，贴上源代码，并做一些简要说明。

 源程序，对照上面的图看更方便。

Private Sub Command2_Click()
Dim I As Integer, J As Integer
Dim CRCHi As Integer, CRCLo As Integer
Dim CRCindex As Byte, TestString As String

Dim TABHi(), TABLo()
TABHi() = Array( _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", _
"&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", _
"&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40")

TABLo() = Array( _
"&H00", "&HC0", "&HC1", "&H01", "&HC3", "&H03", "&H02", "&HC2", "&HC6", "&H06", "&H07", "&HC7", "&H05", "&HC5", "&HC4", _
"&H04", "&HCC", "&H0C", "&H0D", "&HCD", "&H0F", "&HCF", "&HCE", "&H0E", "&H0A", "&HCA", "&HCB", "&H0B", "&HC9", "&H09", _
"&H08", "&HC8", "&HD8", "&H18", "&H19", "&HD9", "&H1B", "&HDB", "&HDA", "&H1A", "&H1E", "&HDE", "&HDF", "&H1F", "&HDD", _
"&H1D", "&H1C", "&HDC", "&H14", "&HD4", "&HD5", "&H15", "&HD7", "&H17", "&H16", "&HD6", "&HD2", "&H12", "&H13", "&HD3", _
"&H11", "&HD1", "&HD0", "&H10", "&HF0", "&H30", "&H31", "&HF1", "&H33", "&HF3", "&HF2", "&H32", "&H36", "&HF6", "&HF7", _
"&H37", "&HF5", "&H35", "&H34", "&HF4", "&H3C", "&HFC", "&HFD", "&H3D", "&HFF", "&H3F", "&H3E", "&HFE", "&HFA", "&H3A", _
"&H3B", "&HFB", "&H39", "&HF9", "&HF8", "&H38", "&H28", "&HE8", "&HE9", "&H29", "&HEB", "&H2B", "&H2A", "&HEA", "&HEE", _
"&H2E", "&H2F", "&HEF", "&H2D", "&HED", "&HEC", "&H2C", "&HE4", "&H24", "&H25", "&HE5", "&H27", "&HE7", "&HE6", "&H26", _
"&H22", "&HE2", "&HE3", "&H23", "&HE1", "&H21", "&H20", "&HE0", "&HA0", "&H60", "&H61", "&HA1", "&H63", "&HA3", "&HA2", _
"&H62", "&H66", "&HA6", "&HA7", "&H67", "&HA5", "&H65", "&H64", "&HA4", "&H6C", "&HAC", "&HAD", "&H6D", "&HAF", "&H6F", _
"&H6E", "&HAE", "&HAA", "&H6A", "&H6B", "&HAB", "&H69", "&HA9", "&HA8", "&H68", "&H78", "&HB8", "&HB9", "&H79", "&HBB", _
"&H7B", "&H7A", "&HBA", "&HBE", "&H7E", "&H7F", "&HBF", "&H7D", "&HBD", "&HBC", "&H7C", "&HB4", "&H74", "&H75", "&HB5", _
"&H77", "&HB7", "&HB6", "&H76", "&H72", "&HB2", "&HB3", "&H73", "&HB1", "&H71", "&H70", "&HB0", "&H50", "&H90", "&H91", _
"&H51", "&H93", "&H53", "&H52", "&H92", "&H96", "&H56", "&H57", "&H97", "&H55", "&H95", "&H94", "&H54", "&H9C", "&H5C", _
"&H5D", "&H9D", "&H5F", "&H9F", "&H9E", "&H5E", "&H5A", "&H9A", "&H9B", "&H5B", "&H99", "&H59", "&H58", "&H98", "&H88", _
"&H48", "&H49", "&H89", "&H4B", "&H8B", "&H8A", "&H4A", "&H4E", "&H8E", "&H8F", "&H4F", "&H8D", "&H4D", "&H4C", "&H8C", _
"&H44", "&H84", "&H85", "&H45", "&H87", "&H47", "&H46", "&H86", "&H82", "&H42", "&H43", "&H83", "&H41", "&H81", "&H80", _
"&H40")

TestString = "010303E80002"

CRCHi = &HFF: CRCLo = &HFF


Dim PP As String

For I = 1 To Len(TestString) / 2        'Convert 2-characters hex into Byte
    CRCindex = CRCHi Xor Val("&H" + Mid$(TestString, I * 2 - 1, 2))
    PP = TABHi(CRCindex): CRCHi = CRCLo Xor Val(PP)
    PP = TABLo(CRCindex): CRCLo = Val(PP)
Next I

Text1.Text = Right$(("0" + Hex$(CRCHi)), 2) + Right$(("0" + Hex$(CRCLo)), 2)
End Sub

一、对码表的处理

C语言可以定义时初始化数组，VB则需要另想办法。可以从网上考贝C的码表，比如下表：

0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81,
0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01,
0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41,
0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81,
0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01,
0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40,
0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81,
0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01,
0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81,
0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01,
0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81,
0x40

然后贴到VB里，用"&H 全部替换掉0x，再用 ", 全部替换掉 , 替换后的表是如下的样子。

TABHi() = Array( _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", _
"&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", _
"&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", _
"&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", _
"&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", "&H40", "&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", _
"&H00", "&HC1", "&H81", "&H40", "&H01", "&HC0", "&H80", "&H41", "&H01", "&HC0", "&H80", "&H41", "&H00", "&HC1", "&H81", _
"&H40")

TABLo() = Array( _
"&H00", "&HC0", "&HC1", "&H01", "&HC3", "&H03", "&H02", "&HC2", "&HC6", "&H06", "&H07", "&HC7", "&H05", "&HC5", "&HC4", _
"&H04", "&HCC", "&H0C", "&H0D", "&HCD", "&H0F", "&HCF", "&HCE", "&H0E", "&H0A", "&HCA", "&HCB", "&H0B", "&HC9", "&H09", _
"&H08", "&HC8", "&HD8", "&H18", "&H19", "&HD9", "&H1B", "&HDB", "&HDA", "&H1A", "&H1E", "&HDE", "&HDF", "&H1F", "&HDD", _
"&H1D", "&H1C", "&HDC", "&H14", "&HD4", "&HD5", "&H15", "&HD7", "&H17", "&H16", "&HD6", "&HD2", "&H12", "&H13", "&HD3", _
"&H11", "&HD1", "&HD0", "&H10", "&HF0", "&H30", "&H31", "&HF1", "&H33", "&HF3", "&HF2", "&H32", "&H36", "&HF6", "&HF7", _
"&H37", "&HF5", "&H35", "&H34", "&HF4", "&H3C", "&HFC", "&HFD", "&H3D", "&HFF", "&H3F", "&H3E", "&HFE", "&HFA", "&H3A", _
"&H3B", "&HFB", "&H39", "&HF9", "&HF8", "&H38", "&H28", "&HE8", "&HE9", "&H29", "&HEB", "&H2B", "&H2A", "&HEA", "&HEE", _
"&H2E", "&H2F", "&HEF", "&H2D", "&HED", "&HEC", "&H2C", "&HE4", "&H24", "&H25", "&HE5", "&H27", "&HE7", "&HE6", "&H26", _
"&H22", "&HE2", "&HE3", "&H23", "&HE1", "&H21", "&H20", "&HE0", "&HA0", "&H60", "&H61", "&HA1", "&H63", "&HA3", "&HA2", _
"&H62", "&H66", "&HA6", "&HA7", "&H67", "&HA5", "&H65", "&H64", "&HA4", "&H6C", "&HAC", "&HAD", "&H6D", "&HAF", "&H6F", _
"&H6E", "&HAE", "&HAA", "&H6A", "&H6B", "&HAB", "&H69", "&HA9", "&HA8", "&H68", "&H78", "&HB8", "&HB9", "&H79", "&HBB", _
"&H7B", "&H7A", "&HBA", "&HBE", "&H7E", "&H7F", "&HBF", "&H7D", "&HBD", "&HBC", "&H7C", "&HB4", "&H74", "&H75", "&HB5", _
"&H77", "&HB7", "&HB6", "&H76", "&H72", "&HB2", "&HB3", "&H73", "&HB1", "&H71", "&H70", "&HB0", "&H50", "&H90", "&H91", _
"&H51", "&H93", "&H53", "&H52", "&H92", "&H96", "&H56", "&H57", "&H97", "&H55", "&H95", "&H94", "&H54", "&H9C", "&H5C", _
"&H5D", "&H9D", "&H5F", "&H9F", "&H9E", "&H5E", "&H5A", "&H9A", "&H9B", "&H5B", "&H99", "&H59", "&H58", "&H98", "&H88", _
"&H48", "&H49", "&H89", "&H4B", "&H8B", "&H8A", "&H4A", "&H4E", "&H8E", "&H8F", "&H4F", "&H8D", "&H4D", "&H4C", "&H8C", _
"&H44", "&H84", "&H85", "&H45", "&H87", "&H47", "&H46", "&H86", "&H82", "&H42", "&H43", "&H83", "&H41", "&H81", "&H80", _
"&H40")

然后就可以定义 Dim TABLo(), TABHi()

定义后面什么也不用写，写上as string之类的就不能初始赋值了。另外，想换行的话就空格后下划线，这表就很清楚地可用了。

二、对传输字符串的处理

传送的字符串是十六进制的，二个字符构成一个字节，所以在循环读解字符串时要除以2，变成可用于计算机的字节(如果直接定义 Byte 数组一次性装入函数中也是可以的)。

For I = 1 To Len(TestString) / 2        'Convert 2-characters hex into Byte
    CRCindex = CRCHi Xor Val("&H" + Mid$(TestString, I * 2 - 1, 2))
    PP = TABHi(CRCindex): CRCHi = CRCLo Xor Val(PP)
    PP = TABLo(CRCindex): CRCLo = Val(PP)
Next I

注意一下除以2 和形成表索引时的 I*2-1

除了查表法，下面是计算法，也涉及到字符串拆解，供参考。

Private Sub Command1_Click()
Dim TestString
TestString = "010303E80002"
Dim CRC16High As Byte, CRC16Low As Byte, CalCRC16Hi As Byte, CalCRC16Lo As Byte
Dim I As Integer, J As Byte, defCRC16Hi As Byte, defCRC16Lo As Byte

CRC16Low = &HFF
CRC16High = &HFF

defCRC16Hi = &HA0: defCRC16Lo = &H1
  
For I = 0 To Len(TestString) / 2 - 1
    CRC16Low = CRC16Low Xor (Val("&H" + Mid$(TestString, I * 2 + 1, 2)))
    For J = 0 To 7
      CalCRC16Hi = CRC16High
      CalCRC16Lo = CRC16Low
      CRC16High = CRC16High \ 2
      CRC16Low = CRC16Low \ 2
      If ((CalCRC16Hi And &H1) = &H1) Then
        CRC16Low = CRC16Low Or &H80
      End If
      If ((CalCRC16Lo And &H1) = &H1) Then
        CRC16High = CRC16High Xor defCRC16Hi
        CRC16Low = CRC16Low Xor defCRC16Lo
      End If
    Next J
  Next I
  Text1.Text = Hex$(CRC16Low) + Hex$(CRC16High)
End Sub

CRC16是做Modbus RTU编解绕不过去的重要环节，也是做工控必须掌握的，因为太多工业仪表、PLC都用这协议，是不以个人意志为转移的。