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

tangfeng
學(xué)海無涯
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 44 個(gè)
工控威望: 143 點(diǎn)
下載積分: 922 分
在線時(shí)間: 95(小時(shí))
注冊(cè)時(shí)間: 2010-01-24
最后登錄: 2025-03-05
查看tangfeng的 主題 / 回貼
樓主  發(fā)表于: 2017-09-02 16:50
'在窗體的Load事件中加入下列代碼對(duì)串口進(jìn)行初始化:
Private Sub Form_Load()
  MSComm1.CommPort = 1                  ' 設(shè)置通信端口號(hào)為COM1
  MSComm1.InputMode = 1                 ' 接收二進(jìn)制型數(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個(gè)字節(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表示觸點(diǎn)閉合
    Shape1(0).FillColor = QBColor(12)
  Else                                           '30表示觸點(diǎn)斷開
    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
'當(dāng)退出程序時(shí),關(guān)閉串行口
Private Sub Cmdquit_Click()
  MSComm1.PortOpen = False           '關(guān)閉串口
  Unload Me
End Sub
// 讀不到PLC 輸入點(diǎn),下標(biāo)越界,望高手指點(diǎn)修改
roger614
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 78 個(gè)
工控威望: 235 點(diǎn)
下載積分: 472 分
在線時(shí)間: 154(小時(shí))
注冊(cè)時(shí)間: 2007-10-28
最后登錄: 2018-09-26
查看roger614的 主題 / 回貼
1樓  發(fā)表于: 2018-03-10 14:15
用4樓方法編寫簡(jiǎn)單

极品yin荡人妻合集h| 老旺的大肉蟒进进出出| 人妻少妇偷人精品无码洋洋av| 欧美乱妇日本无乱码特黄大片| 特大欧美黑人巨大XXOO| 含着jing液去上课h男男| 国内永久免费crm系统z在线 | 金瓶悔1一5扬思敏完整版| 丰满白嫩少妇肉肉大HD| 久久久久久久精品无码av少妇| 麻豆xxxx乱女少妇精品| sm抽打调教女人光屁股的作文| 好姑娘在线观看完整视频高清| 久久久婷婷五月亚洲97号色| 小SAO货CAO得你舒服吗男男| 重口老熟七十路黑崎礼子| 和60岁女人做下面好松| 欧美av| 粉嫩AV久久一区二区三区 | 国精产品999一区二区三区有限| 亚洲日韩乱码人人爽人人澡人| 亚洲愉拍99热成人精品| 三A级做爰片免费观看| 学生16女人毛片免费视频| 久久综合九色欧美综合狠狠| 国产手机拍视频推荐2023| 亚洲一区二区观看播放| h双腿涨灌捆绑play慎入| 猫咪av成人永久网站在线观看| 成品人视频推荐素材网站| 娇小小小泬xxxx护士| 我在开会他在下添好爽| 校花小希被jian第二部分| 妓女嫖客叫床粗话对白| 我的真實亂倫故事| 国产嫖妓一区二区三区av视频| 挺进老妇的肉泬M48WXORG | 东北50岁熟妇露脸在线| 韩国三级在线观看| 免费a级毛片无码免费视频120软件| 男女打扑克|