參與評(píng)論

評(píng)論

登錄后參與評(píng)論

全部評(píng)論(1條)

• 

  張章長(zhǎng) 2016-12-24 00:00:00

  在工業(yè)控制中，Modbus RTU CRC16的校驗(yàn)碼用的比較廣泛，包括本人富士產(chǎn)品中，PC與伺服電機(jī)以及PC與VP系列的變頻器的Modbus RTU通訊中都使用到了CRC16. 而對(duì)CRC16的計(jì)算的方式基本上有2種：diyi種，使用雙循環(huán)依照CRC的計(jì)算方法進(jìn)行計(jì)算，第二種，采用查表的方式。本人愚鈍無(wú)比，從網(wǎng)絡(luò)上搜來(lái)的查表法都與實(shí)際的正確CRC16的結(jié)果有所差異，因此編寫了一個(gè)小程序供自己使用。 軟件的界面很簡(jiǎn)單，輸入諸如“010303020014”的值，然后每2個(gè)字符作為一個(gè)字節(jié)，填入字節(jié)數(shù)，然后就可以計(jì)算出校驗(yàn)碼，校驗(yàn)碼的多項(xiàng)式為：X16+X15+X2+1. 程序界面如下： 實(shí)現(xiàn)的源代碼如下： unit Unit1; interface uses Windows， Messages， SysUtils， Variants， Classes， Graphics， Controls， Forms， Dialogs， StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; Label4: TLabel; function CalCRC16(AData:array of Byte;AStart，AEnd:Integer):Word; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //×××××××××××××××××××××××××× // CalCRC16用于計(jì)算Modbus RTU的CRC16 // 多項(xiàng)式公式為X16+X15+X2+1 //×××××××××××××××××××××××××× function TForm1.CalCRC16(AData:array of Byte;AStart，AEnd:Integer):Word; const GENP=$A001; //多項(xiàng)式公式X16+X15+X2+1（1100 0000 0000 0101） var crc:Word; i:Integer; tmp:Byte; procedure CalOneByte(AByte:Byte); //計(jì)算1個(gè)字節(jié)的校驗(yàn)碼 var j:Integer; begin crc:=crc xor AByte; //將數(shù)據(jù)與CRC寄存器的低8位進(jìn)行異或 for j:=0 to 7 do //對(duì)每一位進(jìn)行校驗(yàn) begin tmp:=crc and 1; //取出Z低位 crc:=crc shr 1; //寄存器向右移一位 crc:=crc and $7FFF; //將Z高位置0 if tmp=1 then //檢測(cè)移出的位，如果為1，那么與多項(xiàng)式異或 crc:=crc xor GENP; crc:=crc and $FFFF; end; end; begin crc:=$FFFF; //將余數(shù)設(shè)定為FFFF for i:=AStart to AEnd do //對(duì)每一個(gè)字節(jié)進(jìn)行校驗(yàn) CalOneByte(AData[i]); Result:=crc; end; procedure TForm1.Button1Click(Sender: TObject); var Data:array[0..255] of Byte; i，j，Count:Integer; Res:Word; szData:string; begin szData:=Form1.Edit2.Text; //讀入欲校驗(yàn)的字符串 Count:=StrToInt(form1.Edit3.Text); //讀入需要計(jì)算的字符串長(zhǎng)度 i:=1; j:=0; for j:=0 to Count-1 do begin if (i mod 2)=0 then //每2個(gè)字符放入一個(gè)字節(jié)中 i:=i+1; if i>=Length(szData) then exit; Data[j]:=StrToInt('$'+copy(szData，i，2)); //取出字符并轉(zhuǎn)換為16進(jìn)制數(shù) i:=i+1; end; Res:=CalCRC16(Data，Low(Data)，Count-1); form1.Edit1.Text:=IntToHex(Res，4); end; end.

  贊(1)

  回復(fù)(0)

  評(píng)論

  評(píng)論

  登錄后參與評(píng)論