'Author: Mike Camenzuli, 100374827
'Title: Lab 2 - Semester Average
'Date: Feb.20/2018
'Description: Calculate student averages based on user input.
Option Strict On

Public Class frmSemGrades
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        tbGradeCourse1.Text = ""
        tbGradeCourse2.Text = ""
        tbGradeCourse3.Text = ""
        tbGradeCourse4.Text = ""
        tbGradeCourse5.Text = ""
        tbGradeCourse6.Text = ""
        tbGradeSem.Text = ""
        tbLetterGradeSem.Text = ""
        tbLetterGrade1.Text = ""
        tbLetterGrade2.Text = ""
        tbLetterGrade3.Text = ""
        tbLetterGrade4.Text = ""
        tbLetterGrade5.Text = ""
        tbLetterGrade6.Text = ""
        tbErrorOutput.Text = ""
        tbGradeCourse1.Focus()
        btnCalculate.Enabled = True
        tbGradeCourse1.ReadOnly = False
        tbGradeCourse2.ReadOnly = False
        tbGradeCourse3.ReadOnly = False
        tbGradeCourse4.ReadOnly = False
        tbGradeCourse5.ReadOnly = False
        tbGradeCourse6.ReadOnly = False
    End Sub
    Private Function Number(One As Double, Two As Double, Three As Double, Four As Double, Five As Double, Six As Double) As Double
        Dim returnNumber As Double = 0.0
        returnNumber = One + Two + +Three + Four + Five + Six
        Return returnNumber
    End Function
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim Grade1, Grade2, Grade3, Grade4, Grade5, Grade6 As Double
        Dim LetterGrade As String
        Dim SemAvg As Double
        Dim SemAvgArray(5) As Double
        Dim Grade As Double
        Dim SumGrade As Double




        If (IsNumeric(tbGradeCourse1.Text) = True) Then
                Grade1 = CDbl(tbGradeCourse1.Text)
                If (Grade1 >= 0 And Grade1 <= 100) Then
                    tbLetterGrade1.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse1.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse1.Text} is not a number."
            End If

            If (IsNumeric(tbGradeCourse2.Text) = True) Then
                Grade2 = CDbl(tbGradeCourse2.Text)
                If (Grade2 >= 0 And Grade2 <= 100) Then
                    tbLetterGrade2.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse2.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse2.Text} is not a number."
            End If

            If (IsNumeric(tbGradeCourse3.Text) = True) Then
                Grade3 = CDbl(tbGradeCourse3.Text)
                If (Grade3 >= 0 And Grade3 <= 100) Then
                    tbLetterGrade3.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse3.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse3.Text} is not a number."
            End If

            If (IsNumeric(tbGradeCourse4.Text) = True) Then
                Grade4 = CDbl(tbGradeCourse4.Text)
                If (Grade4 >= 0 And Grade4 <= 100) Then
                    tbLetterGrade4.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse4.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse4.Text} is not a number."
            End If

            If (IsNumeric(tbGradeCourse5.Text) = True) Then
                Grade5 = CDbl(tbGradeCourse5.Text)
                If (Grade5 >= 0 And Grade5 <= 100) Then
                    tbLetterGrade5.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse5.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse5.Text} is not a number."
            End If

            If (IsNumeric(tbGradeCourse6.Text) = True) Then
                Grade6 = CDbl(tbGradeCourse6.Text)
                If (Grade6 >= 0 And Grade6 <= 100) Then
                    tbLetterGrade6.Text = LetterGrade
                Else
                    tbErrorOutput.Text = $"{tbGradeCourse6.Text} is an Invalid Range"
                End If
            Else
                tbErrorOutput.Text = $"{tbGradeCourse6.Text} is not a number."
            End If

        For Index = 0 To 5
            SemAvg += SemAvgArray(Index)
        Next
        SumGrade = Number(Grade1, Grade2, Grade3, Grade4, Grade5, Grade6)
        tbGradeSem.Text = $"{Math.Round(SumGrade / 6, 2)}"
        Try
            Select Case Grade
                Case 90 To 100
                    LetterGrade = "A+"
                Case 85 To 89.99
                    LetterGrade = "A"
                Case 80 To 84.99
                    LetterGrade = "A-"
                Case 77 To 79.99
                    LetterGrade = "B+"
                Case 73 To 76.99
                    LetterGrade = "B"
                Case 70 To 72.99
                    LetterGrade = "B-"
                Case 67 To 69.99
                    LetterGrade = "C+"
                Case 63 To 66.99
                    LetterGrade = "C"
                Case 60 To 62.99
                    LetterGrade = "C-"
                Case 57 To 59.99
                    LetterGrade = "D+"
                Case 53 To 56.99
                    LetterGrade = "D"
                Case 50 To 52.99
                    LetterGrade = "D-"
                Case 0 To 49.99
                    LetterGrade = "F"
            End Select






            LetterGrade = tbLetterGrade1.Text
            LetterGrade = tbLetterGrade2.Text
            LetterGrade = tbLetterGrade3.Text
            LetterGrade = tbLetterGrade4.Text
            LetterGrade = tbLetterGrade5.Text
            LetterGrade = tbLetterGrade6.Text



        Catch ex As Exception
            tbErrorOutput.Text = "Invalid value"
        End Try
        tbGradeCourse1.ReadOnly = True
        tbGradeCourse2.ReadOnly = True
        tbGradeCourse3.ReadOnly = True
        tbGradeCourse4.ReadOnly = True
        tbGradeCourse5.ReadOnly = True
        tbGradeCourse6.ReadOnly = True
        btnCalculate.Enabled = False
    End Sub

End Class