7,788
社区成员
发帖
与我相关
我的任务
分享这个函数怎么用- -
Private Function CRC16(data() As Byte) As String
Dim CRC16Hi As Byte
Dim CRC16Lo As Byte
CRC16Hi = &HFF
CRC16Lo = &HFF
Dim i As Integer
Dim iIndex As Long
For i = 0 To UBound(data)
iIndex = CRC16Lo Xor data(i)
CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex)
CRC16Hi = GetCRCHi(iIndex)
Next i
Dim ReturnData(1) As Byte
ReturnData(0) = CRC16Hi
ReturnData(1) = CRC16Lo
CRC16 = ReturnData
End Function
这个函数该怎么用啊
Dim CRC16Hi As Byte
Dim CRC16Lo As Byte
CRC16Hi = &HFF
CRC16Lo = &HFF
Dim i As Integer
Dim iIndex As Long
For i = 0 To UBound(data)
iIndex = CRC16Lo Xor data(i)
CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex)
CRC16Hi = GetCRCHi(iIndex)
Next i
Dim ReturnData(1) As Byte
ReturnData(0) = CRC16Hi
ReturnData(1) = CRC16Lo
CRC16 = ReturnData
End Function
这个函数该怎么用啊
...全文
请发表友善的回复…
发表回复
一如既往哈 2016-03-07
- 打赏
- 举报
sub test
dim byt() as byte
redim byt(2)''一般读取二进制文件到数组，这里省点事，只弄几个
byt(0)=35
byt(1)=54
byt(2)=192
debug.print crc16(byt)
end sub
