技术论坛

回复:crc校验

作者 主题
eq
游民

经验值: 60
发帖数: 6
精华帖: 1
回复:crc校验
精华帖精华帖星级2级


只看楼主 只看精华 2014-06-20 19:59:01
自己搞定了,分享一下

FUNCTION "CRC校验" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
db_no : DInt; // 数据块号
db_offset : DInt; // 数据块起始位置
length : Int; // 字节个数
END_VAR

VAR_OUTPUT
low_crc : Byte;
high_crc : Byte;
END_VAR

VAR_TEMP
i : Int;
j : Int;
data_value : Byte; // 需要发送的数据字节
crc_value : Word;
flag : Word;
END_VAR


BEGIN
#crc_value:=16#ffff;//预置CRC寄存器
FOR #j:=0 TO (#length-1) BY 1 DO
#data_value:=PEEK(area:=b#16#84, dbNumber:=#db_no, byteOffset:=(#j+#db_offset));//第一个8位二进制数据
#crc_value:= #data_value XOR #crc_value;// 把第一个8位二进制数据(既通讯信息帧的第一个字节)与CRC寄存器相异或
FOR #i:= 0 TO 7 BY 1 DO
IF (#crc_value AND 16#0001)=0 THEN//移出位为0,把CRC寄存器的内容右移一位
#crc_value:=SHR(IN:=#crc_value ,N:=1);
ELSIF (#crc_value AND 16#0001)=1 THEN//移出位为1,CRC寄存器与多项式A001进行异或,再右移一位
#crc_value:=SHR(IN:=(#crc_value),N:=1)XOR 16#a001;
END_IF;
END_FOR;
END_FOR;
#low_crc:=WORD_TO_BYTE(#crc_value AND 16#00ff);
#high_crc:=WORD_TO_BYTE(SWAP(#crc_value AND 16#ff00));

END_FUNCTION
 
以下网友喜欢您的帖子:

  
重要声明:

著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。

帖子链接:http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1153284&b_id=50&s_id=0&num=0

  • 上一页
  • 1
  • 下一页
收起
回复:crc校验
×
扫描打开手机版
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。