frmfloat.frm

基于化工行业造气岗位的自动化监控系统

      Begin VB.Line Line1 
         BorderColor     =   &H0080FFFF&
         Index           =   0
         X1              =   960
         X2              =   4800
         Y1              =   1100
         Y2              =   1100
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Index           =   0
         Left            =   1440
         TabIndex        =   16
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "循环数累计"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   15
         Top             =   1200
         Width           =   975
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Index           =   5
         Left            =   3240
         TabIndex        =   14
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Index           =   4
         Left            =   3240
         TabIndex        =   13
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Index           =   3
         Left            =   3240
         TabIndex        =   12
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "气柜变化"
         Height          =   255
         Index           =   2
         Left            =   2520
         TabIndex        =   11
         Top             =   840
         Width           =   735
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "终止气柜"
         Height          =   255
         Index           =   1
         Left            =   2520
         TabIndex        =   10
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "起始气柜"
         Height          =   255
         Index           =   0
         Left            =   2520
         TabIndex        =   9
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "00"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Index           =   2
         Left            =   1680
         TabIndex        =   8
         Top             =   840
         Width           =   255
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Index           =   1
         Left            =   840
         TabIndex        =   7
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "0"
         ForeColor       =   &H00FF0000&
         Height          =   200
         Index           =   0
         Left            =   840
         TabIndex        =   6
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "累计时间"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   5
         Top             =   840
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "终止时刻"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   4
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "起始时刻"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      Caption         =   "0"
      Height          =   255
      Left            =   480
      TabIndex        =   38
      Top             =   3720
      Width           =   495
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Caption         =   "回收："
      Height          =   255
      Left            =   0
      TabIndex        =   37
      Top             =   3720
      Width           =   615
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "date"
      Height          =   255
      Left            =   2040
      TabIndex        =   35
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "time"
      Height          =   255
      Left            =   1080
      TabIndex        =   34
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "M3/h"
      Height          =   195
      Index           =   2
      Left            =   4560
      TabIndex        =   33
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "发气量:"
      Height          =   195
      Index           =   1
      Left            =   2400
      TabIndex        =   32
      Top             =   80
      Width           =   735
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "测试炉号:"
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   80
      Width           =   855
   End
   Begin VB.Menu mnu_File 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnu_File_Set 
         Caption         =   "设置(&S)"
      End
      Begin VB.Menu mnu_File_CX 
         Caption         =   "查询(&C)"
      End
   End
   Begin VB.Menu mnu_Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnu_Help_About 
         Caption         =   "关于主题(&A)"
      End
   End
End
Attribute VB_Name = "frmfloat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim High As Double             ' 气柜高度
Dim XH_count As Long       ' 循环时间
Dim LH_ID As Long            ' 炉号
Dim Flag() As Boolean        ' 开停炉情况标记
Dim Back As Long            ' 回收值
Dim A, B, C, D As Long
Dim Qg_L As Double             ' 气柜量程最大值
Dim last_time As Single
Private Sub Combo1_Click()
    Call Command6_Click
    XH_count = Stove(Combo1.ListIndex).HS_Control
    Back = Stove(Combo1.ListIndex).HS_Control
    Flag(Combo1.ListIndex) = Stove(Combo1.ListIndex).runstate
End Sub
Private Sub Command1_Click()
    On Error GoTo lab1
    If Stove(Combo1.ListIndex).runstate = 1 Then
         MsgBox "请确保" & Combo1.Text & "#炉停炉！", vbOKOnly + vbInformation, "提示"
         Exit Sub
    End If
    For LH_ID = 0 To StoveNumber - 1
       If Flag(LH_ID) = True Then
          D = D + 1
       End If
    Next
       A = Back
       C = XH_count
       last_time = Timer
       Label3(0) = Time
       Label3(3) = Signal(QIGUIhight).CalValue   'High
       Label3(4) = Signal(QIGUIhight).CalValue
       Command1.Enabled = False
       Command2.Enabled = True
       Command3.Enabled = False
       Command4.Enabled = False
       Timer2.Enabled = True
lab1:
End Sub
Private Sub Command2_Click()
    Timer2.Enabled = False
    Label3(5) = Format(Val(Label3(4)) - Val(Label3(3)), "0.0") ')Abs(
    Label6(0) = XH_count - C
    Command2.Enabled = False
    If Val(Label3(10)) = 0 Then
       Command3.Enabled = True
    End If
End Sub
Private Sub Command3_Click()
    If Stove(Combo1.ListIndex).runstate <> 1 Then
         MsgBox "请确保" & Combo1.Text & "#炉开炉！", vbOKOnly + vbInformation, "提示"
         Exit Sub
    End If
       A = Back
       C = XH_count
       last_time = Timer
       Label3(6) = Time
       Label3(9) = Signal(QIGUIhight).CalValue  'High
       Label3(10) = Signal(QIGUIhight).CalValue
       Command1.Enabled = False
       Command2.Enabled = False
       Command3.Enabled = False
       Command4.Enabled = True
       Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
    Timer1.Enabled = False
    Label3(11) = Format(Val(Label3(10)) - Val(Label3(9)), "0.0") ')Abs(
    Label6(1) = XH_count - C
    Command4.Enabled = False
    If Val(Label3(5)) = 0 Then
       Command1.Enabled = True
    End If
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
    Dim i As Integer
    Timer2.Enabled = False
    Timer1.Enabled = False
    For i = 0 To 13
        Label3(i) = 0
    Next
    For i = 0 To 1
        Label6(i) = 0
    Next
    Label10 = 0
    Text1 = 0
    Command1.Enabled = True
    Command3.Enabled = True
    Command2.Enabled = False
    Command4.Enabled = False
End Sub
Private Sub Form_Load()
    Dim lp_hand As Long
    ReDim Flag(0 To StoveNumber - 1)
        For lp_hand = 0 To StoveNumber - 1
          Combo1.AddItem Format(StoveStart + lp_hand, "000")
        Next
         Combo1.ListIndex = 0
         Command2.Enabled = False
         Command4.Enabled = False
         High = Signal(QIGUIhight).CalValue
         Qg_L = Signal(QIGUIhight).HighScale
         XH_count = Stove(Combo1.ListIndex).Cycle
         Back = Stove(Combo1.ListIndex).HS_Control
         Flag(Combo1.ListIndex) = Stove(Combo1.ListIndex).runstate
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Set Frm_float = Nothing
  Timer1.Enabled = False
  Timer2.Enabled = False
End Sub
Private Sub mnu_File_CX_Click()
   ' Frm_CX.Show
End Sub
Private Sub Timer1_Timer()
    Dim s As Long
    Label3(10) = Signal(QIGUIhight).CalValue
    Label3(11) = Format(Val(Label3(10)) - Val(Label3(9)), "0.0")
    s = (Timer - last_time) Mod 60
    Label3(7) = Time
    If s < Val(Label3(8)) Then
       Label3(13) = Val(Label3(13)) + 1
    End If
    Label3(8) = s
    Label7 = Time
    Label8 = Date
    If Val(Label3(13)) >= 1 And Val(Label3(4)) <> 0 Then
       Text1 = Format(Val(Label3(11)) * 3600 / (Val(Label3(13)) * 60 + Val(Label3(8))) - Val(Label3(5)) * 3600 / (Val(Label3(12)) * 60 + Val(Label3(2))), "0.0")
    End If
End Sub
Private Sub Timer2_Timer()
    Dim s As Long
    Label3(4) = Signal(QIGUIhight).CalValue
    Label3(5) = Format(Val(Label3(4)) - Val(Label3(3)), "0.0")
    s = (Timer - last_time) Mod 60
    Label3(1) = Time
    If s < Val(Label3(2)) Then
       Label3(12) = Val(Label3(12)) + 1
    End If
    Label3(2) = s
    If Val(Label3(12)) >= 1 And Val(Label3(10)) <> 0 Then
       Text1 = Format(Val(Label3(11)) * 3600 / (Val(Label3(13)) * 60 + Val(Label3(8))) - Val(Label3(5)) * 3600 / (Val(Label3(12)) * 60 + Val(Label3(2))), "0.0")
    End If
End Sub