国产一区二区三区毛片_亚洲乱码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 要先搞清楚。

主站蜘蛛池模板: jizz18欧美18_国产精品99久久久久久久久久_国外亚洲成av人片在线观看_三叶草欧码成人毛片_亚洲人影院_国产一区二区三四区_粉嫩高中生无码视频在线观看_日本A∨精品一区二区三区 | 成人免费无码大片A毛片软件_学园默示录在线看_九一国产精品视频_狠狠狠狼鲁亚洲综合网_91亚洲精品久久久蜜桃_免费无码又爽又刺激高潮软件_欧美疯狂性受XXXXX另类_日韩少妇乱码一区二区三区免费 | 欧美中文在线观看_国产91精_无码国产69精品久久久久网站_中文在线a在线_毛片大全免费_免费观看色网站_农村一级毛片_意甲赛程2024赛程表最新 | 亚洲AV无码兔费综合_欧美第一夜_成人av影视在线_超色视频在线观看_日韩无码一区中文_自拍亚洲综合_亚洲精品一区二区三区精华液_国产裸体永久免费视频网站 亚洲精品综合_足疗店女技师按摩毛片_亚洲精品久久嫩草网站秘色_国产亚洲一区精品_这题超纲了动漫免费观看_国产免费av高清在线_波多野结衣1区2区3区_久久精品小短片 | 国产精品一区二区av久草_中国xxxxxxxxx18_久久久久97国产_九九热播视频在线精品6_欧美18videosex性欧美黑吊_久久人人97超碰国产公开结果_av再线观看_久久久久久69 | 精品性影院一区二区三区内射_又大又湿又紧又爽a视频_亚洲日本一线产区和二线产区_92在线_穿靴子的猫在线观看_国产在线h_农村妇女野外牲交一级毛片_亚洲欧洲国产综合aⅴ无码 | 一色屋精品视频在线观看_国产精品视频黄色_亚洲三级国产_激情午夜网_久久综合色占_精品av_欧美在线成人影院_精品国产乱码久久久久久久软件 | 午夜一区二区三区视频_成年人一级视频_亚洲区自拍区_日韩欧美一二区_青娱乐在线视频播放_国产成人综合亚洲欧美94在线_亚洲综合无码一区二区三区_亚洲精品亚洲人成人网在线播放 | 国产欧美亚洲一级激情在线观看_亚洲情视频_国产性猛交_国产又色又刺激高潮免费视频_在线亚洲天堂_久久精品人人做人人爽97_国产精品爽爽爽爽爽爽免费观看_中文字幕在线视频免费 | 亚洲成AⅤ人影院在线欢看_亚洲国产成人精品无码区宅男?_97国产最新_在线视频97_无码精品国产VA在线观看DVD_青青视频网_一区二区日本视频_国产精品久久久一区 | xvideos在线观看_久久久青青青_日韩欧洲国产亚洲中文_亚洲国产91在线_粗一硬一长一进一爽一A级_国产毛片18片毛一级特黄_欧美国产精品三区一级一级_成人精品一区二区三区在线观看 | 97超碰在线久草超碰在线观看_国产亚洲综合性久久久影院_8x最新网站入口_www.91超碰_永久免费AV无码网站国产_久久综合国产精品_超鹏在线视频_午夜窝窝 | 无毛一级片_9I精品福利一区二区三区蜜桃_精品免费观看_99热这里只有精品地址_亚洲国产精品一区二区成人_久久久精品一品道一区_国产的精品一区二区在线观看_国产亚洲精品久久yy5099 | 日韩精品一区二区午夜成人版_亚洲精品乱码久久久久久蜜桃不爽_猫咪最新永久在线网站_欧美一区二区三区久久综_天天干夜夜爱_亚洲精品一区二三区不卡_日本黄色片免费看_在线播放黄色网址 | 在线高清无码A._国产白丝喷水视频在线观看_成人一二三区视频_婷婷丁香五月亚洲中文字幕_亚洲成色最大综合在线_亚洲天堂欧美在线_黄色片下_粗大的内捧猛烈进出少妇 | 91精品国产91久久综合_av无码专区亚洲av毛片_亚洲a区视频_国产一区播放_综合图区亚洲_国产aⅴ无码久久丝袜美腿_双乳奶水饱满少妇呻吟_四虎网址在线 | 欧美中文在线观看_国产91精_无码国产69精品久久久久网站_中文在线a在线_毛片大全免费_免费观看色网站_农村一级毛片_意甲赛程2024赛程表最新 | 在线观看91精品国产麻豆_少妇p毛又多水又大又黑_超碰91人人_segui88久久综合_国产JIZZJIZZ麻豆全部免费_国产精品一区二区三区av麻_色多多污_四虎www4hv | 国产在线伊人_亚洲一页_人妻丰满被色诱中文字幕_久久久亚洲欧洲日产国码αv_日韩丰满少妇无吗视频激情内射_亚洲午夜色情天天久久_黄色一级无码毛片高清视频_久久精品日产第一区二区三区使用方法 | 午夜欧美精品久久久久久久_欧美XXXX黑人又粗又长_久久伊人热_久久综合国产_亚州精品中文_国产精品自拍区_九色最新网治_中文字幕日产乱码一二三区 | 激情内射亚州一区二区三区爱妻_91成人精品一区二区三区四区_caoporen个人免费公开_男人猛吃奶女人爽视频_欧美人与动牲交A精品_特级西西大胆www147_国产一级毛片黄片_玖玖精品在线 | 被按摩师玩弄到潮喷在线播放_免费AV无码不卡在线观看_呦一呦二在线精品视频_久色免费_久久女性裸体无遮挡啪啪_国产一级一区_黄色片一级免费_深夜艹逼逼 | 91看片官网_欧美线人一区二区三区_九色视频少妇_免费精品国自产拍在线播放_日本黄色片aaaa_暖暖av_亚洲精品久久乱码水蜜桃摄影_中文字幕在线观看国产推理片 | 久久精品国语对话_亚洲天天摸日日摸天天欢_日韩AV无码一区二区三区不卡_日本污漫_日本在线理论片手机观看_久久精品国产免费_国产freesexvideos中国麻豆_亚洲欧洲精品无码av | 天天干夜爽_少妇精品无码一区二区免费视频_小男生自慰gay网站_欧美性色黄大片人与善_涩涩网站免费观看_欧美日韩综合久久_欧美欧美在线_欧美在线观看视频网站 | 日本永久视频_德国肥妇性猛交视频_97久久精品人人爽人人爽蜜臀_久草网站在线_粉嫩98久久综合国产精品一区_樱桃视频大全版在线观看_久久久免费人体_国产精品综合在线 | 亚洲aⅴ无码专区在线观看_精品福利网站_午夜影院c绿象_中文字幕十区_久久综合日本_久久网站免费视频_国产免费一区视频_欧美成年人视频 | 久久精品视频9_玖玖色在线视频_亚洲国产美女视频_国产乱码精品一区二区三区香蕉_国产一二_欧美中日韩在线_日日噜噜夜夜_国产精产品一品二品 | 饥渴少妇与三个黑人互动_91插插插插插插_国产ZZJJZZJJ视频全免费_亚洲精品1234_日韩欧美在线影院_日韩欧美中出_亚洲综合色网站_av中文字幕网免费观看 | 人与人videosfree另类_伊人色综合久久天天人手人婷_色欲AV综合AV无码AⅤ_人人爽亚洲AV人人爽AV人人片_两个少妇给我口爆_天天做天天爱天天爽天天综合_国产精品av久久久久久无_亚洲人成久久 | 日本视频免费观看_国产av一区二区三区天堂综合网_精品人妻一区二区三区浪潮在线_中国熟妇人妻xxxxxhd_亚洲黄色影片_亚洲精品av无码重口另类_av福利一区_av中文字幕无码免费看 | 午夜dj免费视频在线观看_日韩在线观看视频免费_神马久久春色视频_国产精华7777777_亚洲一区影院_九九久久网_国产日韩一区二区在线_国产精品亚欧美一区二区 | 久久亚洲色WWW成人不卡_超碰在线观看99_鲁一鲁一鲁一鲁一av卡三_极品无码AV国模在线观看_国产第56页_蜜桃传媒视频麻豆第一区免费观看_51成人看片_欧洲无码一区二区三区在线观看 | 国产sM重味一区二区三区_伊人成人情网_无码欧美毛片一区二区三在线视频_yellow高清免费观看_免费网站观看_人人看人人鲁狠狠_94欧美setu_japanese精品中国少妇 | 日本xxxx小便xxxx偷拍_软萌小仙自慰喷白浆_免费在线观看黄片毛片a_青草一区_久久久久久久久久久一区二区_欧美日本午夜一区二区_国产黄a三级三级三级av在线看_www夜夜操com | 91色中文_日韩中文一区_无码人妻久久一区二区三区免费_日本中文在线视频_av手机在线免费播放_欧美激情国产日韩精品一区18_亚洲一级特黄视频_free性欧美69巨大 | 亚洲国产2021精品无码_欧美成人精品一级_97无码免费人妻超级碰碰夜夜_无码日韩做暖暖大全免费_欧美交换配乱吟粗大在线观看_日韩精品无码免费专区网站_日p免费视频_激情久久99 | 嫩草精品_91精品一区二区三区四区_欧洲美女粗暴牲交_日韩精品无码一区二区三区av_伊人青草_内射爽无广熟女亚洲_欧美黄片免费看_久久本道综合色狠狠五月 | 97久久久精品综合88久久_国产一区二区精品久久久不卡蜜臀_午夜小影院_欧美精品亚洲_精品日产卡一卡二卡国色天香_精品国产网址_xvideos一色全网免费视频_国产亚洲精品自在久久 | av大片免费在线观看_精品熟人一区二区三区四区_热久久久久久久_日本一二三区在线_日日噜噜噜夜夜爽爽狠狠照片_成年免费A级毛片无码_色5月婷婷丁香六月_国产激情欧美 | 亚洲天堂岛_国产亚洲日韩在线播放更多_中文字幕1级精品视频在线_草草草影院_黄色精品在线观看_yy8840私人影院的在线_国产日产精品久久久久久_国产一卡二卡三卡免费 |