高手帮我来看看这个LRC校验的子程序对不对(VB)写的

[复制链接]
查看2220 | 回复4 | 2007-5-26 10:50:00 | 显示全部楼层 |阅读模式

PLC是欧姆龙的CJ1M

我对LRC校验不是很熟悉

谢谢指教

jytemp="@"
For i = 1 To Len(StrIn)
jytemp = Asc(m i* d$(StrIn, i, 1)) Xor jytemp
Next i
FcsResult = Hex$(jytemp)

[此贴子已经被作者于2007-5-26 10:57:56编辑过]
gmg320 | 2007-5-26 14:54:00 | 显示全部楼层
我不明白jytemp应不应该给初值给个\"@\"
zhuyanbin | 2007-5-26 15:40:00 | 显示全部楼层

不懂

Wcn2007 | 2007-5-28 11:06:00 | 显示全部楼层

[em02]

Dont Know!!

您需要登录后才可以回帖 登录 | 注册哦

本版积分规则