crc16校驗程序vb2010.doc

《crc16校驗程序vb2010.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、完整利用vs2013編輯出來的。首先創(chuàng)建button1組件及TextBox1組件。雙擊button1進入編輯之后如下：Dimstrs=TextBox1.Text.Split("")DimCRC()AsByteDimd(strs.Count-1)AsByte'待傳輸數(shù)據(jù)Fori=0Tostrs.Count-1d(i)=Convert.ToInt16(strs(i),16)NextCRC=CRC16(d)'調(diào)用CRC16計算函數(shù)MsgBox(CRC(1).ToString("x2")&CRC(0).ToString("x2"))'CRC(0

2、)為高位'CRC(1)為低位EndSub'?FunctionCRC16(data()AsByte)AsByte()DimCRC16LoAsByte,CRC16HiAsByte'CRC寄存器DimCLAsByte,CHAsByte'多項式碼&HA001DimSaveHiAsByte,SaveLoAsByteDimiAsIntegerDimFlagAsIntegerCRC16Lo=&HFFCRC16Hi=&HFFCL=&H1CH=&HA0Fori=0ToUBound(data)CRC16Lo=CRC16LoXordata(i)'每一個數(shù)據(jù)與

3、CRC寄存器進行異或ForFlag=0To7SaveHi=CRC16HiSaveLo=CRC16LoCRC16Hi=CRC16Hi2'高位右移一位CRC16Lo=CRC16Lo2'低位右移一位If((SaveHiAnd&H1)=&H1)Then'如果高位字節(jié)最后一位為1CRC16Lo=CRC16LoOr&H80'則低位字節(jié)右移后前面補1EndIf'否則自動補0If((SaveLoAnd&H1)=&H1)Then'如果LSB為1，則與多項式碼進行異或CRC16Hi=CRC16HiXorCHCRC16Lo=CRC16LoXorCLEnd

4、IfNextFlagNextiDimReturnData(1)AsByteReturnData(0)=CRC16Hi'CRC高位ReturnData(1)=CRC16Lo'CRC低位CRC16=ReturnDataEndFunctionEndClass