三a级做爰片免费观看玉蒲团,玩丰满熟妇XXXX视频,国产精品乱在线欧美一区,俺要鲁久久久久久久久久

tangfeng
學(xué)海無涯
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 44 個
工控威望: 143 點
下載積分: 922 分
在線時間: 96(小時)
注冊時間: 2010-01-24
最后登錄: 2025-05-15
查看tangfeng的 主題 / 回貼
樓主  發(fā)表于: 2017-09-02 16:50
'在窗體的Load事件中加入下列代碼對串口進行初始化:
Private Sub Form_Load()
  MSComm1.CommPort = 1                  ' 設(shè)置通信端口號為COM1
  MSComm1.InputMode = 1                 ' 接收二進制型數(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               ' 打開通信端口1
  Timer1.Enabled = False
End Sub
'向PLC發(fā)送指令:02 30 31 30 30 30 32 30 03 35 36,功能是從D0開始讀取32個字節(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表示觸點閉合
    Shape1(0).FillColor = QBColor(12)
  Else                                           '30表示觸點斷開
    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
'當退出程序時,關(guān)閉串行口
Private Sub Cmdquit_Click()
  MSComm1.PortOpen = False           '關(guān)閉串口
  Unload Me
End Sub
// 讀不到PLC 輸入點,下標越界,望高手指點修改
gafika
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 17 個
工控威望: 395 點
下載積分: 2341 分
在線時間: 41(小時)
注冊時間: 2018-02-16
最后登錄: 2025-05-02
查看gafika的 主題 / 回貼
1樓  發(fā)表于: 2018-03-10 18:26
ASCII 跟 HEX 要先搞清楚。

久久69熟女伦国产高清| 亚洲欧美婷婷五月色综合| 鸡巴插嫩逼电影| 国产特色毛片aaaaa| 久久 国产 尿 小便 嘘嘘| 中文字幕av网一区二区| 黑人寂寞午夜福利视频网站| 黑丝女生舔男生下面视频| 久久水蜜桃网成人网2区| 亚洲乱码一区二区三区四区| 囗交口爆到深喉在线视频| 黄色视频美女被操啊啊啊| 大波大乳video巨大| 精品久久一线二线三线区| 免费费很色大片欧一二区| 偷大战少妇激情在线播放| 五月丁香综合激情 动图| 国产成人av无码永久免费一线天| 大鸡巴日逼视频| 大黑鸡巴操逼网| 福利视频1000合集午夜| 啊啊啊啊大鸡巴操我视频| 亚洲影院天堂中文av色| 最新av资源每日更新网| 久久精品人妻一区二区蜜桃| 粗大插逼舒服哦哦哦视频| 亚州一区二区三区在线视频| 国产欧美久久久久爽精品| 国产三级不卡视频在线观看| 又粗又硬又黄有爽的视频| 狼友网精品视频在线观看| 精品无码久久久久久久久水蜜桃| 性爱天天日天天干天天操| 欧美激情欧美狂野欧美精品| www香蕉久久五月丁香| 久久资源综合网| 天天爱天天做狠狠久久做| 美女和男生生孩子啊啊啊| 成人免费视频在线观看| 久久久久久久久久人妻精品| 啊啊啊那种视频|