/*********************
Get CRC
*********************/
Unsigned short get_crc(buffer,count)
Unsigned char * buffer;
Int count;
{
Unsigned short code;
Unsigned short crc;
crc=0;
while (count--)
{
Code=(crc>>8) & oxff;
Code^=(*buffer ++ & oxff);
Code^=code >> 4;
Crc << = 8;
Crc^=code;
Crc << =5;
Crc^=code;
Crc << =7;
Crc^=code;
}
Return crc;
}
uj5u.com熱心網友回復：
不要做A語言代碼修改為B語言代碼的無用功。也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
uj5u.com熱心網友回復：
請問 這段 代碼 是一般 我們 使用的CRC16 嗎？
uj5u.com熱心網友回復：
不知道，參考CRC16對應的運算式uj5u.com熱心網友回復：
常用的 CRC-16 也有許多種協議。
uj5u.com熱心網友回復：
請問您能幫我把這段代碼翻譯成VB版本嗎？？
uj5u.com熱心網友回復：
不一定對，僅供參考：/*********************
Get CRC
*********************/
Public Function get_crc(buffer as Byte(),count as Long) as Long ' unsigned short get_crc(buffer,count)
' unsigned char * buffer;
' int count;
Dim i As Long ' {
Dim code As Long ' unsigned short code;
Dim crc As Long ' unsigned short crc;
i=0 '
crc=0 ' crc=0;
Do ' while (count--)
count=count-1:If count=0 Then Exit Do ' {
code=crc\256 mod 256 ' code=(crc>>8) & 0xff;
code=code xor buffer(i):i=i+1 ' code^=(*buffer ++ & 0xff);
'
code=code xor (code\64) ' code^=code >> 4;
crc=crc*256 ' crc << = 8;
crc=crc xor code ' crc^=code;
crc=crc*32 ' crc << =5;
crc=crc xor code ' crc^=code;
crc=crc*128 ' crc << =7;
crc=crc xor code ' crc^=code;
Loop ' }
get_crc=crc ' return crc;
End Function ' }
uj5u.com熱心網友回復：
會溢位的。每一步移位（乘法）之后，都要將最高 2 位元組清掉：crc = (crc*128) And &HFFFF&
或
crc = (crc*128) Mod 65536
問題是，樓主都不知道這是否他要用的協議。也沒有除錯用的基準資料（輸入訊息和 CRC 結果），無法驗證是否正確。
uj5u.com熱心網友回復：
VB6.0通過的CRC16代碼：Public Function CRC16(data() As Byte) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC暫存器
Dim CL As Byte, CH As Byte '多項式碼&HA001
Dim CRCLo As String, CRCHi As String
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)
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
If Len(Hex(CRC16Hi)) = 1 Then
CRCHi = "0" + Hex(CRC16Hi)
Else
CRCHi = Hex(CRC16Hi)
End If
If Len(Hex(CRC16Lo)) = 1 Then
CRCLo = "0" + Hex(CRC16Lo)
Else
CRCLo = Hex(CRC16Lo)
End If
CRC16 = CRCLo + CRCHi
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/118097.html
標籤：VB基礎類
上一篇：能不能在excel獲取其他外在程式(word或cad)的事件
下一篇：新手求一個VBA自定義函式