frmdlother.frm

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

'Errhandle:
'    Unload frmMessage
'    frmMessage.lblMsg.ForeColor = &HC0&
'    frmMessage.lblMsg = Err.Description
'    frmMessage.Show
'    Err.Clear
End Sub

Private Sub ctlSwitch_OFF(Index As Integer)
  If (Timer + 86400 - LastSingleTime) Mod 60 < 2 Then
    Exit Sub
  End If
  ctlSwitch(Index).State = False
  If Mid$(StoveValveInfr(OtherOpCur).OnOff, Index + 1, 1) = "1" Then
      Call frmMain.SpecialOperate(OtherOpCur, 2 * (Index + 1))
      LastSingleTime = Timer
  ElseIf Index = 3 Or Index = 4 Then
        Call frmMain.SpecialOperate(OtherOpCur, 2 * (Index + 1) + 1)
  End If
End Sub

Private Sub ctlSwitch_ONN(Index As Integer)
  If (Timer + 86400 - LastSingleTime) Mod 60 < 2 Then
    Exit Sub
  End If
  ctlSwitch(Index).State = True
  If Mid$(StoveValveInfr(OtherOpCur).OnOff, Index + 1, 1) = "0" Then
      Call frmMain.SpecialOperate(OtherOpCur, 2 * (Index + 1) + 1)
   ElseIf Index = 3 Or Index = 4 Then
      Call frmMain.SpecialOperate(OtherOpCur, 2 * (Index + 1))
   End If
    LastSingleTime = Timer
End Sub

Private Sub Form_Load()
    Dim i As Long
    On Error GoTo Errhandle
    Dim lp_hand As Long
    lp_hand = SetParent(Me.hWnd, frmMain.hWnd)
    Me.Caption = OtherOpCur + StoveStart & "#炉其他操作"
    If Stove(OtherOpCur).runstate = 1 Then
       Frame1.Enabled = False
'       If SecurityStop(OtherOpCur) > 0 Then
'          cmdSecurityStop.BackColor = &HFF00&
'       End If
    Else
       CmdStartHS.Enabled = False
       cmdSecurityStop.Enabled = False
    End If
    If Stove(OtherOpCur).RHS Then
           CmdStartHS.BackColor = &HFF00&
    Else
           CmdStartHS.BackColor = &H8000000F
    End If
    If StoveValveInfr(OtherOpCur).LastRequestId <> 0 Or StoveValveInfr(OtherOpCur).AddCoalCount <> 0 Then
      cmdAddCoal.Enabled = False
      cmdAddCoal.BackColor = &HFF00&
    End If
    For i = 0 To 11
            If Mid$(StoveValveInfr(OtherOpCur).OnOff, i + 1, 1) = "1" Then
               If i = 3 Or i = 4 Then
                ctlSwitch(i).State = False
                ShapeValve(i).BackColor = &HFF&
               Else
                ctlSwitch(i).State = True
                ShapeValve(i).BackColor = &HFF00&
               End If
            Else
               If i = 3 Or i = 4 Then
                ctlSwitch(i).State = True
                ShapeValve(i).BackColor = &HFF00&
               Else
                ctlSwitch(i).State = False
                ShapeValve(i).BackColor = &HFF&
               End If
            End If
    Next
    If StoveValveInfr(OtherOpCur).SpeedAuto Then
       Check_Speed.Value = 1
    Else
       Check_Speed.Value = 0
    End If
    UpDown_Speed.Value = StoveValveInfr(OtherOpCur).SpeedSetV
    Text_Speed.Text = StoveValveInfr(OtherOpCur).SpeedSetV
    txtAddCoalTime = StoveValveInfr(OtherOpCur).AddCoalTime
    If Stove(OtherOpCur).runstate <> 1 Then
        If Mid$(StoveValveInfr(OtherOpCur).OnOff, 8, 1) = "1" Then
          cmdJNYL.BackColor = &HFF00&
        Else
          cmdJNYL.BackColor = &H8000000F
        End If
        If Mid$(StoveValveInfr(OtherOpCur).OnOff, 3, 1) = "1" And Mid$(StoveValveInfr(OtherOpCur).OnOff, 6, 1) = "1" Then
          If Mid$(StoveValveInfr(OtherOpCur).OnOff, 5, 1) = "1" Then
             cmdQSC.BackColor = &HFF00&
          Else
             cmdQSC.BackColor = &H8000000F
          End If
          If Mid$(StoveValveInfr(OtherOpCur).OnOff, 5, 1) = "0" Then
            cmdSCFK.BackColor = &HFF00&
          End If
        Else
           cmdQSC.BackColor = &H8000000F
           cmdSCFK.BackColor = &H8000000F
        End If
    End If
     cmdStartABB.Enabled = Not StoveValveInfr(OtherOpCur).SpeedAuto
     cmdStopABB.Enabled = Not StoveValveInfr(OtherOpCur).SpeedAuto
     cmdFirstStart.Enabled = Not StoveValveInfr(OtherOpCur).SpeedAuto
'    lblData(1).ToolTipText = frmMain.lblData(OtherOpCur).ToolTipText
    Exit Sub
Errhandle:
    Unload frmMessage
    frmMessage.lblMsg.ForeColor = &HC0&
    frmMessage.lblMsg = Err.Description
    frmMessage.Show 1
    Err.Clear
End Sub

Private Sub Form_Unload(Cancel As Integer)
    TimerSingle.Enabled = False
    Set frmDlOther = Nothing
End Sub

Private Sub TimerSingle_Timer()
    Dim i As Long
    Dim dtime As String
     On Error GoTo Errhandle
    If Stove(OtherOpCur).runstate = 1 Then
        Frame1.Enabled = False
        CmdStartCrazy.Enabled = False
        CmdOpenStove.Enabled = False
        cmdSecurityStop.Enabled = True
'        If SecurityStop(OtherOpCur) > 0 Then
'           cmdSecurityStop.BackColor = &HFF00&
'        Else
'           cmdSecurityStop.BackColor = &H8000000F
'        End If
        If Stove(OtherOpCur).RunLazy Then
           CmdStartCrazy.BackColor = &HFF00& '.Enabled = False
           CmdStartHS.BackColor = &H8000000F
           CmdStartHS.Enabled = False
           cmdAutoAddCoal.BackColor = &H8000000F
           cmdAutoAddCoal.Enabled = False
        Else
    
            CmdStartCrazy.BackColor = &H8000000F
            CmdStartHS.Enabled = True
            If Stove(OtherOpCur).RHS = True Then
               CmdStartHS.BackColor = &HFF00&
            Else
               CmdStartHS.BackColor = &H8000000F
            End If
            cmdAutoAddCoal.Enabled = True
            If OptionCurve1(1).GiveValue = 0 Then
               cmdAutoAddCoal.BackColor = &H8000000F
            Else
               cmdAutoAddCoal.BackColor = &HFF00&
            End If
        End If
    Else
        cmdSecurityStop.Enabled = False
        CmdStartCrazy.Enabled = True
        CmdOpenStove.Enabled = True
        CmdStartHS.Enabled = False
        If Stove(OtherOpCur).RunLazy Then
           CmdStartCrazy.BackColor = &HFF00& '.Enabled = False
        Else
           CmdStartCrazy.BackColor = &H8000000F
        End If
        For i = 0 To 11
            If Mid$(StoveValveInfr(OtherOpCur).OnOff, i + 1, 1) = "1" Then
               If i = 3 Or i = 4 Then
                ctlSwitch(i).State = False
                ShapeValve(i).BackColor = &HFF&
               Else
                ctlSwitch(i).State = True
                ShapeValve(i).BackColor = &HFF00&
               End If
            Else
               If i = 3 Or i = 4 Then
                ctlSwitch(i).State = True
                ShapeValve(i).BackColor = &HFF00&
               Else
                ctlSwitch(i).State = False
                ShapeValve(i).BackColor = &HFF&
               End If
            End If
        Next
        If Mid$(StoveValveInfr(OtherOpCur).OnOff, 8, 1) = "1" Then
          cmdJNYL.BackColor = &HFF00&
        Else
          cmdJNYL.BackColor = &H8000000F
        End If
        If Mid$(StoveValveInfr(OtherOpCur).OnOff, 3, 1) = "1" And Mid$(StoveValveInfr(OtherOpCur).OnOff, 6, 1) = "1" Then
          If Mid$(StoveValveInfr(OtherOpCur).OnOff, 5, 1) = "1" Then
             cmdQSC.BackColor = &HFF00&
          Else
             cmdQSC.BackColor = &H8000000F
          End If
          If Mid$(StoveValveInfr(OtherOpCur).OnOff, 5, 1) = "0" Then
            cmdSCFK.BackColor = &HFF00&
          End If
        Else
           cmdQSC.BackColor = &H8000000F
           cmdSCFK.BackColor = &H8000000F
        End If
        If StoveValveInfr(OtherOpCur).LastRequestId = 0 And StoveValveInfr(OtherOpCur).AddCoalCount = 0 Then
          cmdAddCoal.Enabled = True
          cmdAddCoal.BackColor = &H8000000F
        Else
          cmdAddCoal.Enabled = False
          cmdAddCoal.BackColor = &HFF00&
        End If
'        If SecurityStop(OtherOpCur) = 0 Then
'           cmdSecurityStop.BackColor = &H8000000F
'        Else
'           cmdSecurityStop.BackColor = &HFF00&
'        End If
        Frame1.Enabled = True
    End If
    dtime = Format(Date, "yyyy-mm-dd") & "#" & Format(Time, "hh:mm:ss")
    OptionCurve1(1).State = frmMain.OptionCurve(OtherOpCur).State
    OptionCurve1(1).BackValue = frmMain.OptionCurve(OtherOpCur).BackValue
    OptionCurve1(1).GiveValue = frmMain.OptionCurve(OtherOpCur).GiveValue
    ctlSwitch1.State = frmMain.swtStart(OtherOpCur).State
    With OnCurve1(1)
        .InputC3Data dtime, Stove(OtherOpCur).SXWD, Stove(OtherOpCur).XXWD, StoveValveInfr(OtherOpCur).CurSpeed 'Stove(i).Speed    '打印单炉曲线
        .InputData 4, Stove(OtherOpCur).ZQYL
        .InputData 5, Stove(OtherOpCur).JTWD
        .InputData 6, Signal(14 + OtherOpCur).CalValue
        If blnmove1 Then                                                  '即时更新曲线时间
            .SetShowTimeStart dtime
        End If
    End With
'     lblData(1).Caption = frmMain.lblData(OtherOpCur).Caption
     Select Case Stove(OtherOpCur).CurrentStep
            Case 7
    '           "停  炉"
                For i = 0 To 4 Step 1
                 CurrentProcess(i).Width = 0
                Next i
                Shape1.BackColor = &HFF&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HC000&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HFF&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(10).BackColor = &HFF&
                valvesingle(11).BackColor = &HFF&
                valvesingle(12).BackColor = &HFF&
                valvesingle(8).BackColor = &HC000&
            Case 1
               If Stove(OtherOpCur).RunLazy Then
    '           "吹风放空"*
                Shape1.BackColor = &HC000&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HFF&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HC000&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8).BackColor = &HC000&
               Else
                If Stove(OtherOpCur).RHS Then
                
    '           "热回收"吹风回收
                        CurrentProcess(2).Width = Stove(OtherOpCur).Counter * SetedPara(2).Width / 40
                        If Stove(OtherOpCur).ZHWD = 0 Then
                            If Stove(OtherOpCur).Counter <= 1 Then valvesingle(10).BackColor = &HC000&
                            If Abs(Stove(OtherOpCur).Counter - 4) <= 1 Then valvesingle(10).BackColor = &HFF&
                            If Abs(Stove(OtherOpCur).Counter - 13) <= 1 Then valvesingle(11).BackColor = &HFF&
                        Else
                            If Stove(OtherOpCur).Counter <= 1 Then valvesingle(10).BackColor = &HC000&
                            If Abs(Stove(OtherOpCur).Counter - 4) <= 1 Then valvesingle(10).BackColor = &HFF&
                            If Abs(Stove(OtherOpCur).Counter - 13) <= 1 Then valvesingle(11).BackColor = &HFF&
                            If Abs(Stove(OtherOpCur).Counter - 16) <= 1 Then valvesingle(12).BackColor = &HC000&
                            If Abs(Stove(OtherOpCur).Counter - 26) <= 1 Then valvesingle(12).BackColor = &HFF&
                        End If
                
                CurrentProcess(0).Width = 0
                CurrentProcess(1).Width = 0
                CurrentProcess(3).Width = 0
                CurrentProcess(4).Width = 0
                Shape1.BackColor = &HC000&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HC000&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HC000&
                valvesingle(7).BackColor = &HC000&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8).BackColor = &HFF&
                Else
    '           "吹  风"
                    CurrentProcess(2).Width = Stove(OtherOpCur).Counter * SetedPara(2).Width / 40
                    If Stove(OtherOpCur).ZHWD = 0 Then
                        If Stove(OtherOpCur).Counter <= 1 Then valvesingle(10).BackColor = &HC000&
                        If Abs(Stove(OtherOpCur).Counter - 4) <= 1 Then valvesingle(10).BackColor = &HFF&
                        If Abs(Stove(OtherOpCur).Counter - 13) <= 1 Then valvesingle(11).BackColor = &HFF&
                    Else
                        If Stove(OtherOpCur).Counter <= 1 Then valvesingle(10).BackColor = &HC000&
                        If Abs(Stove(OtherOpCur).Counter - 4) <= 1 Then valvesingle(10).BackColor = &HFF&
                        If Abs(Stove(OtherOpCur).Counter - 13) <= 1 Then valvesingle(11).BackColor = &HFF&
                        If Abs(Stove(OtherOpCur).Counter - 16) <= 1 Then valvesingle(12).BackColor = &HC000&
                        If Abs(Stove(OtherOpCur).Counter - 26) <= 1 Then valvesingle(12).BackColor = &HFF&
                    End If
                CurrentProcess(0).Width = 0
                CurrentProcess(1).Width = 0
                CurrentProcess(3).Width = 0
                CurrentProcess(4).Width = 0
                Shape1.BackColor = &HC000&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HC000&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HC000&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8).BackColor = &HC000&
    
                End If
               End If
            Case 2
               If Stove(OtherOpCur).RunLazy Then
                Shape1.BackColor = &HFF&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HC000&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HC000&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8).BackColor = &HFF&
               Else
    '           "回  收""回收放空"
                Shape1.BackColor = &HFF&
                valvesingle(1).BackColor = &HFF&
                valvesingle(5).BackColor = &HFF&
                valvesingle(6).BackColor = &HC000&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HC000&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8).BackColor = &HFF&
               End If
            Case 3
               If Stove(OtherOpCur).RunLazy Then
    '           "上吹放空"
                Shape1.BackColor = &HFF&
                valvesingle(1).BackColor = &HC000&
                valvesingle(5).BackColor = &HC000&
                valvesingle(6).BackColor = &HFF&
                valvesingle(3).BackColor = &HFF&
                valvesingle(4).BackColor = &HFF&
                valvesingle(2).BackColor = &HFF&
                valvesingle(7).BackColor = &HFF&
                valvesingle(9).BackColor = &HFF&
                valvesingle(0).BackColor = &HFF&
                valvesingle(8