module_crc16校验函数.bas

来自「XWP仪表参数的读取」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module_Crc16校验函数"
Option Explicit

'Crc_16校验函数
Public Function Crc_16(ByVal Data As Long, ByVal Genpoly As Long, ByVal CrcData As Long) As Long
    Dim TmpI As Integer
    Data = Data * 2
    For TmpI = 8 To 1 Step -1
        Data = Fix(Data / 2)
        If ((Data Xor CrcData) And 1) Then
            CrcData = Fix(CrcData / 2) Xor Genpoly
        Else
            CrcData = Fix(CrcData / 2)
        End If
    Next TmpI
    Crc_16 = CrcData
End Function