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