'Jack Mcgrath'
'12/12/13'
'Timetable Program'

Public Class Form1
    'What loads when the form opens'
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txta.Visible = False
        txtb.Visible = False
        lbla.Visible = False
        lblb.Visible = False

    End Sub
    'What happens when you click button Week A'
    Private Sub btna_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btna.Click
        txta.Visible = True
        lbla.Visible = True
        btnb.Visible = False
    End Sub
    'What happens when you click button Week A'
    Private Sub btnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnb.Click
        txtb.Visible = True
        lblb.Visible = True
        btna.Visible = False
    End Sub
    'If statement to sort your homework timetable for the inputted day, week A'
    Private Sub txta_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txta.TextChanged
        If txta.Text = ("Monday") Then
            lbla.Text = ("Eng/Chem/ICT")
        ElseIf txta.Text = ("Tuesday") Then
            lbla.Text = ("Math/Geog")
        ElseIf txta.Text = ("Wednesday") Then
            lbla.Text = ("Eng/Bio/His")
        ElseIf txta.Text = ("Thursday") Then
            lbla.Text = ("Math/ICT")
        ElseIf txta.Text = ("Friday") Then
            lbla.Text = ("Phy/Food")
        Else : lbla.Text = ("Invalid/Incomplete Input")
        End If
    End Sub
    'If statement to sort your homework timetable for the inputted day, week B'
    Private Sub txtb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtb.TextChanged
        If txtb.Text = ("Monday") Then
            lblb.Text = ("Bio/Phy/ICT")
        ElseIf txtb.Text = ("Tuesday") Then
            lblb.Text = ("Eng/Geog")
        ElseIf txtb.Text = ("Wednesday") Then
            lblb.Text = ("Eng/Math/Food")
        ElseIf txtb.Text = ("Thursday") Then
            lblb.Text = ("Chem/His")
        ElseIf txtb.Text = ("Friday") Then
            lblb.Text = ("Math/ICT")
        Else : lblb.Text = ("Invalid/Incomplete Input")
        End If
    End Sub
End Class