[问答]

CRC16的计算校验码的方式有哪几种？

2508 RTU

问答对人有帮助，内容完整，我也想知道答案 0 CRC16的计算校验码的方式有哪几种？如何使用Delphi编写Modbus RTU CRC16的校验码？ 0
2021-11-3 07:20:27　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × bertvwang 该类别下有 10 个回答。邀请回答纯纯纯牛奶该类别下有 10 个回答。邀请回答王伟01 该类别下有 9 个回答。邀请回答幽默该类别下有 9 个回答。邀请回答 Ehunt 该类别下有 8 个回答。邀请回答 tutu304725938 该类别下有 8 个回答。邀请回答 dahairenlyy 该类别下有 8 个回答。邀请回答凌晨3点睡该类别下有 8 个回答。邀请回答 fhbding 该类别下有 8 个回答。邀请回答 hzp_bbs1 该类别下有 8 个回答。邀请回答笔画张该类别下有 8 个回答。邀请回答偶是糕富帅该类别下有 8 个回答。邀请回答 kmno4 该类别下有 7 个回答。邀请回答 djelje 该类别下有 7 个回答。邀请回答雅博电子科技该类别下有 7 个回答。邀请回答 liutiefu 该类别下有 7 个回答。邀请回答 pingnai 该类别下有 7 个回答。邀请回答低调de炫耀爱该类别下有 7 个回答。邀请回答 jenny042 该类别下有 7 个回答。邀请回答 wenminglang 该类别下有 7 个回答。邀请回答举报早知相关推荐 • 求基于LABVIEW编程的CRC16/X25校验码校验程序 17771 • LABVIEW编写的程序CRC16 X32得到的校验码不正确，请大家帮我看哈是哪里的问题，谢谢 9109 • 求Modbus CRC16的计算程序。其中的用于异或操作的固定值为是0XA001。 4923 • 串口通讯波特率设置的大小对CRC校验码的影响 3002 • modbus_rtu crc16校验 6703 • CRC16在校验数据的时候怎么减少计算量？ 362 • 请问CRC16校验码的程序该怎样编写？ 2225 • CRC校验获取不到正确的CRC值 14626 • 单片机校验码计算问题 2434 • 探讨一下，CRC校验的优势 5703 1个回答

答案对人有帮助，有参考价值 0 在工业控制中，Modbus RTU CRC16的校验码用的比较广泛，包括本人富士产品中，PC与伺服电机以及PC与VP系列的变频器的Modbus RTU通讯中都使用到了CRC16. 而对CRC16的计算的方式基本上有2种：第一种，使用双循环依照CRC的计算方法进行计算，第二种，采用查表的方式。本人愚钝无比，从网络上搜来的查表法都与实际的正确CRC16的结果有所差异，因此编写了一个小程序供自己使用。软件的界面很简单，输入诸如“010303020014”的值，然后每2个字符作为一个字节，填入字节数，然后就可以计算出校验码，校验码的多项式为：X16+X15+X2+1. 实现的源代码如下： 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用于计算Modbus RTU的CRC16 // 多项式公式为X16+X15+X2+1 //×××××××××××××××××××××××××× function TForm1.CalCRC16(AData:array of Byte;AStart,AEnd:Integer):Word; const GENP=$A001; //多项式公式X16+X15+X2+1（1100 0000 0000 0101） var crc:Word; i:Integer; tmp:Byte; procedure CalOneByte(AByte:Byte); //计算1个字节的校验码 var j:Integer; begin crc:=crc xor AByte; //将数据与CRC寄存器的低8位进行异或 for j:=0 to 7 do //对每一位进行校验 begin tmp:=crc and 1; //取出最低位 crc:=crc shr 1; //寄存器向右移一位 crc:=crc and $7FFF; //将最高位置0 if tmp=1 then //检测移出的位，如果为1，那么与多项式异或 crc:=crc xor GENP; crc:=crc and $FFFF; end; end; begin crc:=$FFFF; //将余数设定为FFFF for i:=AStart to AEnd do //对每一个字节进行校验 CalOneByte(AData); 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; //读入欲校验的字符串 Count:=StrToInt(form1.Edit3.Text); //读入需要计算的字符串长度 i:=1; j:=0; for j:=0 to Count-1 do begin if (i mod 2)=0 then //每2个字符放入一个字节中 i:=i+1; if i>=Length(szData) then exit; Data[j]:=StrToInt('$'+copy(szData,i,2)); //取出字符并转换为16进制数 i:=i+1; end; Res:=CalCRC16(Data,Low(Data),Count-1); form1.Edit1.Text:=IntToHex(Res,4); end; end.

2021-11-3 09:28:19 评论举报黄长梅