国产狂喷潮在线观看-日韩a∨无码中文无码电影-精品午夜中文字幕熟女人妻在线-国内精品久久久久久久电影视-成人欧美一区二区三区a片

tangfeng
學海無涯
級別: 探索解密
精華主題: 0
發帖數量: 44 個
工控威望: 143 點
下載積分: 922 分
在線時間: 98(小時)
注冊時間: 2010-01-24
最后登錄: 2025-07-22
查看tangfeng的 主題 / 回貼
樓主  發表于: 2017-09-02 16:50
'在窗體的Load事件中加入下列代碼對串口進行初始化:
Private Sub Form_Load()
  MSComm1.CommPort = 1                  ' 設置通信端口號為COM1
  MSComm1.InputMode = 1                 ' 接收二進制型數據
  MSComm1.RThreshold = 1                ' 設置并返回要接收的字符數
  MSComm1.SThreshold = 1                ' 設置并返回發送緩沖區中允許的最小字符數
  MSComm1.Settings = "9600,E,7,1"       ' 設置串口1通信參數
  MSComm1.PortOpen = True               ' 打開通信端口1
  Timer1.Enabled = False
End Sub
'向PLC發送指令:02 30 31 30 30 30 32 30 03 35 36,功能是從D0開始讀取32個字節數據
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
'獲得各輸入端口狀態
Private Sub Timer1_Timer()
  Dim Inbyte() As Byte
  Dim buffer As String
  ReDim Inbyte(100)
  Inbyte = MSComm1.Input                         '返回的數據串
  For i = LBound(Inbyte) To UBound(Inbyte)
     buffer = buffer + Hex(Inbyte(i)) + Chr(32)
  Next i
  'Text1.Text = buffer                            '顯示返回的數據串,需自己添加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
發帖數量: 124 個
工控威望: 216 點
下載積分: 4215 分
在線時間: 145(小時)
注冊時間: 2016-02-18
最后登錄: 2025-07-02
查看j654346731的 主題 / 回貼
1樓  發表于: 2017-09-06 16:52
收藏了
yhtxiao
級別: 探索解密
精華主題: 0
發帖數量: 36 個
工控威望: 145 點
下載積分: 496 分
在線時間: 69(小時)
注冊時間: 2011-05-19
最后登錄: 2025-05-24
查看yhtxiao的 主題 / 回貼
2樓  發表于: 2017-09-07 21:33
反饋數據是8位數據  用串口監測軟件看一下數據結構應該很好理解
duquanplc
DDD
級別: 略有小成
精華主題: 0
發帖數量: 260 個
工控威望: 404 點
下載積分: 703 分
在線時間: 221(小時)
注冊時間: 2008-08-25
最后登錄: 2025-07-22
查看duquanplc的 主題 / 回貼
3樓  發表于: 2017-09-08 21:57
為什么不用專用協議做呢?格式一或格式四都可。
不小心遇見你
自動項目、PLC、視覺、通訊等工控軟件開發QQ3515716
級別: 工控俠客

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

主站蜘蛛池模板: 亚洲色婷婷综合久久| 天干天干夜天干天天爽| 日韩高清在线观看永久| 97se狠狠狠狠狼亚洲综合网| 国产精品久久久久久久久久久久人四虎| 在线精品国产大象香蕉网 | 国内精品人妻久久毛片app| 94久久国产乱子伦精品免费 | 99久久夜色精品国产网站| 无套内射极品少妇chinese| 97久久超碰亚洲视觉盛宴| 三级国产三级在线| 2021精品国产自在现线看| 少妇群交换bd高清国语版| 九九九免费观看视频| 亚洲午夜福利在线视频| 成人午夜福利免费专区无码| 国色天香国产精品| 欧美人妻少妇精品久久黑人| av天堂午夜精品一区| 欧美伊人色综合久久天天| 精品国产麻豆免费人成网站| 午夜理伦三级理论三级| 无码人妻精品一区二区三区免费| 亚洲熟女乱综合一区二区在线| 永久免费看一区二区看片| 国产精品中文久久久久久久| 免费国产成人高清在线网站| 亚洲欧洲日产国码aⅴ| 中文字幕av一区二区三区人妻少妇| 国产午国产午夜精华 免费| 护士av无码在线观看| 性夜影院爽黄e爽| 亚洲精品色播一区二区| 少妇激情一区二区三区视频 | 人妻无码全彩里番acg视频| 亚洲精品国产精品国自产观看| 丰满熟女高潮毛茸茸欧洲视频| 少妇人妻在线无码天堂视频网| 久99久精品免费视频热| 少妇扒开双腿让我看个够|