Public Class GPAC

    Private Sub btnSum_Click(sender As Object, e As EventArgs) Handles btnSum.Click

        Dim numCalc, numChem, numEng, numPhy, numProg, Avg, ID As Double

        Dim Grade As String

​

        ID = Val(txtID.Text)

        numCalc = nudCalc.Value

        numChem = nudChem.Value

        numEng = nudEng.Value

        numPhy = nudPhy.Value

        numProg = nudProg.Value

        Avg = (numCalc + numChem + numEng + numPhy + numProg) / 5.0

​

        If txtID.Text = "" Then

            MessageBox.Show("Empty Student ID", "No entry", CType(MsgBoxStyle.OkCancel, MessageBoxButtons))

            txtID.BackColor = Color.Red

        Else

            txtID.BackColor = Color.White

        End If

​

        If Avg < 50 Then

            Grade = "F" & vbCrLf & "Point = 0" & vbCrLf & "Dismissal"

            lblSum.BackColor = Color.Red

        ElseIf Avg < 54 Then

            Grade = "C-" & vbCrLf & "Point = 1.0" & vbCrLf & "Dismissal"

            lblSum.BackColor = Color.Red

        ElseIf Avg = 50 Then

            Grade = "C" & vbCrLf & "Point = 1.5" & vbCrLf & "Probation"

            lblSum.BackColor = Color.LightSalmon

        ElseIf Avg < 59 Then

            Grade = "C+" & vbCrLf & "Point = 2.0" & vbCrLf & "Probation"

            lblSum.BackColor = Color.LightSalmon

        ElseIf Avg < 64 Then

            Grade = "B-" & vbCrLf & "Point = 2.5" & vbCrLf & "Pass"

            lblSum.BackColor = Color.Turquoise

        ElseIf Avg < 69 Then

            Grade = "B" & vbCrLf & "Point = 3.0" & vbCrLf & "Pass"

            lblSum.BackColor = Color.Turquoise

        ElseIf Avg < 79 Then

            Grade = "B+" & vbCrLf & "Point = 3.5" & vbCrLf & "Good Standing"

            lblSum.BackColor = Color.Cyan

        ElseIf Avg < 89 Then

            Grade = "A-" & vbCrLf & "Point = 3.75" & vbCrLf & "Dean's List"

            lblSum.BackColor = Color.Green

        Else Grade = "A" & vbCrLf & "Point = 4.00" & vbCrLf & "Dean's List"

            lblSum.BackColor = Color.LawnGreen

        End If

​

        lblSum.Text = "Student ID : " & txtID.Text & vbCrLf & "Average = " & Avg & vbCrLf & Grade

​

    End Sub

​

    Private Sub nudCalc_ValueChanged_1(sender As Object, e As EventArgs) Handles nudCalc.ValueChanged

        nudCalc.BackColor = Color.Chartreuse

    End Sub

​

    Private Sub nudChem_ValueChanged_1(sender As Object, e As EventArgs) Handles nudChem.ValueChanged

        nudChem.BackColor = Color.Chartreuse

    End Sub

​

    Private Sub nudEng_ValueChanged_1(sender As Object, e As EventArgs) Handles nudEng.ValueChanged

        nudEng.BackColor = Color.Chartreuse

    End Sub

​

    Private Sub nudPhy_ValueChanged_1(sender As Object, e As EventArgs) Handles nudPhy.ValueChanged

        nudPhy.BackColor = Color.Chartreuse

    End Sub

​

    Private Sub nudProg_ValueChanged_1(sender As Object, e As EventArgs) Handles nudProg.ValueChanged

        nudProg.BackColor = Color.Chartreuse

    End Sub

​

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click

        txtID.Text = Nothing

        txtID.BackColor = Color.White

        nudCalc.Value = 0.0

        nudChem.Value = 0.0

        nudEng.Value = 0.0

        nudPhy.Value = 0.0

        nudProg.Value = 0.0

        nudCalc.BackColor = Color.White

        nudChem.BackColor = Color.White

        nudEng.BackColor = Color.White

        nudPhy.BackColor = Color.White

        nudProg.BackColor = Color.White

        nudCalc.BackColor = Color.White

        lblSum.Text = "Summary"

        lblSum.BackColor = Color.SkyBlue

    End Sub

    Private Sub pbHelp_Click(sender As Object, e As EventArgs) Handles pbHelp.Click

        MsgBox("To Obtain Student's GPA Summary, Follow The Instruction Below" & vbCrLf & "Step 1 : Fill in Student ID (ONLY NUMBERS)" & vbCrLf & "Step 2 : Fill in Student Courses Score" & vbCrLf & "Step 3 : Click Summary" & vbCrLf & " " & vbCrLf & "Hover your mouse over the interfaces to view occasion")

    End Sub

​

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _

         Then

            My.Computer.FileSystem.WriteAllText _

            (SaveFileDialog1.FileName, lblSum.Text, True)

        End If

    End Sub

​

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        If MsgBox("Are you sure want to exit now?", MsgBoxStyle.YesNo, "Closing Warning") = MsgBoxResult.Yes Then

            Me.Close()

        End If

    End Sub

​

​

End Class

​