openclose.vb

来自「广西百色247台电视发射机监控源代码.已经过实践」· VB 代码 · 共 49 行

Public Class OpenClose
    ''''''''''''自动开关机控制
    Private iTransmitID As Integer             '''发射机编号
    Private iWeek As Integer                   '''星期几   1－星期一，2－星期二，以此类推
    Private iControlType As Integer            '''控制类型 0－开机，1－关机
    Private strControlTime As System.DateTime  '''控制时间
    Private bControl As Boolean                '''是否执行
    Public Property TransmitID() As Integer
        Get
            Return iTransmitID
        End Get
        Set(ByVal Value As Integer)
            iTransmitID = Value
        End Set
    End Property
    Public Property Week() As Integer
        Get
            Return iWeek
        End Get
        Set(ByVal Value As Integer)
            iWeek = Value
        End Set
    End Property
    Public Property ControlType() As Integer
        Get
            Return iControlType
        End Get
        Set(ByVal Value As Integer)
            iControlType = Value
        End Set
    End Property
    Public Property ControlTime() As System.DateTime
        Get
            Return strControlTime
        End Get
        Set(ByVal Value As System.DateTime)
            strControlTime = Value
        End Set
    End Property
    Public Property Control() As Boolean
        Get
            Return bControl
        End Get
        Set(ByVal value As Boolean)
            bControl = value
        End Set
    End Property
End Class