jack034
级别: *
精华主题: * 篇
发帖数量: * 个
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *
最后登录: *
查看jack034的 主题 / 回贴
楼主  发表于: 2008-12-05 10:50
Private Function sumchk(data$) 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

Private Sub Form_Load() '初始化
MSComm1.PortOpen = True
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,1"
MSComm1.InputLen = 0
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Dim sd As String
Dim rd As String
sd = "00" + "FF" + "BR" + "0" + "Y0000" + "08"
MSComm1.Output = Chr$(5) + djsd + sumchk(sd)
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 13
rd = MSComm1.Input

请问PLC返回数据是什么类型的??假设Y0--Y7的值为10110111
PLC返回到VB的缓冲区的值是10110111 还是31H 30H 31H 31H 30H 31H 31H 31H ??
请各位指教!!!
一天贼忙
级别: 略有小成
精华主题: 0
发帖数量: 476 个
工控威望: 433 点
下载积分: 6292 分
在线时间: 41(小时)
注册时间: 2007-11-15
最后登录: 2024-05-23
查看一天贼忙的 主题 / 回贴
1楼  发表于: 2008-12-11 13:36
是B7,也就是42 37 但还有起始停止和检验位
混灌水区的!
jack034
级别: *
精华主题: * 篇
发帖数量: * 个
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *
最后登录: *
查看jack034的 主题 / 回贴
2楼  发表于: 2008-12-13 00:00
多谢指教!!!
s_chen
级别: *
精华主题: * 篇
发帖数量: * 个
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *
最后登录: *
查看s_chen的 主题 / 回贴
3楼  发表于: 2008-12-13 07:29
学习了谢谢分享