Question

Develop an application using user-interface functions (calculate grade point, grade average, and check textbox entries) (please use visual basic)

Ertu Come Home Coupe 2 Grade Port Average Calcune GPA Figure 2. Layout of the Design. User enters the Letter Grade column and Credit Hours column. Then, the program will convert Letter Grade into point system (A-4, B-3, C-2, D-1). After that, the program, will multiply numbers with credit hours that equals to Grade Points. Then, the program will divide the Grade Points with number of courses. That will give you the Grade Point Average. You can have one function to convert the letter grade into the points and the other function to calculate Grade Points and average grade points. Task #3: Show your work to your instructor after you are done. Task #4: Practice your work and be ready for a pop assignment.

Answer 1

Below is the solution:

code:

Public Class Form1
    'declare the grade point
    Dim A As Double = 4.0
    Dim B As Double = 3.0
    Dim C As Double = 2.0
    Dim D As Double = 1.0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CenterToScreen() 'center on the screen
        txtGP1.Enabled = False
        txtGP2.Enabled = False
        txtGP3.Enabled = False
        txtGP4.Enabled = False
        txtGPA.Enabled = False
        txtALL.Enabled = False
    End Sub

    Private Sub txtClear_Click(sender As Object, e As EventArgs) Handles txtClear.Click
        'clear all the textfield
        txtLG1.Clear()
        txtLG2.Clear()
        txtLG3.Clear()
        txtLG4.Clear()
        txtCH1.Clear()
        txtCH2.Clear()
        txtCH3.Clear()
        txtCH4.Clear()
        txtGP1.Clear()
        txtGP2.Clear()
        txtGP3.Clear()
        txtGP4.Clear()
        txtALL.Clear()
        txtGPA.Clear()
    End Sub

    Private Sub txtExit_Click(sender As Object, e As EventArgs) Handles txtExit.Click
        Me.Close() 'close the form
    End Sub

    Private Sub txtCalculateGPA_Click(sender As Object, e As EventArgs) Handles txtCalculateGPA.Click
        Dim CH, LGP1, LGP2, LGP3, LGP4 As Double
        Dim LG As String
        LG = txtLG1.Text 'take the input from course 1 letter grade
        CH = txtCH1.Text 'take the input from course 1 credit hours
        LGP1 = letterGrade(LG, CH) 'calculate the grade point

        LG = txtLG2.Text 'take the input from course 2 letter grade
        CH = txtCH2.Text 'take the input from course 2 credit hours
        LGP2 = letterGrade(LG, CH) 'calculate the grade point

        LG = txtLG3.Text 'take the input from course 3 letter grade
        CH = txtCH3.Text 'take the input from course 3 credit hours
        LGP3 = letterGrade(LG, CH) 'calculate the grade point

        LG = txtLG4.Text 'take the input from course 4 letter grade
        CH = txtCH4.Text 'take the input from course 4 credit hours
        LGP4 = letterGrade(LG, CH) 'calculate the grade point

        'display the gradepoint to the textbox
        txtGP1.Text = LGP1
        txtGP2.Text = LGP2
        txtGP3.Text = LGP3
        txtGP4.Text = LGP4

        Dim average As Double = (LGP1 + LGP2 + LGP3 + LGP4) / 4 'calculate the Average grade point
        txtGPA.Text = average 'display the Average grade point to the textbx

    End Sub
    'function to calculate the gradepoint
    Private Function letterGrade(lg As String, ch As Object) As Double
        Dim gradePoint As Double
        Select Case lg
            Case "A"
                gradePoint = ch * A
            Case "B"
                gradePoint = ch * B
            Case "C"
                gradePoint = ch * C
            Case "D"
                gradePoint = ch * D
        End Select
        Return gradePoint 'return the grade point
    End Function
End Class

sample output:

BP GPA Calculator - O X Enter Course Information Creadit Hours Grade Point 20 Letter Grade Course #1 A Course #2 B Course #3 C 6 Course #4 12 12 Grade Point Average: 12 Calculate GPA - Clear Clear Exit