超碰成人av-青青草97-天天做天天躁天天躁-久久精品国产亚洲一区二区-亚洲天堂狠狠干-在线观看欧美精品-国产精品美女一区二区视频-国产成人欧美日韩在线电影-一级片免费看视频-免费国产视频在线观看-伊人网久久久-无码人妻丰满熟妇啪啪网不卡-精品欧美乱码久久久久久-国产真实夫妇视频-中文久草

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
發帖數量: 458 個
工控威望: 433 點
下載積分: 6292 分
在線時間: 42(小時)
注冊時間: 2007-11-15
最后登錄: 2025-09-04
查看一天賊忙的 主題 / 回貼
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
學習了謝謝分享