mainfrm.frm

用于控制氧乐果生产的程序

    If gGongZuoZhuangTai(1) Then
        .yjaYongLiang = Abs(fyf1_Control.jlgYeWei - fyf1_Control.jlgcsYeWei)
    Else
        .yjaYongLiang = 0
    End If
    Case 2
    If gGongZuoZhuangTai(2) Then
        .yjaYongLiang = Abs(fyf2_Control.jlgYeWei - fyf2_Control.jlgcsYeWei)
    Else
        .yjaYongLiang = 0
    End If
    Case 3
    If gGongZuoZhuangTai(3) Then
        .yjaYongLiang = Abs(fyf3_Control.jlgYeWei - fyf3_Control.jlgcsYeWei)
    Else
        .yjaYongLiang = 0
    End If
End Select
End With
Next
'*******************************
'为zkhmfrm赋属性值
'*******************************
For i = 1 To 3
With zkhmfrm
    .Index = i
    .fyfWenDu = gfyfWenDu(i)
    .yjaLiuLiang = gyjaLiuLiang(i)
    .tlfaKaiDu = gtlfaKaiDu(i)
    .jlgYeWei = gjlgYeWei(i)
    .lqysWenDu = glqysWenDu
End With

If gtlfaKaiDu(i) <= 0.2 Then
    gIsTouLiao(i) = False
Else
    gIsTouLiao(i) = True
End If
Next
'*******************************
'为baojingfrm赋属性值
'*******************************
baojingfrm.lqysWenDu = Me.fyf_lqysWenDu.Value

If Month(Date) = 1 Then
    tmrDeleteRec.Enabled = True
Else
    tmrDeleteRec.Enabled = False
End If

End Sub
Public Sub TouLiaoWanBi(ByVal Index As Integer)
On Error Resume Next
tmrSoftSpring(Index - 1).Enabled = True
Call tlBeginOrEndWriteRecord(Batchlsrs(Index), Detaillsrs(Index), _
Continousrs(Index), Index, "投料结束", False)
gIsTouLiao(Index) = False
gblnIsAuto(Index) = True
tmrControl(Index - 1).Enabled = False
zkhmfrm.Text1(Index - 1).Locked = True
zkhmfrm.Text1(Index - 1).BackColor = &H80000000

Select Case Index
    Case 1
        fyf1_Control.tlfaKaiDu = 0
        fyf1_Control.Counter = 0
        mfyf1WenDu(Index - 1) = -35
        mfyf1WenDu(Index - 1) = -35
        fyf1_Control.WorkState = False
        mnuCreat1.Enabled = True
        m_fyf1Add.Enabled = False
    Case 2
        fyf2_Control.tlfaKaiDu = 0
        fyf2_Control.Counter = 0
        mfyf2WenDu(Index - 1) = -35
        mfyf2WenDu(Index - 1) = -35
        fyf2_Control.WorkState = False
        mnuCreat2.Enabled = True
        m_fyf2Add.Enabled = False
    Case 3
        fyf3_Control.tlfaKaiDu = 0
        fyf3_Control.Counter = 0
        mfyf3WenDu(Index - 1) = -35
        mfyf3WenDu(Index - 1) = -35
        fyf3_Control.WorkState = False
        mnuCreat3.Enabled = True
        m_fyf3Add.Enabled = False
End Select
End Sub

Private Sub tmrSoftSpring_Timer(Index As Integer)
On Error Resume Next
Dim tlfKaiDuXiaXian(1 To 3) As Single
tlfKaiDuXiaXian(Index + 1) = gintKaiDuXiaXian(Index + 1) * 100 / 4096
Select Case Index
    Case 0
        Call A_out(fyf1_Control.tlfBaseAddress, fyf1_Control.tlfChannel, _
        tlfKaiDuXiaXian(1), 1)
    Case 1
        Call A_out(fyf2_Control.tlfBaseAddress, fyf2_Control.tlfChannel, _
        tlfKaiDuXiaXian(2), 2)
    Case 2
        Call A_out(fyf3_Control.tlfBaseAddress, fyf3_Control.tlfChannel, _
        tlfKaiDuXiaXian(3), 3)
End Select
tmrSoftSpring(Index).Enabled = False
End Sub
Private Sub tmrWriteRecord_Timer()
Call WriteRecord
End Sub
'********************************
'初始化数据，从参数数据库中读取参数
'********************************
Public Sub ReadParameter()
fyf1_Control.fyfNum = 1
fyf2_Control.fyfNum = 2
fyf3_Control.fyfNum = 3

'*******************************
'读工艺参数
'*******************************
With Csrs(1)
    .MoveFirst
    gsngyjaMiDu = .Fields("yjamd")
    fyf1_Control.yjaMiDu = .Fields("yjamd")
    fyf1_Control.jlgZhiJing = .Fields("jlgzj")
    gsngjlgZhiJing(1) = .Fields("jlgzj")
    .MoveNext
    fyf2_Control.yjaMiDu = .Fields("yjamd")
    fyf2_Control.jlgZhiJing = .Fields("jlgzj")
    gsngjlgZhiJing(2) = .Fields("jlgzj")
    .MoveLast
    fyf3_Control.yjaMiDu = .Fields("yjamd")
    fyf3_Control.jlgZhiJing = .Fields("jlgzj")
    gsngjlgZhiJing(3) = .Fields("jlgzj")
End With
'*******************************
'读周期参数
'*******************************
With Csrs(2)
    .MoveFirst
    tmrSample.interval = CLng(.Fields("interval"))
    .MoveNext
    For i = 0 To 2
    tmrControl(i).interval = CLng(.Fields("interval"))
    Next
    .MoveNext
    tmrWriteRecord.interval = CLng(.Fields("interval"))
    .MoveNext
    N = CSng(.Fields("interval"))
    .MoveNext
    gLiuDongInterval = CLng(.Fields("interval"))
    .MoveNext
    gJiaoBanInterval = CLng(.Fields("interval"))
    .MoveNext
    glsjlPictureScaleWidth = CLng(.Fields("interval"))
    .MoveNext
    tmrDeleteRec.interval = CLng(.Fields("interval"))
    .MoveNext
    Aad = .Fields("interval")
    .MoveNext
    Bad = .Fields("interval")
    .MoveNext
    gsngJZToYJARatio = .Fields("interval")
    .MoveNext
    gintKaiDuXiaXian(1) = .Fields("interval")
    .MoveNext
    gintKaiDuXiaXian(2) = .Fields("interval")
    .MoveNext
    gintKaiDuXiaXian(3) = .Fields("interval")
    .MoveNext
    fyf1_Control.fyfwdChartGuaiDian = .Fields("interval")
    fyf2_Control.fyfwdChartGuaiDian = .Fields("interval")
    fyf3_Control.fyfwdChartGuaiDian = .Fields("interval")
End With
'*******************************
'读内部输入参数
'*******************************
'*******************************
'第1条记录：1#反应釜温度
'*******************************
Csrs(3).MoveFirst
With fyf1_fyfWenDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .SheDingValue = CSng(Csrs(3).Fields("sdz"))
    fyf1_Control.fyfwdSheDingValue = CSng(Csrs(3).Fields("sdz"))
    .AlarmUp = CSng(Csrs(3).Fields("bjsx"))
    gsngfyfwdScaleTop(1) = Csrs(3).Fields("zbsx")
    gsngfyfwdScaleBottom(1) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第2条记录：1#投料阀开度
'*******************************
Csrs(3).MoveNext
With fyf1_tlfKaiDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    gsngtlfkdScaleTop(1) = Csrs(3).Fields("zbsx")
    gsngtlfkdScaleBottom(1) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第3条记录：1#计量罐液位
'*******************************
Csrs(3).MoveNext
With fyf1_jlgYeWei
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .AlarmDown = CSng(Csrs(3).Fields("bjxx"))
    gsngjlgywScaleTop(1) = Csrs(3).Fields("zbsx")
    gsngjlgywScaleBottom(1) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
With fyf1_Control
    .jlgjsYeWei_TiQianLiang = CSng(Csrs(3).Fields("tql"))
    .jlgAlarmDown = CSng(Csrs(3).Fields("bjxx"))
End With
'*******************************
'第4条记录：2#反应釜温度
'*******************************
Csrs(3).MoveNext
With fyf2_fyfWenDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .SheDingValue = CSng(Csrs(3).Fields("sdz"))
    fyf2_Control.fyfwdSheDingValue = CSng(Csrs(3).Fields("sdz"))
    .AlarmUp = CSng(Csrs(3).Fields("bjsx"))
    gsngfyfwdScaleTop(2) = Csrs(3).Fields("zbsx")
    gsngfyfwdScaleBottom(2) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第5条记录：2#投料阀开度
'*******************************
Csrs(3).MoveNext
With fyf2_tlfKaiDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    gsngtlfkdScaleTop(2) = Csrs(3).Fields("zbsx")
    gsngtlfkdScaleBottom(2) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第6条记录：2#计量罐液位
'*******************************
Csrs(3).MoveNext
With fyf2_jlgYeWei
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .AlarmDown = CSng(Csrs(3).Fields("bjxx"))
    gsngjlgywScaleTop(2) = Csrs(3).Fields("zbsx")
    gsngjlgywScaleBottom(2) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
With fyf2_Control
    .jlgjsYeWei_TiQianLiang = CSng(Csrs(3).Fields("tql"))
    .jlgAlarmDown = CSng(Csrs(3).Fields("bjxx"))
End With
Csrs(3).MoveNext
'*******************************
'第7条记录：3#反应釜温度
'*******************************
With fyf3_fyfWenDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .SheDingValue = CSng(Csrs(3).Fields("sdz"))
    fyf3_Control.fyfwdSheDingValue = CSng(Csrs(3).Fields("sdz"))
    .AlarmUp = CSng(Csrs(3).Fields("bjsx"))
    gsngfyfwdScaleTop(3) = Csrs(3).Fields("zbsx")
    gsngfyfwdScaleBottom(3) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第8条记录：3#投料阀开度
'*******************************
Csrs(3).MoveNext
With fyf3_tlfKaiDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    gsngtlfkdScaleTop(3) = Csrs(3).Fields("zbsx")
    gsngtlfkdScaleBottom(3) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
'*******************************
'第9条记录：3#计量罐液位
'*******************************
Csrs(3).MoveNext
With fyf3_jlgYeWei
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    .AlarmDown = CSng(Csrs(3).Fields("bjxx"))
    gsngjlgywScaleTop(3) = Csrs(3).Fields("zbsx")
    gsngjlgywScaleBottom(3) = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
With fyf3_Control
    .jlgjsYeWei_TiQianLiang = CSng(Csrs(3).Fields("tql"))
    .jlgAlarmDown = CSng(Csrs(3).Fields("bjxx"))
End With
'*******************************
'第十条记录：冷却水温度
'*******************************
Csrs(3).MoveNext
With fyf_lqysWenDu
    .BaseAddress = Csrs(3).Fields("jdz")
    .Channel = Csrs(3).Fields("tdh")
    .SignalMaxValue = Csrs(3).Fields("xhzd")
    .SignalMinValue = Csrs(3).Fields("xhzx")
    .ProjectMaxValue = Csrs(3).Fields("gczd")
    .ProjectMinValue = Csrs(3).Fields("gczx")
    gsnglqyswdScaleTop = Csrs(3).Fields("zbsx")
    gsnglqyswdScaleBottom = Csrs(3).Fields("zbxx")
    .LvBoXiShu = Csrs(3).Fields("lbxs")
End With
With Csrs(3)
    .MoveNext
    gsngyjallScaleTop(1) = .Fields("zbsx")
    gsngyjallScaleBottom(1) = .Fields("zbxx")
    gsngLiuLiangLvBo(1) = .Fields("lbxs")
End With
With Csrs(3)
    .MoveNext
    gsngyjallScaleTop(2) = .Fields("zbsx")
    gsngyjallScaleBottom(2) = .Fields("zbxx")
    gsngLiuLiangLvBo(2) = .Fields("lbxs")
End With
With Csrs(3)
    .MoveNext
    gsngyjallScaleTop(3) = .Fields("zbsx")
    gsngyjallScaleBottom(3) = .Fields("zbxx")
    gsngLiuLiangLvBo(3) = .Fields("lbxs")
End With

'******************************
'读内部输出参数
'******************************
Csrs(4).MoveFirst
With fyf1_Control
    .tlfBaseAddress = Csrs(4).Fields("jdz")
    .tlfChannel = Csrs(4).Fields("tdh")
    .tlfStartKaiDu = Csrs(4).Fields("startkaidu")
    .tlf70KgKaiDu = Csrs(4).Fields("70kgkaidu")
    .tlfHorizon1KaiDu = Csrs(4).Fields("horizon1kaidu")
    .tlfHorizon2KaiDu = Csrs(4).Fields("horizon2kaidu")
    .tlfLeft60KgKaiDu = Csrs(4).Fields("left60kgkaidu")
End With
Csrs(4).MoveNext
With fyf2_Control
    .tlfBaseAddress = Csrs(4).Fields("jdz")
    .tlfChannel = Csrs(4).Fields("tdh")
    .tlfStartKaiDu = Csrs(4).Fields("startkaidu")
    .tlf70KgKaiDu = Csrs(4).Fields("70kgkaidu")
    .tlfHorizon1KaiDu = Csrs(4).Fields("horizon1kaidu")
    .tlfHorizon2KaiDu = Csrs(4).Fields("horizon2kaidu")
    .tlfLeft60KgKaiDu = Csrs(4).Fields("left60kgkaidu")
End With
Csrs(4).MoveLast
With fyf3_Control
    .tlfBaseAddress = Csrs(4).Fields("jdz")
    .tlfChannel = Csrs(4).Fields("tdh")
    .tlfStartKaiDu = Csrs(4).Fields("startkaidu")
    .tlf70KgKaiDu = Csrs(4).Fields("70kgkaidu")
    .tlfHorizon1KaiDu = Csrs(4).Fields("horizon1kaidu")
    .tlfHorizon2KaiDu = Csrs(4).Fields("horizon2kaidu")
    .tlfLeft60KgKaiDu = Csrs(4).Fields("left60kgkaidu")
End With
End Sub