module1.bas

上位机采用vb编程,实现与多台s7200的自由口通信.

Attribute VB_Name = "Module1"
Option Explicit
Type assemble
    name As String
    addr As Integer
    step As Integer
    substep As Integer
    arrive As Boolean
    more As Boolean
    communicate As Boolean
    auto As Boolean
    alarm As Boolean
End Type

Type colorshow
    on As Double
    off As Double
End Type

Public Workstation(1 To 14) As assemble
Public showcolor As colorshow
Public step As Integer, address As Integer, substep As Integer
Public addrStr As String, stepStr As String, substepStr As String
Public stepold As Integer
Public outsting As String
Public Buffer As Variant
Public i As Integer
Public keys As Integer
Public j As Integer
Public kk, hh As Integer
Public strA As Variant
Public singledata As String
Public auto As Boolean
Public comunication As Boolean
Public alarm As Boolean
Public arrive As Boolean
Public more As Boolean
Public times As Integer


'14个工位数据结构初始化
Public Sub InitialWorkstation()
    With Workstation(1)
        .name = "一装药"
        .addr = 2
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(2)
        .name = "一压力"
        .addr = 3
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(3)
        .name = "二装药"
        .addr = 4
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(4)
        .name = "二压力"
        .addr = 5
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(5)
        .name = "三装药"
        .addr = 6
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(6)
        .name = "DDNP"
        .addr = 7
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(7)
        .name = "药高检测"
        .addr = 8
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(8)
        .name = "推加强帽延期体扣模"
        .addr = 9
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(9)
        .name = "引压加强帽(延期体)"
        .addr = 10
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(10)
        .name = "压加强帽"
        .addr = 11
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(11)
        .name = "压延期体"
        .addr = 12
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(12)
        .name = "抖浮药"
        .addr = 13
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(13)
        .name = "点漆"
        .addr = 14
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
    With Workstation(14)
        .name = "退模"
        .addr = 15
        .step = 0
        .substep = 0
        .arrive = False
        .more = False
        .communicate = False
        .auto = False
        .alarm = False
    End With
End Sub

'一装药工位显示函数
Public Sub zhuangyao1_display()
Select Case Workstation(1).step
    Case 0
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 1
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbRed
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 2
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbRed
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 3
        Form1.cetuiR_zy1.BackColor = vbRed
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbRed
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbRed
        Form1.gateR_zy1.BackColor = vbBlue
        Form1.gateS_zy1.BackColor = vbBlue
        Form1.chumoR_zy1.BackColor = vbRed
        Form1.chumoS_zy1.BackColor = vbBlue
        Form1.dingliangbanR_zy1.BackColor = vbBlue
        Form1.dingliangbanS_zy1.BackColor = vbBlue
    Case 4
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbRed
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 5
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        Form1.gateR_zy1.BackColor = vbBlue
        Form1.gateS_zy1.BackColor = vbRed
        Form1.chumoR_zy1.BackColor = vbBlue
        Form1.chumoS_zy1.BackColor = vbBlue
        Form1.dingliangbanR_zy1.BackColor = vbBlue
        Form1.dingliangbanS_zy1.BackColor = vbBlue
    Case 6
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        Form1.gateR_zy1.BackColor = vbBlue
        Form1.gateS_zy1.BackColor = vbBlue
        Form1.chumoR_zy1.BackColor = vbBlue
        Form1.chumoS_zy1.BackColor = vbBlue
        Form1.dingliangbanR_zy1.BackColor = vbRed
        Form1.dingliangbanS_zy1.BackColor = vbBlue
    Case 7
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 = vbRed
    Case 8
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        Form1.gateR_zy1.BackColor = vbRed
        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 9
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbRed
        Form1.yinyaobanR_zy1.BackColor = vbBlue
        Form1.yinyaobanS_zy1.BackColor = vbBlue
        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 10
        Form1.cetuiR_zy1.BackColor = vbBlue
        Form1.cetuiS_zy1.BackColor = vbBlue
        Form1.jinmoR_zy1.BackColor = vbBlue
        Form1.jinmoS_zy1.BackColor = vbBlue
        Form1.tuobanR_zy1.BackColor = vbBlue
        Form1.tuobanS_zy1.BackColor = vbBlue
        Form1.yinyaobanR_zy1.BackColor = vbRed
        Form1.yinyaobanS_zy1.BackColor = vbBlue