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

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编辑过]

我不明白jytemp应不应该给初值给个\"@\"

不懂

[em02]

Dont Know!!