10X control

Module Module1
    Public _port As New System.IO.Ports.SerialPort

End Module

Imports System.IO
Imports System.Windows.Forms.ComboBox

Imports System.Threading
Public Class Form1

    'Set time
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myhour As String
        Dim myminute As String
        Dim mysecond As String
        Dim myday As String
        Dim _myday As Integer
        Dim mydate As Integer
        Dim mymonth As String
        Dim _mymonth As Integer
        Dim myYear As Integer

        myhour = TimeOfDay.Hour
        myminute = TimeOfDay.Minute
        mysecond = TimeOfDay.Second
        myday = _Day.Text

        mydate = Val(_date.Text)
        mymonth = _month.Text
        myYear = Val(_Year.Text)
        If myday = "Sunday" Then _myday = 1
        If myday = "Monday" Then _myday = 2
        If myday = "Tuesday" Then _myday = 3
        If myday = "Wednesday" Then _myday = 4
        If myday = "Thursday" Then _myday = 5
        If myday = "Friday" Then _myday = 6
        If myday = "Saturday" Then _myday = 7
        If mymonth = "January" Then _mymonth = 1
        If mymonth = "Feburary" Then _mymonth = 2
        If mymonth = "March" Then _mymonth = 3
        If mymonth = "April" Then _mymonth = 4
        If mymonth = "May" Then _mymonth = 5
        If mymonth = "June" Then _mymonth = 6
        If mymonth = "July" Then _mymonth = 7
        If mymonth = "August" Then _mymonth = 8
        If mymonth = "September" Then _mymonth = 9
        If mymonth = "October" Then _mymonth = 10
        If mymonth = "November" Then _mymonth = 11
        If mymonth = "December" Then _mymonth = 12
        If myYear = 2009 Then myYear = 9
        If myYear = 2010 Then myYear = 10
        If myYear = 2011 Then myYear = 11
        If myYear = 2012 Then myYear = 12
        If myYear = 2013 Then myYear = 13
        If myYear = 2014 Then myYear = 14
        If myYear = 2015 Then myYear = 15
        If myYear = 2016 Then myYear = 16
        If myYear = 2017 Then myYear = 17
        If myYear = 2018 Then myYear = 18
        If myYear = 2019 Then myYear = 19
        If myYear = 2020 Then myYear = 20

        If _port.IsOpen Then
        Else
            SerialPort16.Open()
            _port = SerialPort16
        End If
        _port.WriteLine(250) ' set  clocks
        Call Pause()
        Call Pause()

        _port.WriteLine(myhour)

        _port.WriteLine(myminute)

        _port.WriteLine(mysecond)

        _port.WriteLine(_myday)

        _port.WriteLine(mydate)

        _port.WriteLine(_mymonth)

        _port.WriteLine(myYear)


        _port.Close()
    End Sub
    Public Sub Pause()
        Thread.Sleep(100)
        'Dim mypause As Integer
        'For mypause = 1 To 62000000
        'Next
        'For mypause = 1 To 40000000
        'Next
        'Return
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label18.Text = "PC Time " + TimeOfDay
    End Sub


    'time tab
    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
        If TabControl2.Visible = True Then
            TabControl2.Visible = False
        Else
            If TabControl2.Visible = False Then
                TabControl2.Visible = True
            End If
        End If
        Dim mymonth As String

        _Day.Text = Date.Now.DayOfWeek.ToString
        mymonth = Date.Now.Month.ToString
        _month.Text = MonthName(mymonth)
        _date.Text = Date.Now.Day.ToString
        _Year.Text = Date.Now.Year.ToString
    End Sub

    'ON Radio button
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then

            Call unitNumber()
            If _port.IsOpen Then
            Else
                SerialPort16.Open()
                _port = SerialPort16
            End If
            _port.WriteLine(150)
            Call Pause()
            ' Call Pause()

            _port.WriteLine(_unit)
            Call Pause()

            _port.WriteLine(_house)
            _port.Close()
        End If
        RadioButton1.Checked = False
    End Sub
    'OFF Radio button
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then
            Call unitNumber()
            If _port.IsOpen Then
            Else
                SerialPort16.Open()
                _port = SerialPort16
            End If
            _port.WriteLine(151)
            Call Pause()
            'Call Pause()

            _port.WriteLine(_unit)
            Call Pause()

            _port.WriteLine(_house)
            _port.Close()
        End If
        RadioButton2.Checked = False
    End Sub
    Dim unit As String
    Dim house As String
    Dim _unit As Integer
    Dim _house As Integer
    Public Sub unitNumber()

        house = ComboBox1.Text
        unit = ComboBox2.Text

        If house = "A" Then _house = 0
        If house = "B" Then _house = 1

        unit = unit - 1
        _unit = unit
        Return
    End Sub
    'set button
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim initialConnection As Integer
        Call unitNumber()
        Call Get_Real_On_time()
        Call Get_real_Off_time()
        If _house = 0 And _unit = 0 Then initialConnection = 152
        If _house = 0 And _unit = 1 Then initialConnection = 153
        If _house = 0 And _unit = 2 Then initialConnection = 154
        If _house = 0 And _unit = 3 Then initialConnection = 155
        If _house = 0 And _unit = 4 Then initialConnection = 156
        If _house = 0 And _unit = 5 Then initialConnection = 157
        If _house = 0 And _unit = 6 Then initialConnection = 158
        If _house = 0 And _unit = 7 Then initialConnection = 159
        If _house = 0 And _unit = 8 Then initialConnection = 160
        If _house = 0 And _unit = 9 Then initialConnection = 161
        If _house = 0 And _unit = 10 Then initialConnection = 162
        If _house = 0 And _unit = 11 Then initialConnection = 163
        If _house = 0 And _unit = 12 Then initialConnection = 164
        If _house = 0 And _unit = 13 Then initialConnection = 165
        If _house = 0 And _unit = 14 Then initialConnection = 166
        If _house = 0 And _unit = 15 Then initialConnection = 167
        If _house = 0 And _unit = 16 Then initialConnection = 168

        If _port.IsOpen Then
        Else
            SerialPort16.Open()
            _port = SerialPort16

            _port.WriteLine(initialConnection)
            Call Pause()
            Call Pause()

            _port.WriteLine(returnHour)
            Call Pause()

            _port.WriteLine(returnMinuet)

            Call Pause()

            _port.WriteLine(_returnhour)
            Call Pause()

            _port.WriteLine(_returnMinuet)
            _port.Close()
        End If

    End Sub

    '----------------converts text to DEC for default on time
    Dim realontime As String

    Dim returnHour As Integer
    Dim returnMinuet As Integer
    Dim returnsecond As Integer

    Public Sub Get_Real_On_time()
        realontime = ComboBox3.Text
        If realontime = "5:30 AM" Then
            returnHour = 5
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "6:00 AM" Then
            returnHour = 6
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "6:30 AM" Then
            returnHour = 6
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "7:00 AM" Then
            returnHour = 7
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "7:30 AM" Then
            returnHour = 7
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "8:00 AM" Then
            returnHour = 8
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "8:30 AM" Then
            returnHour = 8
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "9:00 AM" Then
            returnHour = 9
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "9:30 AM" Then
            returnHour = 9
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "10:00 AM" Then
            returnHour = 10
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "10:30 AM" Then
            returnHour = 10
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "11:00 AM" Then
            returnHour = 11
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "11:30 AM" Then
            returnHour = 11
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "12:00 AM" Then
            returnHour = 12
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "12:30 PM" Then
            returnHour = 12
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "1:00 PM" Then
            returnHour = 13
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "1:30 PM" Then
            returnHour = 13
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "2:00 PM" Then
            returnHour = 14
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "2:30 PM" Then
            returnHour = 14
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "3:00 PM" Then
            returnHour = 15
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "3:30 PM" Then
            returnHour = 15
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "4:00 PM" Then
            returnHour = 16
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "4:30 PM" Then
            returnHour = 16
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "5:00 PM" Then
            returnHour = 17
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "5:30 PM" Then
            returnHour = 17
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "6:00 PM" Then
            returnHour = 18
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "6:30 PM" Then
            returnHour = 18
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "7:00 PM" Then
            returnHour = 19
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "7:30 PM" Then
            returnHour = 19
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "8:00 PM" Then
            returnHour = 20
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "8:30 PM" Then
            returnHour = 20
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "9:00 PM" Then
            returnHour = 21
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "9:30 PM" Then
            returnHour = 21
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "10:00 PM" Then
            returnHour = 22
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "10:30 PM" Then
            returnHour = 22
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "11:00 PM" Then
            returnHour = 23
            returnMinuet = 0
            returnsecond = 0
        End If
        If realontime = "11:30 PM" Then
            returnHour = 23
            returnMinuet = 30
            returnsecond = 0
        End If
        If realontime = "12:00 PM" Then
            returnHour = 0
            returnMinuet = 0
            returnsecond = 0
        End If
        Return
    End Sub

    '---------------converts text to dec for default off time

    Dim realofftime As String
    Dim _returnhour As Integer
    Dim _returnMinuet As Integer
    Dim _returnsecond As Integer

    Public Sub Get_real_Off_time()
        realofftime = ComboBox4.Text
        If realofftime = "5:30 AM" Then
            _returnhour = 5
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "6:00 AM" Then
            _returnhour = 6
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "6:30 AM" Then
            _returnhour = 6
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "7:00 AM" Then
            _returnhour = 7
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "7:30 AM" Then
            _returnhour = 7
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "8:00 AM" Then
            _returnhour = 8
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "8:30 AM" Then
            _returnhour = 8
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "9:00 AM" Then
            _returnhour = 9
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "9:30 AM" Then
            _returnhour = 9
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "10:00 AM" Then
            _returnhour = 10
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "10:30 AM" Then
            _returnhour = 10
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "11:00 AM" Then
            _returnhour = 11
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "11:30 AM" Then
            _returnhour = 11
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "12:00 AM" Then
            _returnhour = 12
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "12:30 AM" Then
            _returnhour = 12
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "1:00 PM" Then
            _returnhour = 13
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "1:30 PM" Then
            _returnhour = 13
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "2:00 PM" Then
            _returnhour = 14
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "2:30 PM" Then
            _returnhour = 14
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "3:00 PM" Then
            _returnhour = 15
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "3:30 PM" Then
            _returnhour = 15
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "4:00 PM" Then
            _returnhour = 16
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "4:30 PM" Then
            _returnhour = 16
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "5:00 PM" Then
            _returnhour = 17
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "5:30 PM" Then
            _returnhour = 17
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "6:00 PM" Then
            _returnhour = 18
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "6:30 PM" Then
            _returnhour = 18
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "7:00 PM" Then
            _returnhour = 19
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "7:30 PM" Then
            _returnhour = 19
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "8:00 PM" Then
            _returnhour = 20
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "8:30 PM" Then
            _returnhour = 20
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "9:00 PM" Then
            _returnhour = 21
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "9:30 PM" Then
            _returnhour = 21
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "10:00 PM" Then
            _returnhour = 22
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "10:30 PM" Then
            _returnhour = 22
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "11:00 PM" Then
            _returnhour = 23
            _returnMinuet = 0
            _returnsecond = 0
        End If
        If realofftime = "11:30 PM" Then
            _returnhour = 23
            _returnMinuet = 30
            _returnsecond = 0
        End If
        If realofftime = "12:00 PM" Then
            _returnhour = 0
            _returnMinuet = 0
            _returnsecond = 0
        End If
        Return
    End Sub


    Dim returnonhour As Integer
    Dim returnonnminute As Integer
    Dim returndefaultTextOn As String
    Dim ReturnOffHour As Integer
    Dim ReturnOffMinute As Integer
    Dim returndefaultTextoff As String


    Private Sub get_return_time()
        If returnonhour > 24 Then GoTo errors
        If ReturnOffHour > 24 Then GoTo errors
        If returnonhour = 6 And returnonnminute = 30 Then returndefaultTextOn = "6:30 AM"
        If returnonhour = 6 And returnonnminute = 0 Then returndefaultTextOn = "6:00 AM"
        If returnonhour = 7 And returnonnminute = 30 Then returndefaultTextOn = "7:30 AM"
        If returnonhour = 7 And returnonnminute = 0 Then returndefaultTextOn = "7:00 AM"
        If returnonhour = 8 And returnonnminute = 30 Then returndefaultTextOn = "8:30 AM"
        If returnonhour = 8 And returnonnminute = 0 Then returndefaultTextOn = "8:00 AM"
        If returnonhour = 9 And returnonnminute = 30 Then returndefaultTextOn = "9:30 AM"
        If returnonhour = 9 And returnonnminute = 0 Then returndefaultTextOn = "9:00 AM"
        If returnonhour = 10 And returnonnminute = 30 Then returndefaultTextOn = "10:30 AM"
        If returnonhour = 10 And returnonnminute = 0 Then returndefaultTextOn = "10:00 AM"
        If returnonhour = 11 And returnonnminute = 30 Then returndefaultTextOn = "11:30 AM"
        If returnonhour = 11 And returnonnminute = 0 Then returndefaultTextOn = "11:00 AM"
        If returnonhour = 12 And returnonnminute = 30 Then returndefaultTextOn = "12:30 PM"
        If returnonhour = 12 And returnonnminute = 0 Then returndefaultTextOn = "12:00 AM"
        If returnonhour = 13 And returnonnminute = 30 Then returndefaultTextOn = "1:30 PM"
        If returnonhour = 13 And returnonnminute = 0 Then returndefaultTextOn = "1:00 PM"
        If returnonhour = 14 And returnonnminute = 30 Then returndefaultTextOn = "2:30 PM"
        If returnonhour = 14 And returnonnminute = 0 Then returndefaultTextOn = "2:00 PM"
        If returnonhour = 15 And returnonnminute = 30 Then returndefaultTextOn = "3:30 PM"
        If returnonhour = 15 And returnonnminute = 0 Then returndefaultTextOn = "3:00 PM"
        If returnonhour = 16 And returnonnminute = 30 Then returndefaultTextOn = "4:30 PM"
        If returnonhour = 16 And returnonnminute = 0 Then returndefaultTextOn = "4:00 PM"
        If returnonhour = 17 And returnonnminute = 30 Then returndefaultTextOn = "5:30 PM"
        If returnonhour = 17 And returnonnminute = 0 Then returndefaultTextOn = "5:00 PM"
        If returnonhour = 18 And returnonnminute = 30 Then returndefaultTextOn = "6:30 PM"
        If returnonhour = 18 And returnonnminute = 0 Then returndefaultTextOn = "6:00 PM"
        If returnonhour = 19 And returnonnminute = 30 Then returndefaultTextOn = "7:30 PM"
        If returnonhour = 19 And returnonnminute = 0 Then returndefaultTextOn = "7:00 PM"
        If returnonhour = 20 And returnonnminute = 30 Then returndefaultTextOn = "8:30 PM"
        If returnonhour = 20 And returnonnminute = 0 Then returndefaultTextOn = "8:00 PM"
        If returnonhour = 21 And returnonnminute = 30 Then returndefaultTextOn = "9:30 PM"
        If returnonhour = 21 And returnonnminute = 0 Then returndefaultTextOn = "9:00 PM"
        If returnonhour = 22 And returnonnminute = 30 Then returndefaultTextOn = "10:30 PM"
        If returnonhour = 22 And returnonnminute = 0 Then returndefaultTextOn = "10:00 PM"
        If returnonhour = 23 And returnonnminute = 30 Then returndefaultTextOn = "11:30 PM"
        If returnonhour = 23 And returnonnminute = 0 Then returndefaultTextOn = "11:00 PM"
        If returnonhour = 0 And returnonnminute = 30 Then returndefaultTextOn = "12:00 PM"

        If ReturnOffHour = 6 And ReturnOffMinute = 30 Then returndefaultTextoff = "6:30 AM"
        If ReturnOffHour = 6 And ReturnOffMinute = 0 Then returndefaultTextoff = "6:00 AM"
        If ReturnOffHour = 7 And ReturnOffMinute = 30 Then returndefaultTextoff = "7:30 AM"
        If ReturnOffHour = 7 And ReturnOffMinute = 0 Then returndefaultTextoff = "7:00 AM"
        If ReturnOffHour = 8 And ReturnOffMinute = 30 Then returndefaultTextoff = "8:30 AM"
        If ReturnOffHour = 8 And ReturnOffMinute = 0 Then returndefaultTextoff = "8:00 AM"
        If ReturnOffHour = 9 And ReturnOffMinute = 30 Then returndefaultTextoff = "9:30 AM"
        If ReturnOffHour = 9 And ReturnOffMinute = 0 Then returndefaultTextoff = "9:00 AM"
        If ReturnOffHour = 10 And ReturnOffMinute = 30 Then returndefaultTextoff = "10:30 AM"
        If ReturnOffHour = 10 And ReturnOffMinute = 0 Then returndefaultTextoff = "10:00 AM"
        If ReturnOffHour = 11 And ReturnOffMinute = 30 Then returndefaultTextoff = "11:30 AM"
        If ReturnOffHour = 11 And ReturnOffMinute = 0 Then returndefaultTextoff = "11:00 AM"
        If ReturnOffHour = 12 And ReturnOffMinute = 30 Then returndefaultTextoff = "12:30 PM"
        If ReturnOffHour = 12 And ReturnOffMinute = 0 Then returndefaultTextoff = "12:00 AM"
        If ReturnOffHour = 13 And ReturnOffMinute = 30 Then returndefaultTextoff = "1:30 PM"
        If ReturnOffHour = 13 And ReturnOffMinute = 0 Then returndefaultTextoff = "1:00 PM"
        If ReturnOffHour = 14 And ReturnOffMinute = 30 Then returndefaultTextoff = "2:30 PM"
        If ReturnOffHour = 14 And ReturnOffMinute = 0 Then returndefaultTextoff = "2:00 PM"
        If ReturnOffHour = 15 And ReturnOffMinute = 30 Then returndefaultTextoff = "3:30 PM"
        If ReturnOffHour = 15 And ReturnOffMinute = 0 Then returndefaultTextoff = "3:00 PM"
        If ReturnOffHour = 16 And ReturnOffMinute = 30 Then returndefaultTextoff = "4:30 PM"
        If ReturnOffHour = 16 And ReturnOffMinute = 0 Then returndefaultTextoff = "4:00 PM"
        If ReturnOffHour = 17 And ReturnOffMinute = 30 Then returndefaultTextoff = "5:30 PM"
        If ReturnOffHour = 17 And ReturnOffMinute = 0 Then returndefaultTextoff = "5:00 PM"
        If ReturnOffHour = 18 And ReturnOffMinute = 30 Then returndefaultTextoff = "6:30 PM"
        If ReturnOffHour = 18 And ReturnOffMinute = 0 Then returndefaultTextoff = "6:00 PM"
        If ReturnOffHour = 19 And ReturnOffMinute = 30 Then returndefaultTextoff = "7:30 PM"
        If ReturnOffHour = 19 And ReturnOffMinute = 0 Then returndefaultTextoff = "7:00 PM"
        If ReturnOffHour = 20 And ReturnOffMinute = 0 Then returndefaultTextoff = "8:00 PM"
        If ReturnOffHour = 20 And ReturnOffMinute = 30 Then returndefaultTextoff = "8:30 PM"
        If ReturnOffHour = 21 And ReturnOffMinute = 0 Then returndefaultTextoff = "9:00 PM"
        If ReturnOffHour = 21 And ReturnOffMinute = 30 Then returndefaultTextoff = "9:30 PM"
        If ReturnOffHour = 22 And ReturnOffMinute = 0 Then returndefaultTextoff = "10:00 PM"
        If ReturnOffHour = 22 And ReturnOffMinute = 30 Then returndefaultTextoff = "10:30 PM"
        If ReturnOffHour = 23 And ReturnOffMinute = 0 Then returndefaultTextoff = "11:00 PM"
        If ReturnOffHour = 23 And ReturnOffMinute = 30 Then returndefaultTextoff = "11:30 PM"
        If ReturnOffHour = 0 And ReturnOffMinute = 0 Then returndefaultTextoff = "12:00 PM"

        Return
errors:
        TextBox1.Text = ""
        TextBox2.Text = ""
        MsgBox("The time for this unit has not been set")
        Return

    End Sub
    'Check times
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        On Error GoTo errors
        Call unitNumber()
        If _port.IsOpen Then
        Else
            SerialPort16.Open()
            _port = SerialPort16

            _port.WriteLine(240)
            Call Pause()
            Call Pause()
            Call Pause()
            _port.WriteLine(_unit)
            Call Pause()
            Call Pause()
            Call Pause()
            _port.WriteLine(_house)
            Call Pause()
            Call Pause()
            Call Pause()

            returnonhour = _port.ReadExisting()
            Call Pause()
            Call Pause()
            Call Pause()

            _port.WriteLine(0)
            Call Pause()
            Call Pause()
            'Call Pause()
            returnonnminute = _port.ReadExisting()
            Call Pause()
            Call Pause()
            Call Pause()
            _port.WriteLine(0)
            Call Pause()
            Call Pause()
            ' Call Pause()
            ReturnOffHour = _port.ReadExisting()
            Call Pause()
            Call Pause()
            Call Pause()

            _port.WriteLine(0)
            Call Pause()
            Call Pause()
            Call Pause()
            ReturnOffMinute = _port.ReadExisting()

            Call get_return_time()


            TextBox1.Text = returndefaultTextOn

            TextBox2.Text = returndefaultTextoff

            _port.Close()
        End If
        GoTo Endofline
errors:
        TextBox1.Text = ""
        TextBox2.Text = ""
        MsgBox("The Time has not been set for this Module yet")
        _port.Close()
        Resume Endofline

Endofline:

    End Sub






    Private Sub FileLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileLoad.Click, ComboBox2.SelectedIndexChanged
        Dim streamToDisplay As StreamReader

        If ComboBox2.Text = 1 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot1.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 2 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot2.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 3 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot3.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 4 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot4.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()

        End If

        If ComboBox2.Text = 5 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot5.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 6 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot6.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 7 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot7.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 8 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot8.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 9 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot9.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 10 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot10.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 11 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot11.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 12 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot12.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 13 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot13.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 14 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot14.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 15 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot15.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
        If ComboBox2.Text = 16 Then

            streamToDisplay = New StreamReader("C:\Users\Owner\Documents\X-10Text\slot16.txt")

            FileContents.Text = streamToDisplay.ReadLine
            streamToDisplay.Close()
        End If
    End Sub

    Private Sub FileSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileSave.Click
        If ComboBox2.Text = 1 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot1.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If

        If ComboBox2.Text = 2 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot2.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If

        If ComboBox2.Text = 3 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot3.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 4 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot4.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 5 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot5.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If

        If ComboBox2.Text = 6 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot6.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 7 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot7.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 8 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot8.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 9 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot9.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 10 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot10.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 11 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot11.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 12 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot12.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 13 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot13.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 14 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot14.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 15 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot15.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
        If ComboBox2.Text = 16 Then

            Dim mystreamwriter As New IO.StreamWriter("C:\Users\Owner\Documents\X-10Text\slot16.txt")
            If Not (mystreamwriter Is Nothing) Then
                mystreamwriter.Write(FileContents.Text)
                mystreamwriter.Close()

            End If
        End If
    End Sub





End Class