module_control.cls

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

'        End If
'    End If
'End If
'
'If (mvaryjaYiYongLiang > 90) And (mvaryjaYiYongLiang <= 150) Then
'    mvartlfKaiDu = mvartlfHorizon1KaiDu
'End If
'If (mvaryjaYiYongLiang > 150) And (mvaryjaYiYongLiang <= mvaryjatlLiang - 50) Then
'    mvartlfKaiDu = mvartlfHorizon2KaiDu
'End If
'
'If (mvaryjaShengYuLiang < 50) Then
'    If mvarfyfWenDu < mvarfyfwdSheDingValue - 1.5 Then
'        mvartlfKaiDu = mvartlfLeft60KgKaiDu
'    End If
'    If mvarfyfWenDu >= mvarfyfwdSheDingValue - 1.5 Then
'        mvartlfKaiDu = mvartlfLeft60KgKaiDu - 15
'    End If
'End If
'
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 2) And (mvarfyfWenDu < mvarfyfwdSheDingValue) Then
'    If mvaryjaYiYongLiang < 100 Then
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 1 Then
'            If (mvarfyfWenDuXieLv > 0.01) And (mvarfyfWenDuXieLv <= 0.018) Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If (mvarfyfWenDuXieLv > 0.018) And (mvarfyfWenDuXieLv <= 0.02) Then
'                mvartlfKaiDu = mvartlfKaiDu - 20
'            End If
'            If (mvarfyfWenDuXieLv > 0.02) Then
'                mvartlfKaiDu = 0
'            End If
'            If (mvarfyfWenDuXieLv > -0.01) And (mvarfyfWenDuXieLv <= 0) Then
'                mvartlfKaiDu = mvartlfKaiDu + 10
'            End If
'            If (mvarfyfWenDuXieLv <= -0.01) Then
'                mvartlfKaiDu = mvartlfKaiDu + 20
'            End If
'        End If
'    Else
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 0.5 Then
'            If (mvarfyfWenDuXieLv > 0.008) And (mvarfyfWenDuXieLv <= 0.015) Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If (mvarfyfWenDuXieLv > 0.015) And (mvarfyfWenDuXieLv <= 0.02) Then
'                mvartlfKaiDu = mvartlfKaiDu - 20
'            End If
'            If (mvarfyfWenDuXieLv > 0.02) Then
'                mvartlfKaiDu = 0
'            End If
'            If (mvarfyfWenDuXieLv > -0.01) And (mvarfyfWenDuXieLv <= 0) Then
'                mvartlfKaiDu = mvartlfKaiDu + 10
'            End If
'            If (mvarfyfWenDuXieLv <= -0.01) Then
'                mvartlfKaiDu = mvartlfKaiDu + 20
'            End If
'        End If
'        If mvarfyfWenDu >= mvarfyfwdSheDingValue - 0.5 Then
'            If mvarfyfWenDuXieLv > 0 Then
'                mvartlfKaiDu = 0
'            End If
'        End If
'    End If
'End If
'
'If mvarfyfWenDu >= mvarfyfwdSheDingValue Then
'    mvartlfKaiDu = 0
'End If
'*************************************
'算法3：Bang-Bang控制,假定设定值为-12℃
'*************************************
''<-34℃
'If mvarfyfWenDu < mvarfyfwdSheDingValue - 22 Then
'
'End If
''-34～-33℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 22) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 21) Then
'
'End If
''-33～-32℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 21) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 20) Then
'
'End If
''-32～-31℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 20) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 19) Then
'
'End If
''-31～-30℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 19) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 18) Then
'
'End If
''-30～-29℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 18) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 17) Then
'
'End If
''-29～-28℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 17) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 16) Then
'
'End If
''-28～-27℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 16) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 15) Then
'
'End If
''-27～-26℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 15) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 14) Then
'
'End If
''-26～-25℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 14) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 13) Then
'
'End If
''-25～-24℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 13) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 12) Then
'
'End If
''-24～-23℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 12) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 11) Then
'
'End If
''-23～-22℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 11) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 10) Then
'
'End If
''-22～-19℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 10) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 7) Then
'    mvartlfKaiDu = mvartlfStartKaiDu
'    If mvarfyfWenDuXieLv < 0 Then
'        mvartlfKaiDu = mvartlfKaiDu + 8
'    End If
'    If mvarfyfWenDuXieLv < -0.003 Then
'        mvartlfKaiDu = mvartlfKaiDu + 10
'    End If
'    If mvarfyfWenDuXieLv < -0.008 Then
'        mvartlfKaiDu = mvartlfKaiDu + 10
'    End If
'    If mvarfyfWenDuXieLv < -0.01 Then
'        mvartlfKaiDu = mvartlfKaiDu + 10
'    End If
'End If
''-19～-18℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 7) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 6) Then
'
'End If
''-18～-17℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 6) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 5) Then
'
'End If
''-17～-16℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 5) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 4) Then
'
'End If
''-16～-15℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 4) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 3) Then
'
'End If
''-15～-14℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 3) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 2) Then
'
'End If
''-14～-13℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 2) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 1) Then
'
'End If
''-13～-12.5℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 1) And _
'   (mvarfyfWenDu < mvarfyfwdSheDingValue - 0.5) Then
'
'End If
''-12.5～-12℃
'If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 0.5) And _
'   (mvarfyfWenDu <= mvarfyfwdSheDingValue) Then
'
'End If
''>-12℃
'If (mvarfyfWenDu > mvarfyfwdSheDingValue) Then
'
'End If
'*************************************
'算法4：Bang-Bang控制,假定设定值为-12℃
'*************************************
'If mvaryjaYiYongLiang <= 50 Then
'    '<-30℃
'    If mvarfyfWenDu < mvarfyfwdSheDingValue - 18 Then
'        mvartlfKaiDu = mvartlfStartKaiDu + 15
'    End If
'    '-30～-25℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 18) And _
'       (mvarfyfWenDu < mvarfyfwdSheDingValue - 13) Then
'        mvartlfKaiDu = mvartlfStartKaiDu + 10
'    End If
'    '-25～-23℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 13) And _
'       (mvarfyfWenDu < mvarfyfwdSheDingValue - 11) Then
'        mvartlfKaiDu = mvartlfStartKaiDu + 5
'    End If
'    '-23～-18℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 11) And _
'       (mvarfyfWenDu < mvarfyfwdSheDingValue - 6) Then
'        mvartlfKaiDu = mvartlfStartKaiDu
'    End If
'    '-18～-14℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 6) And _
'       (mvarfyfWenDu < mvarfyfwdSheDingValue - 2) Then
'        mvartlfKaiDu = mvartlfStartKaiDu - 15
'    End If
'    '-14～-12℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 2) And _
'       (mvarfyfWenDu < mvarfyfwdSheDingValue) Then
'        mvartlfKaiDu = mvartlfStartKaiDu - 30
'    End If
'    '>-12℃
'    If (mvarfyfWenDu >= mvarfyfwdSheDingValue) Then
'        mvartlfKaiDu = 0
'    End If
'End If
'If mvaryjaYiYongLiang > 50 Then
'    If mvarCounter < mvarwdChartGuaiDian Then
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 2 Then
'            If mvarfyfWenDuXieLv > 0.9 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 5
'            End If
'            If mvarfyfWenDuXieLv > 1.1 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 5
'            End If
'            If mvarfyfWenDuXieLv > 1.2 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 1.3 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = 0
'            End If
'            If mvarfyfWenDuXieLv < 0.8 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < 0.7 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < 0 Then
'                mvartlfKaiDu = mvartlfKaiDu + 15
'            End If
'        End If
'        If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 2) And _
'        (mvarfyfWenDu <= mvarfyfwdSheDingValue - 0.5) Then
'            If mvarfyfWenDuXieLv > 0.6 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 0.7 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 0.8 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 0.9 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = 0
'            End If
'            If mvarfyfWenDuXieLv < 0.4 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < 0.3 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < 0.2 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < 0 Then
'                mvartlfKaiDu = mvartlfKaiDu + 15
'            End If
'        End If
'        If (mvarfyfWenDu >= mvarfyfwdSheDingValue - 0.5) And _
'        (mvarfyfWenDu < mvarfyfwdSheDingValue) Then
'            If mvarfyfWenDuXieLv > 0.2 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 0.4 * mvarIncreaseXieLv Then
'                mvartlfKaiDu = 0
'            End If
'            If mvarfyfWenDuXieLv < 0 Then
'                mvartlfKaiDu = mvartlfKaiDu + 8
'            End If
'            If mvarfyfWenDuXieLv < -0.005 Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < -0.001 Then
'                mvartlfKaiDu = mvartlfKaiDu + 8
'            End If
'        End If
'        If (mvarfyfWenDu > mvarfyfwdSheDingValue) Then
'            mvartlfKaiDu = 0
'        End If
'    End If
'    If mvarCounter >= mvarwdChartGuaiDian Then
'        If (mvarfyfWenDu < mvarfyfwdSheDingValue - 1) And _
'        (mvarfyfWenDu >= mvarfyfwdSheDingValue - 2) Then
'            If mvarfyfWenDuXieLv <= 0 Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv < -0.005 Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
''            If mvarfyfWenDuXieLv < -0.01 Then
''                mvartlfKaiDu = mvartlfKaiDu + 5
''            End If
''            If mvarfyfWenDuXieLv < -0.015 Then
''                mvartlfKaiDu = mvartlfKaiDu + 5
''            End If
'            If mvarfyfWenDuXieLv < -0.02 Then
'                mvartlfKaiDu = mvartlfKaiDu + 5
'            End If
'            If mvarfyfWenDuXieLv > 0.01 Then
'                mvartlfKaiDu = mvartlfKaiDu - 10
'            End If
'            If mvarfyfWenDuXieLv > 0.015 Then
'                mvartlfKaiDu = mvartlfKaiDu - 15
'            End If
'            If mvarfyfWenDuXieLv > 0.018 Then
'                mvartlfKaiDu = 0
'            End If
'        End If
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 2 Then
'            mvartlfKaiDu = mvartlfKaiDu + 15
'        End If
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 3 Then
'            mvartlfKaiDu = mvartlfKaiDu + 10
'        End If
'        If mvarfyfWenDu < mvarfyfwdSheDingValue - 4 Then