免费国精产品自偷自偷免费看_在线看片成人_www.77伦理bt.com_特级黄色一级片_免费夜色污私人影院在线观看_国严精品久久久久久亚洲影视

tangfeng
學(xué)海無(wú)涯
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 44 個(gè)
工控威望: 143 點(diǎn)
下載積分: 922 分
在線時(shí)間: 96(小時(shí))
注冊(cè)時(shí)間: 2010-01-24
最后登錄: 2025-05-25
查看tangfeng的 主題 / 回貼
樓主  發(fā)表于: 2017-09-02 16:50
'在窗體的Load事件中加入下列代碼對(duì)串口進(jìn)行初始化:
Private Sub Form_Load()
  MSComm1.CommPort = 1                  ' 設(shè)置通信端口號(hào)為COM1
  MSComm1.InputMode = 1                 ' 接收二進(jìn)制型數(shù)據(jù)
  MSComm1.RThreshold = 1                ' 設(shè)置并返回要接收的字符數(shù)
  MSComm1.SThreshold = 1                ' 設(shè)置并返回發(fā)送緩沖區(qū)中允許的最小字符數(shù)
  MSComm1.Settings = "9600,E,7,1"       ' 設(shè)置串口1通信參數(shù)
  MSComm1.PortOpen = True               ' 打開(kāi)通信端口1
  Timer1.Enabled = False
End Sub
'向PLC發(fā)送指令:02 30 31 30 30 30 32 30 03 35 36,功能是從D0開(kāi)始讀取32個(gè)字節(jié)數(shù)據(jù)
Private Sub Cmdsend_Click()
  MSComm1.Output = Chr(&H2) & Chr(&H30) & Chr(&H31) & Chr(&H30) & Chr(&H30) & Chr(&H30) & Chr(&H32) & Chr(&H30) & Chr(&H3) & Chr(&H35) & Chr(&H38)
  Timer1.Enabled = True
End Sub
'獲得各輸入端口狀態(tài)
Private Sub Timer1_Timer()
  Dim Inbyte() As Byte
  Dim buffer As String
  ReDim Inbyte(100)
  Inbyte = MSComm1.Input                         '返回的數(shù)據(jù)串
  For i = LBound(Inbyte) To UBound(Inbyte)
     buffer = buffer + Hex(Inbyte(i)) + Chr(32)
  Next i
  'Text1.Text = buffer                            '顯示返回的數(shù)據(jù)串,需自己添加TextBox
  If Hex(Inbyte(2)) = "31" Then                  '31表示觸點(diǎn)閉合
    Shape1(0).FillColor = QBColor(12)
  Else                                           '30表示觸點(diǎn)斷開(kāi)
    Shape1(0).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(6)) = "31" Then
    Shape1(1).FillColor = QBColor(12)
  Else
    Shape1(1).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(10)) = "31" Then
    Shape1(2).FillColor = QBColor(12)
  Else
    Shape1(2).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(14)) = "31" Then
    Shape1(3).FillColor = QBColor(12)
  Else
    Shape1(3).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(18)) = "31" Then
    Shape1(4).FillColor = QBColor(12)
  Else
    Shape1(4).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(22)) = "31" Then
    Shape1(5).FillColor = QBColor(12)
  Else
    Shape1(5).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(26)) = "31" Then
    Shape1(6).FillColor = QBColor(12)
  Else
    Shape1(6).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(30)) = "31" Then
    Shape1(7).FillColor = QBColor(12)
  Else
    Shape1(7).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(34)) = "31" Then
    Shape1(8).FillColor = QBColor(12)
  Else
    Shape1(8).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(38)) = "31" Then
    Shape1(9).FillColor = QBColor(12)
  Else
    Shape1(9).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(42)) = "31" Then
    Shape1(10).FillColor = QBColor(12)
  Else
    Shape1(10).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(46)) = "31" Then
    Shape1(11).FillColor = QBColor(12)
  Else
    Shape1(11).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(50)) = "31" Then
    Shape1(12).FillColor = QBColor(12)
  Else
    Shape1(12).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(54)) = "31" Then
    Shape1(13).FillColor = QBColor(12)
  Else
    Shape1(13).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(58)) = "31" Then
    Shape1(14).FillColor = QBColor(12)
  Else
    Shape1(14).FillColor = QBColor(10)
  End If
  If Hex(Inbyte(62)) = "31" Then
    Shape1(15).FillColor = QBColor(12)
  Else
    Shape1(15).FillColor = QBColor(10)
  End If
  Timer1.Enabled = False
End Sub
'當(dāng)退出程序時(shí),關(guān)閉串行口
Private Sub Cmdquit_Click()
  MSComm1.PortOpen = False           '關(guān)閉串口
  Unload Me
End Sub
// 讀不到PLC 輸入點(diǎn),下標(biāo)越界,望高手指點(diǎn)修改
j654346731
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 124 個(gè)
工控威望: 216 點(diǎn)
下載積分: 4215 分
在線時(shí)間: 145(小時(shí))
注冊(cè)時(shí)間: 2016-02-18
最后登錄: 2025-02-24
查看j654346731的 主題 / 回貼
1樓  發(fā)表于: 2017-09-06 16:52
收藏了
yhtxiao
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 36 個(gè)
工控威望: 145 點(diǎn)
下載積分: 496 分
在線時(shí)間: 69(小時(shí))
注冊(cè)時(shí)間: 2011-05-19
最后登錄: 2025-05-24
查看yhtxiao的 主題 / 回貼
2樓  發(fā)表于: 2017-09-07 21:33
反饋數(shù)據(jù)是8位數(shù)據(jù)  用串口監(jiān)測(cè)軟件看一下數(shù)據(jù)結(jié)構(gòu)應(yīng)該很好理解
duquanplc
DDD
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 260 個(gè)
工控威望: 404 點(diǎn)
下載積分: 703 分
在線時(shí)間: 220(小時(shí))
注冊(cè)時(shí)間: 2008-08-25
最后登錄: 2025-05-01
查看duquanplc的 主題 / 回貼
3樓  發(fā)表于: 2017-09-08 21:57
為什么不用專用協(xié)議做呢?格式一或格式四都可。
不小心遇見(jiàn)你
自動(dòng)項(xiàng)目、PLC、視覺(jué)、通訊等工控軟件開(kāi)發(fā)QQ3515716
級(jí)別: 工控俠客

精華主題: 3 篇
發(fā)帖數(shù)量: 2099 個(gè)
工控威望: 3022 點(diǎn)
下載積分: 25360 分
在線時(shí)間: 1497(小時(shí))
注冊(cè)時(shí)間: 2014-01-05
最后登錄: 2025-05-25
查看不小心遇見(jiàn)你的 主題 / 回貼
4樓  發(fā)表于: 2017-09-09 14:38
不要這樣寫程序 給你推薦個(gè)官方使用的控件即可 使用方便
MX Component
項(xiàng)目、視覺(jué)、通訊QQ3515716
roger614
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 78 個(gè)
工控威望: 235 點(diǎn)
下載積分: 472 分
在線時(shí)間: 154(小時(shí))
注冊(cè)時(shí)間: 2007-10-28
最后登錄: 2018-09-26
查看roger614的 主題 / 回貼
5樓  發(fā)表于: 2018-03-10 14:15
用4樓方法編寫簡(jiǎn)單
gafika
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 17 個(gè)
工控威望: 395 點(diǎn)
下載積分: 2341 分
在線時(shí)間: 41(小時(shí))
注冊(cè)時(shí)間: 2018-02-16
最后登錄: 2025-05-02
查看gafika的 主題 / 回貼
6樓  發(fā)表于: 2018-03-10 18:26
ASCII 跟 HEX 要先搞清楚。

主站蜘蛛池模板: 国产日产欧产精品精乱了派 | 成视频免费观看在线看 | 亚洲精品一区二区三区不 | 国产精品wwwwww | 亚洲性爱之日本精品视频 | 国产精品久久久久久精 | av集市| 9熟女PRO内射 | 久久精品欧美一区二区三区黑人 | 久久极品视频 | 夜夜爱天天干 | 一女被两男吃奶玩乳尖 | 久久999精品 | 欧美在线视频第一页 | 大地资源视频在线观看免费高清 | 欧美69久成人做爰视频 | 欧美日韩一区二区在线观看视频 | 一区二区三区日本久久久 | 红桃影视成人免费 | 免费A级毛片无码蜜芽欣赏网 | 日本做暖暖影院免费视频大全 | 美女视频黄免费观看 | 天干天干天啪啪夜爽爽AV | 免费一级特黄做受大片 | 涩涩涩涩涩涩涩涩涩 | 中文字幕综合在线观看 | 91精品国产综合久久久密臀九色 | 亚洲18色成人网站www | 亚洲欧洲国产一区二区三区 | 99re免费视频精品全部 | av网在线看 | 女人内谢免费看片 | 爱爱免费| gogo全球大胆高清人露出91 | 中文字幕在线视频免费播放 | 人人插人人草 | 牛和人交xxxx欧美 | 给我免费播放片高清在线观看视频 | chinese中国女人高潮 | 国产91精品一区二区绿帽 | 网红主播大秀福利视频日韩精品 |