程序为VB MODBUS中LRC校验，ASCIIcheck()和 deltaASCII()各自是什么功能？为什么要2段？可以请注释

显示全部楼层 · 2011-7-3 09:24:17

\'ASC校验,此段程序计算出LRC校验值，并加上字头和字尾
PrivateSubASCIIcheck()
Dima%,b%,chrnum%,LrcbyteAsString
Dimchecksum%,char%,AscLrc%,Lrc%

chrnum=Len(Text1text)
Fora=1TochrnumStep2
char=Val(\"16Then\'此段程序是判断Hex(lrc)是否是一位数，
Lrcbyte=\"0\"CStr(Hex(Lrc))\'如果是的话，前面加0；否则不加零
Else
Lrcbyte=CStr(Hex(Lrc))
EndIf
Text1text=CStr(Chr(58))16Then\'此段程序是判断Hex(lrc)是否是一位数，
Lrcbyte=\"0\"CStr(Hex(Lrc))\'如果是的话，前面加0；否则不加零
Else
Lrcbyte=CStr(Hex(Lrc))
EndIf
Text1text=CStr(Chr(2))defds123CStr(Text1text)defds123CStr(Chr(3))defds123Lrcbyte
EndSub

千问 · 2011-7-3 09:24:17

看不懂，ASCIIcheck()和deltaASCII()是什么区别

千问 · 2011-7-3 09:24:17

程序不是用来看的，是用来运行的，你上机运行一下。

千问 · 2011-7-3 09:24:17

我不是来要这种答案的，谢谢！

千问 · 2011-7-3 09:24:17

我也不是来当老师的。

程序为VB MODBUS中LRC校验，ASCIIcheck()和 deltaASCII()各自是什么功能？为什么要2段？ 可以请注释

程序为VB MODBUS中LRC校验，ASCIIcheck()和 deltaASCII()各自是什么功能？为什么要2段？可以请注释