valveruning.ctl

VISUAL BASIC 6 实现的自动化控制系统程序. 里面包含了好几个OCX源代码.我5年前的作品.现在看起来有点垃圾了.

Public Property Get PopuMnuAble() As Boolean
Attribute PopuMnuAble.VB_ProcData.VB_Invoke_Property = "通用"
    PopuMnuAble = mPopuMnuAble
End Property
Public Property Let PopuMnuAble(ByVal vNewValue As Boolean)
    mPopuMnuAble = vNewValue
    PropertyChanged "PopuMnuAble"
End Property

'ValveState Property
Public Property Get ValveState() As Integer
Attribute ValveState.VB_ProcData.VB_Invoke_Property = "通用"
    ValveState = mValveState
End Property
Public Property Let ValveState(ByVal vNewValue As Integer)
    mValveState = vNewValue
    PropertyChanged "ValveState"
End Property

'IsInTab Property
Public Property Get IsInTab() As Boolean
Attribute IsInTab.VB_ProcData.VB_Invoke_Property = "自动循环"
    IsInTab = mIsInTab
End Property
Public Property Let IsInTab(ByVal vNewValue As Boolean)
    mIsInTab = vNewValue
    PropertyChanged "IsInTab"
End Property

'IsChange Property
Public Property Get IsChange() As Boolean
Attribute IsChange.VB_ProcData.VB_Invoke_Property = "通用"
    IsChange = mIsChange
End Property
Public Property Let IsChange(ByVal vNewValue As Boolean)
    mIsChange = vNewValue
    PropertyChanged "IsChange"
End Property

'FFOHandOpen Property
Public Property Get FFOHandOpen() As Boolean
Attribute FFOHandOpen.VB_ProcData.VB_Invoke_Property = "通用"
    FFOHandOpen = mFFOHandOpen
End Property
Public Property Let FFOHandOpen(ByVal vNewValue As Boolean)
    mFFOHandOpen = vNewValue
    If vNewValue = True Then
        Label1.BackColor = vbGreen
        Label1.Caption = "M"
        Label1.Visible = True
    Else
        Label1.Visible = False
    End If
    RaiseEvent IsOpen(mInCyc, True)
    PropertyChanged "FFOHandOpen"
End Property

'InCyc Property
Public Property Get InCyc() As Boolean
Attribute InCyc.VB_ProcData.VB_Invoke_Property = "自动循环"
    InCyc = mInCyc
End Property
Public Property Let InCyc(ByVal vNewValue As Boolean)
    mInCyc = vNewValue
    If vNewValue = True Then
        Label1.BackColor = vbRed
        Label1.Caption = "A"
        Label1.Visible = True
    Else
        Label1.Visible = False
    End If
    If mInCyc = False Then CycStop
    PropertyChanged "InCyc"
End Property

'ComputAuto Property
Public Property Get ComputAuto() As Boolean
Attribute ComputAuto.VB_ProcData.VB_Invoke_Property = "自动循环"
    ComputAuto = mComputAuto
End Property
Public Property Let ComputAuto(ByVal vNewValue As Boolean)
    mComputAuto = vNewValue
    PropertyChanged "ComputAuto"
End Property

'FluxSpeed Property
Public Property Get FluxSpeed() As Single
Attribute FluxSpeed.VB_ProcData.VB_Invoke_Property = "通用"
    FluxSpeed = mFluxSpeed
End Property
Public Property Let FluxSpeed(ByVal vNewValue As Single)
    mFluxSpeed = vNewValue
    mnuFluxSpeed.Caption = "流速：" & vNewValue & "T/H"
    PropertyChanged "FluxSpeed"
End Property

'AddAmount Property
Public Property Get AddAmount() As Double
Attribute AddAmount.VB_ProcData.VB_Invoke_Property = "通用"
    AddAmount = mAddAmount
End Property
Public Property Let AddAmount(ByVal vNewValue As Double)
    mAddAmount = vNewValue
    PropertyChanged "AddAmount"
End Property

'CurAmount Property
Public Property Get CurAmount() As Double
Attribute CurAmount.VB_ProcData.VB_Invoke_Property = "通用"
    CurAmount = mCurAmount
End Property
Public Property Let CurAmount(ByVal vNewValue As Double)
    mCurAmount = vNewValue
    mnuCurAmout.Caption = "灌量：" & Format(vNewValue, "#0.000") & "T"
    PropertyChanged "CurAmount"
End Property

'SetAmount Property
Public Property Get SetAmount() As Double
Attribute SetAmount.VB_ProcData.VB_Invoke_Property = "自动循环"
    SetAmount = mSetAmount
End Property
Public Property Let SetAmount(ByVal vNewValue As Double)
    mSetAmount = vNewValue
    PropertyChanged "SetAmount"
End Property

'CloseTime Property
Public Property Get CloseTime()
    CloseTime = mCloseTime
End Property
Public Property Let CloseTime(ByVal vNewValue)
    mCloseTime = vNewValue
    PropertyChanged "CloseTime"
End Property

'OpenTime Property
Public Property Get OpenTime()
    OpenTime = mOpenTime
End Property
Public Property Let OpenTime(ByVal vNewValue)
    mOpenTime = vNewValue
    PropertyChanged "OpenTime"
End Property

'SetCloseTime Property
Public Property Get SetCloseTime()
    SetCloseTime = mSetCloseTime
End Property
Public Property Let SetCloseTime(ByVal vNewValue)
    mSetCloseTime = vNewValue
    PropertyChanged "SetCloseTime"
End Property

'mCycNextID Property
Public Property Get CycNextID() As Integer
Attribute CycNextID.VB_ProcData.VB_Invoke_Property = "自动循环"
    CycNextID = mCycNextID
End Property
Public Property Let CycNextID(ByVal vNewValue As Integer)
    mCycNextID = vNewValue
    PropertyChanged "CycNextID"
End Property


'Interval Property
Public Property Get Interval() As Integer
Attribute Interval.VB_ProcData.VB_Invoke_Property = "通用"
    Interval = Timer1.Interval
End Property
Public Property Let Interval(ByVal vNewValue As Integer)
    Timer1.Interval = vNewValue
    PropertyChanged "Interval"
End Property

'TitlName Property
Public Property Get TitlName() As String
Attribute TitlName.VB_ProcData.VB_Invoke_Property = "通用"
    TitlName = mTitlName
End Property
Public Property Let TitlName(ByVal vNewValue As String)
     mTitlName = vNewValue
     PropertyChanged "TitlName"
End Property

'*产生动画*
Private Sub Timer1_Timer()
xx = xx + 1
Set Picture1.Picture = ImageList1.ListImages(xx).Picture
If xx >= 4 Then xx = 0
End Sub

Public Property Get Runing() As Boolean
Attribute Runing.VB_ProcData.VB_Invoke_Property = "通用"
    Runing = mRuning
End Property
'运行状态
Public Property Let Runing(ByVal vNewValue As Boolean) '&&&
     mRuning = vNewValue
     If mRuning = True Then
         Timer1.Enabled = True
         OpenTime = Now
        If InCyc Then
            If mFFOHandOpen Then
                RaiseEvent IsOpen(True, True)
            Else
                RaiseEvent IsOpen(True, False)
            End If
        Else
            If mFFOHandOpen Then
                RaiseEvent IsOpen(False, True)
            Else
                RaiseEvent IsOpen(False, False)
            End If
        End If
     Else
        Timer1.Enabled = False
        CloseTime = Now
        If InCyc Then
            RaiseEvent IsClose(True)
        Else
            RaiseEvent IsClose(False)
        End If
     End If
     PropertyChanged "Runing"
End Property
'ToolTipText Property
Public Property Get ToolTipText() As String
Attribute ToolTipText.VB_ProcData.VB_Invoke_Property = "通用"
    ToolTipText = Picture1.ToolTipText
End Property
Public Property Let ToolTipText(ByVal vNewValue As String)
    Picture1.ToolTipText = vNewValue
    PropertyChanged "ToolTipText"
End Property

'BackColor Property
Public Property Get BackColor() As OLE_COLOR
    BackColor = Picture1.BackColor
End Property
Public Property Let BackColor(ByVal vNewValue As OLE_COLOR)
     Picture1.BackColor = vNewValue
     PropertyChanged "BackColor"
End Property

Private Sub UserControl_Initialize()
'    mRelationValveID = mIndexID
     mRuning = False
    MnuClose.Enabled = True
    
     Picture1.Picture = ImageList1.ListImages(5).Picture
End Sub

Private Sub UserControl_Resize()
UserControl.BackColor = Picture1.BackColor
Picture1.Left = -90
Picture1.Top = -90
Picture1.Height = UserControl.ScaleHeight + 90
Picture1.Width = UserControl.ScaleWidth + 90
End Sub
Private Sub UserControl_ReadProperties(Propbag As PropertyBag)

    mIndexID = Propbag.ReadProperty("IndexID", 0)
    mRuning = Propbag.ReadProperty("Runing", 0)
    Picture1.BackColor = Propbag.ReadProperty("BackColor", &H80000005)
    Picture1.ToolTipText = Propbag.ReadProperty("ToolTipText", "")
    Timer1.Interval = Propbag.ReadProperty("Interval", 200)
    mTitlName = Propbag.ReadProperty("TitlName", "")
    
    mSetOpenTime = Propbag.ReadProperty("SetOpenTime", 0)
    mSetCloseTime = Propbag.ReadProperty("SetCloseTime", 0)
    mOpenTime = Propbag.ReadProperty("OpenTime", 0)
    mCloseTime = Propbag.ReadProperty("CloseTime", 0)
    
    mSetAmount = Propbag.ReadProperty("SetAmount", 0)
    mCurAmount = Propbag.ReadProperty("CurAmount", 0)
    mAddAmount = Propbag.ReadProperty("AddAmount", 0)
    
    mFluxSpeed = Propbag.ReadProperty("FluxSpeed", 0)
    mComputAuto = Propbag.ReadProperty("ComputAuto", 0)
    mInCyc = Propbag.ReadProperty("InCyc", 0)
    
    mFFOHandOpen = Propbag.ReadProperty("FFOHandOpen", 0)
    mIsChange = Propbag.ReadProperty("IsChange", 0)
    mIsInTab = Propbag.ReadProperty("IsInTab", 0)
    
    mValveState = Propbag.ReadProperty("ValveState", 0)
    mPopuMnuAble = Propbag.ReadProperty("PopuMnuAble", 0)
    mIsMaster = Propbag.ReadProperty("IsMaster", 0)
    mMasterID = Propbag.ReadProperty("MasterID", 0)
    mCycNextID = Propbag.ReadProperty("CycNextID", 0)
    mCycKeepTime = Propbag.ReadProperty("CycKeepTime", 0)
    mRelationValveID = Propbag.ReadProperty("RelationValveID", 0)
End Sub
Private Sub UserControl_WriteProperties(Propbag As PropertyBag)
    Propbag.WriteProperty "IndexID", mIndexID, 0
    Propbag.WriteProperty "Runing", mRuning, 0
    Propbag.WriteProperty "BackColor", Picture1.BackColor, &H80000005
    Propbag.WriteProperty "ToolTipText", Picture1.ToolTipText, ""
    Propbag.WriteProperty "Interval", Timer1.Interval, 200
    Propbag.WriteProperty "TitlName", mTitlName, ""
        
    Propbag.WriteProperty "SetOpenTime", mSetOpenTime, 0
    Propbag.WriteProperty "SetCloseTime", mSetCloseTime, 0
     Propbag.WriteProperty "OpenTime", mOpenTime, 0
     Propbag.WriteProperty "CloseTime", mCloseTime, 0
    
     Propbag.WriteProperty "SetAmount", mSetAmount, 0
     Propbag.WriteProperty "CurAmount", mCurAmount, 0
     Propbag.WriteProperty "AddAmount", 0
    
    Propbag.WriteProperty "FluxSpeed", mFluxSpeed, 0
    Propbag.WriteProperty "ComputAuto", mComputAuto, 0
    Propbag.WriteProperty "InCyc", mInCyc, 0
    
     Propbag.WriteProperty "FFOHandOpen", mFFOHandOpen, 0
     Propbag.WriteProperty "IsChange", mIsChange, 0
     Propbag.WriteProperty "IsInTab", mIsInTab, 0
    
     Propbag.WriteProperty "ValveState", mValveState, 0
     Propbag.WriteProperty "PopuMnuAble", mPopuMnuAble, 0
     Propbag.WriteProperty "IsMaster", mIsMaster, 0
     Propbag.WriteProperty "MasterID", mMasterID, 0
     Propbag.WriteProperty "CycNextID", mCycNextID, 0
     Propbag.WriteProperty "CycKeepTime", mCycKeepTime, 0
     Propbag.WriteProperty "RelationValveID", mRelationValveID, 0
End Sub

Public Sub CycStar(mIntervalTimeKeep As Integer) '参数mIntervalTimeKeep用以传递新的循环保持时间
    If mIntervalTimeKeep <> 0 Then DecTimekeep = mIntervalTimeKeep
    CycTime.Enabled = True
    RaiseEvent DoOpen
End Sub

Public Sub CycStop()
    CycTime.Enabled = False
End Sub

Public Sub Refurbish()        '刷新，定时开阀，于关阀。
    If mSetOpenTime <> 0 And mSetOpenTime = mSetCloseTime Then RaiseEvent MyValveError("The_SetOpenTime EQU The_SetCloseTime")
    If mSetOpenTime <> 0 And mSetOpenTime <= Now And mRuning = False Then RaiseEvent SetTimeOverDoOpen
    If mSetOpenTime <> 0 And mSetCloseTime <= Now And mRuning = True Then RaiseEvent SetTimeOverDoClose
End Sub