请教和校验的问题？

1079

hpwangcheng

文章数：50

年度积分：50

历史总积分：1079

作者的所有帖子(50)

注册时间：2006/2/28

发站内信

发表于：2007/1/12 21:30:00

#0楼

fx2n和VB通过编程口通讯,请问高手，和校验的VB程序如何编辑。

【方案】使用FLIR热像仪，菲亚特汽车质量有保障

只看该作者 | 赞[0] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 结帖 | 管理

2826

流客

文章数：795

年度积分：50

历史总积分：2826

作者的所有帖子(795)

注册时间：2005/8/28

发站内信

发表于：2007/1/12 23:13:00

#1楼

Private Function SumChk(Dats$) As String
Dim i&
Dim CHK&
For i = 1 To Len(Dats)
CHK = CHK + Asc(Mid(Dats, i, 1))
Next i
SumChk = Right(Hex$(CHK), 2)
End Function

[此贴子已经被作者于2007-1-13 8:47:21编辑过]

【方案】小菲课堂｜冬季火灾隐患多，定时检查要牢记！

只看该作者 | 赞[0] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理

1079

hpwangcheng

文章数：50

年度积分：50

历史总积分：1079

作者的所有帖子(50)

注册时间：2006/2/28

发站内信

发表于：2007/1/13 8:11:00

#2楼

流客大侠你好，谢谢回复，在用的时候有个问题：

比如例子:通讯协议
STX ,CMD ,ADDRESS, BYTES, ETX, SUM
02H, 30H, 31H,30H,46H,36H, 30H,34H, 03H, 37H,34H
和校验为：SUM=CMD+......+ETX；
30h+31h+30h+46h+36h+30h+34h+03h=74h;
Dats$为“3031304636303403”吗？可是返回的不是74啊，如何解释？
Dats$如何写，望指教！

【方案】菱机妙用 | PLC网络诊断功能

只看该作者 | 赞[0] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理

电脑编程

工控学堂推荐视频：