📄 module1.bas

📁 上位机采用vb编程,实现与多台s7200的自由口通信.
💻 BAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
        Form1.gateR_zy1.BackColor = vbBlue
        Form1.gateS_zy1.BackColor = vbBlue
        Form1.chumoR_zy1.BackColor = vbBlue
        Form1.chumoS_zy1.BackColor = vbBlue
        Form1.dingliangbanR_zy1.BackColor = vbBlue
        Form1.dingliangbanS_zy1.BackColor = vbBlue
    Case Else
End Select
End Sub
'0=板条到位,1=板条多余,2=侧推伸出,3=进模伸出,4=侧推缩回,5=进模缩回,6=出模缩回,7=出模伸出,8=拖板缩回
'9=防爆门关,10=旋转伸出,11=旋转缩回,12=防爆门开,13=拖板伸出,14=通信指示,15=控制指示,16=报警指示
Public Sub doufuyao_display()
Select Case Workstation(12).step
    Case 0
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 1
        Form1.doufuyao(2).BackColor = showcolor.on
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 2
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.on
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 3
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.on
        Form1.doufuyao(5).BackColor = showcolor.on
        Form1.doufuyao(6).BackColor = showcolor.on
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.on
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 4
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.on
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 5
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.on
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 6
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.on
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 7
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.on
        Form1.doufuyao(13).BackColor = showcolor.off
    Case 8
        Form1.doufuyao(2).BackColor = showcolor.off
        Form1.doufuyao(3).BackColor = showcolor.off
        Form1.doufuyao(4).BackColor = showcolor.off
        Form1.doufuyao(5).BackColor = showcolor.off
        Form1.doufuyao(6).BackColor = showcolor.off
        Form1.doufuyao(7).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(8).BackColor = showcolor.off
        Form1.doufuyao(9).BackColor = showcolor.off
        Form1.doufuyao(10).BackColor = showcolor.off
        Form1.doufuyao(11).BackColor = showcolor.off
        Form1.doufuyao(12).BackColor = showcolor.off
        Form1.doufuyao(13).BackColor = showcolor.on
End Sub
'点漆工位显示函数
Public Sub dianqi_display()
Select Case Workstation(13).step
    Case 0
        Form1.cetuiR_dq.BackColor = vbBlue
        Form1.chumoR_dq.BackColor = vbBlue
        Form1.cetuiS_dq.BackColor = vbBlue
        Form1.jinmoR_dq.BackColor = vbBlue
        Form1.jinmoS_dq.BackColor = vbBlue
        Form1.gateR_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuidibanS_dq.BackColor = vbBlue
        Form1.tuobanR_dq.BackColor = vbBlue
    Case 1
        Form1.cetuiS_dq.BackColor = vbRed
        Form1.cetuiR_dq.BackColor = vbBlue
        Form1.chumoR_dq.BackColor = vbBlue
        Form1.jinmoR_dq.BackColor = vbBlue
        Form1.jinmoS_dq.BackColor = vbBlue
        Form1.gateR_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuidibanS_dq.BackColor = vbBlue
        Form1.tuobanR_dq.BackColor = vbBlue
    Case 2
        Form1.jinmoS_dq.BackColor = vbRed
        Form1.cetuiR_dq.BackColor = vbBlue
        Form1.chumoR_dq.BackColor = vbBlue
        Form1.cetuiS_dq.BackColor = vbBlue
        Form1.jinmoR_dq.BackColor = vbBlue
        Form1.gateR_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuidibanS_dq.BackColor = vbBlue
        Form1.tuobanR_dq.BackColor = vbBlue
    Case 3
        Form1.chumoR_dq.BackColor = vbRed
        Form1.tuobanR_dq.BackColor = vbRed
        Form1.cetuiR_dq.BackColor = vbRed
        Form1.jinmoR_dq.BackColor = vbRed
        Form1.cetuiS_dq.BackColor = vbBlue
        Form1.jinmoS_dq.BackColor = vbBlue
        Form1.gateR_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuidibanS_dq.BackColor = vbBlue
    Case 4
        Form1.tuidibanS_dq.BackColor = vbRed
        Form1.cetuiR_dq.BackColor = vbBlue
        Form1.chumoR_dq.BackColor = vbBlue
        Form1.cetuiS_dq.BackColor = vbBlue
        Form1.jinmoR_dq.BackColor = vbBlue
        Form1.jinmoS_dq.BackColor = vbBlue
        Form1.gateR_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuobanR_dq.BackColor = vbBlue
    Case 5
        Form1.gateR_dq.BackColor = vbRed
        Form1.cetuiR_dq.BackColor = vbBlue
        Form1.chumoR_dq.BackColor = vbBlue
        Form1.cetuiS_dq.BackColor = vbBlue
        Form1.jinmoR_dq.BackColor = vbBlue
        Form1.jinmoS_dq.BackColor = vbBlue
        Form1.gateS_dq.BackColor = vbBlue
        Form1.tuidibanS_dq.BackColor = vbBlue
        Form1.tuobanR_dq.BackColor = vbBlue
    Case Else
End Select
End Sub
'退模工位显示函数
Public Sub tuimo_display()
Select Case Workstation(14).step
    Case 0
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 1
        Form1.cetuiS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 2
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 3
        Form1.chumoR_tm.BackColor = vbRed
        Form1.tuobanR_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbRed
        Form1.jinmoR_tm.BackColor = vbRed
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 4
        Form1.gateS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 5
        Form1.tuimoS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
    Case 6
        Form1.tuimoR_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 7
        Form1.gateS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuobanS_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case 8
        Form1.tuobanS_tm.BackColor = vbRed
        Form1.cetuiR_tm.BackColor = vbBlue
        Form1.chumoR_tm.BackColor = vbBlue
        Form1.cetuiS_tm.BackColor = vbBlue
        Form1.jinmoR_tm.BackColor = vbBlue
        Form1.jinmoS_tm.BackColor = vbBlue
        Form1.gateR_tm.BackColor = vbBlue
        Form1.gateS_tm.BackColor = vbBlue
        Form1.tuobanR_tm.BackColor = vbBlue
        Form1.tuimoR_tm.BackColor = vbBlue
        Form1.tuimoS_tm.BackColor = vbBlue
    Case Else
End Select
End Sub
Public Function illega_judge()
strA = StrConv(Buffer, vbUnicode)
startLabel = Mid(strA, 1, 1)
middleLabel = Mid(strA, 4, 1)
'stopLabel = Mid(strA, 4, 1)
If Asc(startLabel) = &H26 And Asc(middleLabel) = &H23 Then
    illega_judge = 1
Else
    illega_judge = 0
End If
End Function

'该函数完成从接收缓冲区读取数据，对给定工位数据结构赋值的功能

Public Sub dataprocess()

          '将字符串转换成vb格式
Form1.Text1.Text = strA & Chr(&HD) & Chr(&HA)
addrStr = Mid(strA, 2, 2)                   '提取数据字符串
singledata = Mid(strA, 4, 1)
stepStr = Mid(strA, 5, 2)
substepStr = Mid(strA, 7, 2)
address = Val(addrStr)                      '将字符串内容转换成数值
step = Val(stepStr)
substep = Val(substepStr)
auto = Asc(singledata) And &H80
alarm = Asc(singledata) And &H40
arrive = Asc(singledata) And &H2
more = Asc(singledata) And &H1
Workstation(address - 1).step = step        '对给定工位数据结构赋值
Workstation(address - 1).substep = substep
Workstation(address - 1).arrive = arrive
Workstation(address - 1).alarm = alarm
Workstation(address - 1).auto = auto
Workstation(address - 1).more = more
Form1.ComandSend.Interval = 10
Form1.ComandSend.Enabled = True
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -