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

gmg320 · 发表于 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!!

		自动登录	找回密码
密码			注册哦