module1.bas

来自「上位机采用vb编程,实现与多台s7200的自由口通信.」· BAS 代码 · 共 719 行 · 第 1/2 页

BAS
719 行
字号
12
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
12

module1.bas - 源码说明

本页面展示了「上位机采用vb编程,实现与多台s7200的自由口通信.」中的 module1.bas 源码文件，采用 BAS 编程语言编写，共 719 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与s7200相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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