VB 信捷PLC通讯实例

【实例截图】

【核心代码】

Function Chr_crc(data() As Byte) As String                                      'CRC计算函数
    
    Dim CRC16Lo As Byte, CRC16Hi As Byte                                        'CRC寄存器
    Dim CL As Byte, CH As Byte                                                  '多项式码&HA001
    Dim SaveHi As Byte, SaveLo As Byte
    Dim I As Integer
    Dim Flag As Integer
    
    CRC16Lo = &HFF
    CRC16Hi = &HFF
    CL = &H1
    CH = &HA0
    For I = 0 To UBound(data) - 2
        CRC16Lo = CRC16Lo Xor data(I)                                           '每一个数据与CRC寄存器进行异或
        For Flag = 0 To 7
            SaveHi = CRC16Hi
            SaveLo = CRC16Lo
            CRC16Hi = CRC16Hi \ 2                                               '高位右移一位
            CRC16Lo = CRC16Lo \ 2                                               '低位右移一位
            If ((SaveHi And &H1) = &H1) Then                                    '如果高位字节最后一位为1
                CRC16Lo = CRC16Lo Or &H80                                       '则低位字节右移后前面补1
            End If                                                              '否则自动补0
            If ((SaveLo And &H1) = &H1) Then                                    '如果LSB为1，则与多项式码进行异或
                CRC16Hi = CRC16Hi Xor CH
                CRC16Lo = CRC16Lo Xor CL
            End If
        Next Flag
    Next I
    Dim ReturnData(1) As Byte
    ReturnData(0) = CRC16Hi                                                     'CRC高位Return
    ReturnData(1) = CRC16Lo                                                     'CRC低位Return
    Chr_crc = Right("00" Hex(CRC16Lo), 2) Right("00" Hex(CRC16Hi), 2)
End Function