成人电影在线播放,色婷婷亚洲精品天天综合影院,狠狠躁夜夜躁人人爽野战天天,精品一线二线三线精华液

tangfeng
學海無涯
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 44 個
工控威望: 143 點
下載積分: 922 分
在線時間: 95(小時)
注冊時間: 2010-01-24
最后登錄: 2025-03-05
查看tangfeng的 主題 / 回貼
樓主  發(fā)表于: 2017-09-02 16:50
'在窗體的Load事件中加入下列代碼對串口進行初始化:
Private Sub Form_Load()
  MSComm1.CommPort = 1                  ' 設置通信端口號為COM1
  MSComm1.InputMode = 1                 ' 接收二進制型數(shù)據(jù)
  MSComm1.RThreshold = 1                ' 設置并返回要接收的字符數(shù)
  MSComm1.SThreshold = 1                ' 設置并返回發(fā)送緩沖區(qū)中允許的最小字符數(shù)
  MSComm1.Settings = "9600,E,7,1"       ' 設置串口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
'當退出程序時,關閉串行口
Private Sub Cmdquit_Click()
  MSComm1.PortOpen = False           '關閉串口
  Unload Me
End Sub
// 讀不到PLC 輸入點,下標越界,望高手指點修改
j654346731
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 124 個
工控威望: 216 點
下載積分: 4215 分
在線時間: 145(小時)
注冊時間: 2016-02-18
最后登錄: 2025-02-24
查看j654346731的 主題 / 回貼
1樓  發(fā)表于: 2017-09-06 16:52
收藏了

侵犯人妻教师波多野吉衣| 大长腿白丝被c到爽哭视频| 亚洲AV无码乱码精品国产| 少妇高潮喷水久久久久久久久 | 亚洲欧洲精品一区二区三区波多野 | 办公室丰满秘书bd正在播放 | 村长压在小萍身上耕耘着| 国产亚洲精品久久久无码| 少妇性l交大片| 公妇借种乱h日出水了| 少妇又紧又深又湿又爽视频| 无码国产伦一区二区三区视频| 多人疯狂的在她体内撞np| 无码a片| 日日噜噜噜夜夜爽爽狠狠| 国产偷窥熟女精品视频大全| chinese猛男自慰gv网站| jizzjizz欧美69巨大| 变态另类玩孕妇临盆| 国产黄色视频| 国产又黄又爽又湿的免费网站 | 日本精品巨爆乳无码大乳巨| 亚洲爆乳巨臀无码专区| 色欲av色臀av精东传媒| 狠狠色丁香婷婷综合久久97| 斗罗玉转漫画1—37免费漫画| 国产精品丝袜久久久久久不卡| 蜜芽无码亚洲资源网站| 国产精品久久久久久无码| 暴虐营妓np宫交| 性色av乱码一区二区三区| 少妇厨房愉情理9仑片视频| 免费人成在线观看网站体验站| 亲嘴扒胸摸屁股激烈视频| 妻子3免费完整版hd| 哦┅┅快┅┅用力啊┅┅在线观看 | chinese熟女老太hd| 337p粉嫩大胆色噜噜噜| 大长腿白丝被c到爽哭视频| 国产老色鬼无码免费视频| 丁香花在线视频观看免费|