最新天堂中文在线丨午夜嘿嘿嘿影院丨亚洲国产精品高清久久久丨中文字幕人成乱码熟女app丨www91亚洲丨97成人资源丨成人中文字幕+乱码+中文字幕丨一区二区三区在线 | 日丨日韩免费大片丨亚洲欧美一区二区三区丨国产在线观看a丨亚洲成人第一区丨国内免费视频成人精品丨亚洲综合色网站丨午夜精品美女久久久久av福利丨国产午夜人做人免费视频网站丨国产又黄视频丨97se狼狼狼狼狼亚洲网丨狠狠亚洲婷婷综合色香五月丨中国一级毛片黄丨国产女人十八毛片丨国产色视频在线播放丨国产亚洲精久久久久久无码苍井空丨天天摸日日摸爽爽狠狠丨久久综合香蕉国产蜜臀av

jack034
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看jack034的 主題 / 回貼
樓主  發(fā)表于: 2008-12-05 10:50
Private Function sumchk(data$) As String '求校驗(yàn)和函數(shù)
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

請(qǐng)問(wèn)PLC返回?cái)?shù)據(jù)是什么類型的??假設(shè)Y0--Y7的值為10110111
PLC返回到VB的緩沖區(qū)的值是10110111 還是31H 30H 31H 31H 30H 31H 31H 31H ??
請(qǐng)各位指教!!!
jack034
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看jack034的 主題 / 回貼
1樓  發(fā)表于: 2008-12-13 00:00
多謝指教!!!