国产一区二区三区毛片_亚洲乱码AV中文一区二区_亚洲精品无码专区在线播放_日韩欧美一二_咪咪av影院_欧久久av一区二区

tangfeng
學海無涯
級別: 探索解密
精華主題: 0
發帖數量: 44 個
工控威望: 143 點
下載積分: 922 分
在線時間: 97(小時)
注冊時間: 2010-01-24
最后登錄: 2025-05-26
查看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-02-24
查看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 分
在線時間: 220(小時)
注冊時間: 2008-08-25
最后登錄: 2025-05-01
查看duquanplc的 主題 / 回貼
3樓  發表于: 2017-09-08 21:57
為什么不用專用協議做呢?格式一或格式四都可。
不小心遇見你
自動項目、PLC、視覺、通訊等工控軟件開發QQ3515716
級別: 工控俠客

精華主題: 3 篇
發帖數量: 2099 個
工控威望: 3022 點
下載積分: 25360 分
在線時間: 1498(小時)
注冊時間: 2014-01-05
最后登錄: 2025-05-28
查看不小心遇見你的 主題 / 回貼
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-28
查看gafika的 主題 / 回貼
6樓  發表于: 2018-03-10 18:26
ASCII 跟 HEX 要先搞清楚。

主站蜘蛛池模板: 久久久久久99精品_成年美女黄的视频网站_国产一区二区三区四区区_亚洲欧美日韩在线播放_国产三区四区视频_四虎永久在线精品免费看_wwwxxx日韩_一级黄色毛片视频 | 一区视频在线免费观看_久久天天躁夜夜躁狠狠_亚洲精品一级_成人性生交大片看1_xxx国产精品视频xxx软件_免费人妻无码不卡中文字幕系列_97超碰免费人人看人人_亚洲午夜一二三区视频 | 人妻暴雨中被强制侵犯_久久久久久久无码高潮_欧美xxxx做受欧美88bbw_国产男女猛视频在线观看_啦啦啦免费视频播放_99视频福利_99re这里只有精品在线_老司机成人精品视频 | 人间精品视频在线播放_av免费网站大全_国产精品久久久久久久久久久杏吧_男人和女人做爽爽视频_精品无人乱码一区二区三区_久久精品国产亚洲av香蕉_亚洲男人的天堂视频_国产欧美一区二区精品老汉影院 | 19禁国产精品福利视频_www黄在线观看_日韩av无码久久一区二区_97超碰国产在线_中文字幕.亚洲无码日_成人免费无码A毛片_青青草在久久免费久久免费_国产午夜性春猛交ⅹxxx | 野花社区无码HD在线播放_最新的中文字幕_国产私拍精品88福利视频_黄色片在线观看网址_蜜桃成人在线视频_九色在线_青青草污_久久精品欧美 | 亚洲AV最新在线网址18禁_巨熟乳波霸若妻在线播放_少妇福利视频_WWW亚洲精品久久久_亚洲精品国产成人久久av盗摄_久久精品亚洲一区二区三区画质_涩涩爱97_成人免费视频无码专区 | www.日韩av_日韩日日操_国产免费又色又爽又黄又猛小说_日本在线一级_亚洲国产一区二区a毛片_亚洲成人综合视频_国产成人av三级在线播放_免费在线观看www | 中文字幕在线观看三区_国产三级农村妇女在线播放_国产91在线看_玩弄chinese丰满人妻videos_国产一区二区三区视频免费_久艹久久_成人网子_91女女互慰吃奶在线 | 亚洲激情91_久久久久高潮综合影院_妓女av导航福利_把女邻居弄到潮喷的性经历_国产人成免费视频_国产亚洲成AⅤ人片在线观看不卡_日本免费a级片_亚洲人人在线 | 男女啪啪无遮挡免费网站_www.com黄色_亚洲日产无码中文字幕_人人澡人人妻人人爽人人蜜桃_伊人伊成久久人综合网996_久爱视频免费_中文字幕在线网_A片免费观看一区二区三一区 | 日韩精品极品视频在线观看免费_免费日韩av在线_欧美丰满少妇XXXX性_国产精品久久久久影院日本_国产成人亚洲综合无码精品_日b视频免费观看_黄色片免费观看_亚洲黄色站 | 国产免费观看一区二区三区_狼人视频国产在线视频WWW色_色欧美与xxxxx_日韩欧美一区二区免费_亚洲国产aⅴ精品一区二区三区_日本黄色一级视频_精品成人一区二区三区_国产精品合集久久久久青苹果 | 国产无遮挡a片又黄又爽_亚洲福利国产_av中文字幕在线播放_国产极品紧身牛仔裤av片_性中国xxxx肥老妇人_巴西一级毛片_超碰天天操_国产xxxx成人精品免费视频频 | 日本乱码一区二区_成人精品视频免费在线观看_在线观看日本亚洲一区_日韩欧美MV在线观看免费_久久久亚洲国产美女国产盗摄_www.日本黄_老少配XX丰满老熟妇_欧美奶涨边摸边做爰视频 | 色国产精品女五丁香五月五月_99tv成人_性色a∨精品高清在线观看_国产精品一级黄片免费在线观看_亚洲天堂高清_日本高清一道本_大胆精选欧美gogo人体_久久婷婷五月综合97色一本一本" | 九色蝌蚪在线观看_中国精品自拍_日韩在线精品_国产精品人妻_国产成人无码区免费A∨视频网站_久久偷人_日本精品黄色_午夜操操 | 色视频中文字幕_亚洲性色成人av_外国黄色一级毛片_亚洲国产wwwccc36天堂_国产日韩精品久久久无码专区_久草精品视频在线观看_国产欧美精品aaaaa久久_精品国产一区二区在线观看 | 91精品国产免费久久综合_无码无遮挡在线观看免费_精品国产乱码久久久久久1区2匹_欧美乱码卡1卡2卡三卡四卡_日本最新一区二区三区_一道精品一区二区三区_日日操日日插_成人做爰69片免费看网站野花 | 亚洲欧美字幕_香蕉视频你懂的_成人免费看片a_花样男子版韩剧免费观看_久久密av_亚洲最大成人综合网720P_欧美在线网址_乱精品一区字幕二区 | 精品国产乱码一区_亚洲AV中文无码乱人伦在线视色_天堂爱爱_久操热久操_国产农村妇女野外牲交视频_亚洲一区午夜_精品综合_国产资源免费在线观看 | 色播基地_久久精品女人天堂av_日韩精品卡1卡2三卡四卡乱码_亚洲国产精品无码AAA片_国产精品久久久久毛片软件_欧美男男大粗吊1069_免费看av大片_一个人看的www免费高清在线视频 | 18禁裸乳无遮挡免费观看_欧美网站一区二区三区_国产精品国产三级国产专业不_成人午夜在线免费观看_国产对白叫床清晰在线播放_毛片网站在线免费观看_黄色在线视频网站_综合九九 | 日本高清黄_亚洲制服丝袜中文字幕自拍_人与动人物xxxx毛片在线播放_麻豆精品91_99re这里只有精品6_亚洲欧美日本综合_亚洲Aⅴ在线无码播放毛片一线天_午夜无码一区二区三区在线观看 | 欧乱色国产精品兔费视频_看黄网站在线观看_日日干夜夜操s8_一区二区三区偷拍_九九久久自然熟的香蕉图片_久久精品亚洲精品无码白云TV_亚洲成aⅴ人片久青草影院按摩_久久机这里只有精品 | 国产真实乱全部视频_在线男人天堂网_超级av在线天堂东京热_ww久久综合久中文字幕_成人黄色一区二区_国产av午夜精品一区二区三_sdde在线播放一区二区_成全免费在线看片 中文人字幕第三页_无码纯肉视频在线观看_99re国产在线播放_日本欧美高清全视频_日韩七区_亚洲第一最快AV网站_中日韩欧美风情视频_欧美成人一区二 | 黄色免费观看_在线欧美国产_日日躁夜躁aaaaxxxx_老师露出两个奶球让我吃奶头_aa国产_高清freexxxx性国产意思_午夜射精日本三级_夜夜爽欧美肥妇xxxx | 麻花豆剧国产mv免费版特色_亚洲精品影院在线观看_欧美性生活一级_亚洲天堂av线_黄色成人网战_a级免费观看_92午夜免费福利757_国产AV国片精品无套内谢蜜臀 | jizz18欧美18_国产精品99久久久久久久久久_国外亚洲成av人片在线观看_三叶草欧码成人毛片_亚洲人影院_国产一区二区三四区_粉嫩高中生无码视频在线观看_日本A∨精品一区二区三区 | 国产精品国产三级国产av′_www国产精品_www.精品视频_奇米在线7777在线精品_性生交裸片免费看_91爱观看在线_夜夜草影院_中文字幕亚洲日本 | 野花社区无码HD在线播放_最新的中文字幕_国产私拍精品88福利视频_黄色片在线观看网址_蜜桃成人在线视频_九色在线_青青草污_久久精品欧美 | 亚洲精品hd_亚洲天堂伊人网_免费观看一区二区三区毛片软件_成年人黄色片_中国特黄视频_五月久久久综合一区二区人妻_日韩综合_日本超碰在线观看 | 精品va久久久噜噜久久软件_慈禧秘传免费看_成人成人成人在线视频_俺去俺来也www色老板_99国产99_天天干夜夜_亚洲欧美小视频_国产一区不卡视频 | 高h粗口_日本黄色三级网站_黄色av大全_少妇饥渴偷公乱第一章全文_精品免费久久久国产一区_国产乱人_国产精品久久久国产盗摄_欧美亚洲人成在线 | 一级国产黄色毛片_蜜桃一区二区三区在线_黄瓜视频成人在线观看_91精产国品一二三区_日韩欧美国产专区_久久久久久午夜噜噜噜噜蜜臀av_亚洲高清无码加勒比_伸进她的小内裤里疯狂揉摸小说 | 久青草视频在线播放_男男短篇高h肉辣合集_北条麻妃中文精品国产_国产成人黄色片_中文字幕中文字幕在线中心一区_97插插_中文字幕综合在线观看_亚洲chinese男同志gay在线 | 国内精品久久久久久不卡影院_国产清纯美女白浆在线播放_aav在线_日韩成人一区二区三区在线观看_欧美在线_欧美人与拘性视交_欧美视频成人_国产情侣一区二区| 在线看片无码永久免费视频_第一区第二区在线_韩国理伦三级做爰在线播放_日本三级香港三级人妇久久_蝌蚪久久窝_国厂毛片_亚洲一级黄色片子_久久精品丝袜高跟鞋 | 成人无码视频在线观看网站_快色91_国产欧美日韩一区二区三区在线_在线看黄色_极品销魂美女一区二区_无码成人一区二区三区_videos日本多毛hd护士_人妻互换HD无码中文在线 | 国产亚洲精_国产精品久久久久影院亚瑟_亚洲人成欧美中文字幕_石原莉奈在线观看视频_久久综合99re88久久爱小说_亚洲香蕉视频天天爽_午夜时刻免费入口_中国极品少妇xxxxx69 | 色视频91_hd老熟女bbn_少妇无码中文丰满Av_男女免费在线观看_国产香线蕉手机视频在线观看_夜夜高潮夜夜爽夜夜爱_91资源在线观看_日本少妇寂寞少妇aaa |