frmother.frm

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

      Height          =   2175
      Index           =   3
      Left            =   3240
      TabIndex        =   24
      ToolTipText     =   "左边为流量,右边为阀门开度"
      Top             =   2880
      Width           =   735
      _Version        =   65536
      _ExtentX        =   1296
      _ExtentY        =   3836
      _StockProps     =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      aColor          =   8454016
      pColor          =   16776960
      ForeColor       =   0
      aV              =   0
      pV              =   0
      gV              =   0
   End
   Begin MSComCtl2.UpDown UpDown1 
      Height          =   375
      Index           =   2
      Left            =   2760
      TabIndex        =   25
      Top             =   5160
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   661
      _Version        =   393216
      Max             =   100
      Enabled         =   -1  'True
   End
   Begin MSComCtl2.UpDown UpDown1 
      Height          =   375
      Index           =   3
      Left            =   3720
      TabIndex        =   28
      Top             =   5160
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   661
      _Version        =   393216
      Max             =   100
      Enabled         =   -1  'True
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "加氮调节"
      Height          =   180
      Index           =   6
      Left            =   3240
      TabIndex        =   26
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "一风调节"
      Height          =   180
      Index           =   0
      Left            =   120
      TabIndex        =   21
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "上蒸调节"
      Height          =   180
      Index           =   1
      Left            =   1200
      TabIndex        =   20
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "下蒸调节"
      Height          =   180
      Index           =   2
      Left            =   2280
      TabIndex        =   19
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "安全停车"
      Height          =   180
      Index           =   5
      Left            =   3120
      TabIndex        =   18
      Top             =   0
      Width           =   720
   End
End
Attribute VB_Name = "frmOther"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Check1_Click()
If Check1.Value = 1 Then
    Signal(66 + Stove_Index * 15).Remote = True
Else
    Signal(66 + Stove_Index * 15).Remote = False
End If

End Sub

Private Sub cmdSpeed_Click()
    cmdSpeed.Enabled = False
    strTRANCommand = Format(Stove_Index + 1, "00") & Format(Text1(4).Text, "0000")
    WritePrivateProfileString "stove" & Stove_Index + 1, "SetSpeed", CStr(Text1(4).Text), iniPaths + "Stove.ini"
    Stove(Stove_Index).SetSpeed = Text1(4).Text
    SynchroMsg ")" & Stove_Index + 1 & ")" & Trim(Text1(4).Text) & ")" & strTRANCommand
    TimeDelay 500
    cmdSpeed.Enabled = True
End Sub

Private Sub Command2_Click(Index As Integer)
Dim Add As Long, Chn As Long
On Error GoTo N
Select Case Index
    Case 0
        Command2(Index).Enabled = False
        Add = MotherBoard(Signal(66 + Stove_Index * 15).Board).Port_Dip
        If Signal(66 + Stove_Index * 15).Slot = 0 Or Signal(66 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(66 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(66 + Stove_Index * 15).Channel
        End If
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command2(Index).Enabled = True
    Case 1
        Command2(Index).Enabled = False
        Add = MotherBoard(Signal(67 + Stove_Index * 15).Board).Port_Dip
        If Signal(67 + Stove_Index * 15).Slot = 0 Or Signal(67 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(67 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(67 + Stove_Index * 15).Channel
        End If
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command2(Index).Enabled = True
    Case 2
        Command2(Index).Enabled = False
        Add = MotherBoard(Signal(68 + Stove_Index * 15).Board).Port_Dip
        If Signal(68 + Stove_Index * 15).Slot = 0 Or Signal(68 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(68 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(68 + Stove_Index * 15).Channel
        End If
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command2(Index).Enabled = True
    Case 3
        Command2(Index).Enabled = False
        Add = MotherBoard(Signal(69 + Stove_Index * 15).Board).Port_Dip
        If Signal(69 + Stove_Index * 15).Slot = 0 Or Signal(69 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(69 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(69 + Stove_Index * 15).Channel
        End If
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command2(Index).Enabled = True
    End Select
Exit Sub
N:
    Err.Clear
End Sub

Private Sub StopTransducer_Click()
    StopTransducer.Enabled = False
    strTRANCommand = Format(Stove_Index + 1, "00") & Format(0, "0000")
    SynchroMsg ")" & Stove_Index + 1 & ")" & "0" & ")" & strTRANCommand
    TimeDelay 500
    StopTransducer.Enabled = True
End Sub

Private Sub Command1_Click(Index As Integer)
Dim Add As Long, Chn As Long, tempVal As Single, i As Long
On Error GoTo N
Select Case Index
    Case 0
        Command1(Index).Enabled = False
        Add = MotherBoard(Signal(66 + Stove_Index * 15).Board).Port_Dip
        If Signal(66 + Stove_Index * 15).Slot = 0 Or Signal(66 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(66 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(66 + Stove_Index * 15).Channel
        End If
        tempVal = (Signal(66 + Stove_Index * 15).HighValue - Signal(66 + Stove_Index * 15).LowValue) * Val(Text1(Index).Text) / 100 + Signal(66 + Stove_Index * 15).LowValue
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn & "=" & Format(tempVal, "0.000")
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        If Signal(66 + Stove_Index * 15).HighAlarm <> tempVal Then
            Signal(66 + Stove_Index * 15).HighAlarm = tempVal
            WritePrivateProfileString "ALLOW" & 66 + Stove_Index * 15, "UpDown", CStr(tempVal), iniPaths + "Alarm.ini"
        End If
        TimeDelay 1000
        Command1(Index).Enabled = True
    Case 1
        Command1(Index).Enabled = False
        Add = MotherBoard(Signal(67 + Stove_Index * 15).Board).Port_Dip
        If Signal(67 + Stove_Index * 15).Slot = 0 Or Signal(67 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(67 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(67 + Stove_Index * 15).Channel
        End If
        tempVal = (Signal(67 + Stove_Index * 15).HighValue - Signal(67 + Stove_Index * 15).LowValue) * Val(Text1(Index).Text) / 100 + Signal(67 + Stove_Index * 15).LowValue
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn & "=" & Format(tempVal, "0.000")
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command1(Index).Enabled = True
    Case 2
        Command1(Index).Enabled = False
        Add = MotherBoard(Signal(68 + Stove_Index * 15).Board).Port_Dip
        If Signal(68 + Stove_Index * 15).Slot = 0 Or Signal(68 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(68 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(68 + Stove_Index * 15).Channel
        End If
        tempVal = (Signal(68 + Stove_Index * 15).HighValue - Signal(68 + Stove_Index * 15).LowValue) * Val(Text1(Index).Text) / 100 + Signal(68 + Stove_Index * 15).LowValue
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn & "=" & Format(tempVal, "0.000")
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command1(Index).Enabled = True
    Case 3
        Command1(Index).Enabled = False
        Add = MotherBoard(Signal(69 + Stove_Index * 15).Board).Port_Dip
        If Signal(69 + Stove_Index * 15).Slot = 0 Or Signal(69 + Stove_Index * 15).Slot = 1 Then
            Chn = Signal(69 + Stove_Index * 15).Channel + 4
        Else
            Chn = Signal(69 + Stove_Index * 15).Channel
        End If
        tempVal = (Signal(69 + Stove_Index * 15).HighValue - Signal(69 + Stove_Index * 15).LowValue) * Val(Text1(Index).Text) / 100 + Signal(69 + Stove_Index * 15).LowValue
        strPIDCommand = "$" & Format(Add, "00") & "MO" & Chn & "=" & Format(tempVal, "0.000")
        If Not isRead Then
            SynchroMsg "|" & Stove_Index & "|" & "Out" & "|" & strPIDCommand
        End If
        TimeDelay 1000
        Command1(Index).Enabled = True
    Case 4
        Unload Me
    Case 5
        Unload frmOther
        Unload frmSigStove
        Stove_Index = Stove_Index
        frmSigStove.Show
    Case 6
        lngPopedom = 3
        frmPassword.Show 1
        If mPassword Then
            mPassword = False
            For i = 0 To 3
                Command2(i).Enabled = True
            Next
        Else
            Exit Sub
        End If
    Case 7
        lngPopedom = 2
        frmPassword.Show 1
        If mPassword Then
            mPassword = False
            For i = 0 To 3
                Command1(i).Enabled = True
            Next
            Check1.Enabled = True
        Else
            For i = 0 To 3
                Command1(i).Enabled = False
            Next
            Check1.Enabled = False
        End If
End Select
Exit Sub
N:
    Err.Clear
End Sub

Private Sub Form_Load()
Dim hwndSigfrm As Long
hwndSigfrm = SetParent(Me.hWnd, frmMain.hWnd)
Me.Caption = Stove_Index + StoveStart & "#单炉操作画面"
'Text1(4).Text = Stove(Stove_Index).SetSpeed
'Text1(0) = Signal(66 + Stove_Index * 15).CalValue
'Text1(1) = Signal(67 + Stove_Index * 15).CalValue
'Text1(2) = Signal(68 + Stove_Index * 15).CalValue
'Text1(3) = Signal(69 + Stove_Index * 15).CalValue
'Check1.Value = Abs(CLng(Signal(66 + Stove_Index * 15).Remote))
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set frmOther = Nothing
End Sub



Private Sub Timer1_Timer()
LED2.Value = Stove(Stove_Index).Speed
With Stove(Stove_Index)
        prgStove(0).PV = .SXYL / SXYLclac * 100
        prgStove(0).AV = Signal(66 + Stove_Index * 15).CalValue
        prgStove(1).PV = Signal(63 + Stove_Index * 15).CalValue / Signal(63 + Stove_Index * 15).HighScale * 100
        prgStove(1).AV = Signal(67 + Stove_Index * 15).CalValue
        prgStove(2).PV = Signal(63 + Stove_Index * 15).CalValue / Signal(63 + Stove_Index * 15).HighScale * 100
        prgStove(2).AV = Signal(68 + Stove_Index * 15).CalValue
        prgStove(3).PV = Signal(64 + Stove_Index * 15).CalValue / Signal(64 + Stove_Index * 15).HighScale * 100
        prgStove(3).AV = Signal(69 + Stove_Index * 15).CalValue
        If Stove(Stove_Index).runstate = 1 Or Stove(Stove_Index).runstate = 3 Then
            Switch1.State = True
        Else
            Switch1.State = False
        End If
End With
End Sub

Private Sub TranSpeed_DownClick()
If Text1(4).Text >= 10 Then
     Text1(4).Text = Text1(4).Text - 10
End If
End Sub

Private Sub TranSpeed_UpClick()
If Text1(4) <= 1590 Then
     Text1(4).Text = Text1(4).Text + 10
End If
End Sub
Private Sub Text1_DblClick(Index As Integer)
    Set ControlLink = Text1(Index)
    frmDataIn.txtNumber = Text1(Index).Text
    frmDataIn.Show
End Sub

Private Sub UpDown1_DownClick(Index As Integer)
If Text1(Index).Text >= 1 Then
     Text1(Index).Text = Text1(Index).Text - 1
End If
End Sub

Private Sub UpDown1_UpClick(Index As Integer)
If Text1(Index) <= 99 Then
     Text1(Index).Text = Text1(Index).Text + 1
End If
End Sub