回复:crc校验

eq

  • 帖子

    6
  • 精华

    1
  • 被关注

    0

论坛等级:游民

注册时间:2005-07-23

普通 普通 如何晋级?

发布于 2014-06-15 20:14:04

1楼

VAR_INPUT
输入起始地址:INT ;
字节数:INT;
END_VAR

VAR_OUTPUT
crc_value:WORD;
END_VAR
VAR_TEMP
flag:WORD
i, j:INT;
END_VAR

BEGIN
#j:=0 ;
FOR #j:=0 TO (#字节数-1) BY 1 DO
#crc_value:=PEEK(area:=b#16#84, dbNumber:=#输入起始地址, byteOffset:=#j) ;
#crc_value:= #crc_value XOR 16#ffff ;
FOR #i:= 0 TO 7 BY 1DO
#flag := #crc_value AND 16#0001 ;
#crc_value:=SHR(IN:=#crc_value, N:=1);
IF #flag=0 THEN
#crc_value:= #crc_value XOR 16#00;
ELSIF #flag=1 THEN
#crc_value:= #crc_value XOR 16#a001;
END_IF;
END_FOR;
END_FOR;
END_FUNCTION
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-1200系列

共有13014条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。