99久久国产综合精品女不卡-99久久好看一级毛片-99久久精品99999久久-99久久精品费精品国产-99久久精品费精品国产一区二

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 ??
請各位指教!!!
jack034
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看jack034的 主題 / 回貼
1樓  發表于: 2008-12-13 00:00
多謝指教!!!

主站蜘蛛池模板: 亚洲精品久久久久久动漫剧情| 精品国产午夜久久久久九九| 欧美巨吊| 91久久国产精品| 亚洲电影一区二区三区| 中国一级毛片aaa片| 国产三级精品视频| 91久久九九精品国产综合| 精品三级国产一区二区三区四区| 色欲综合视频天天天| 日韩a无v码在线播放免费| 欧美禁片在线观看免费| 啪啪欧美| 久久精品播放| 亚洲三级国产| 久久国产乱子伦精品在| 色婷婷综合久久久久中文| 国产精品黄色| 国产成人区| 天天套图| 一级人做人a爰免费视频| 亚洲欧美二区三区久本道| 国产区成人综合色在线| 国产精品成人麻豆专区| 99久热只有精品视频免费观看17 | 欧美成人观看免费版| 高清国产美女一级a毛片录| 精品国产日韩久久亚洲| 免费观看成人欧美1314www | 久久综合九色综合桃花| 亚洲人性生活视频| 综合网女女网| 日日噜噜夜夜狠狠tv视频免费| 在线精品国产| 欧美精品videossex性护士 | 成年午夜性视频免费播放| 国产亚洲欧洲一区二区三区| 黄色片毛片| 边做边摸边揉的免费视频| 亚洲男女视频| xxx免费xx|