Assignment2B

Public Class Form1
    Dim numericalGrade As Integer = 0
    Dim creditHrs As Double = 0
    Dim qualPoints As Double = 0
    Dim counter As Integer = 0

    Public Sub btnRecord_Click(sender As Object, e As EventArgs) Handles btnRecord.Click
        totalValues()
    End Sub

    Public Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        calculateQualPoints()
    End Sub

    Public Sub totalValues()
        counter += 1
        txtNumericalGrade.Text += numericalGrade
        txtCreditHrs.Text += creditHrs
    End Sub

    Public Sub calculateQualPoints()
        qualPoints = (numericalGrade * creditHrs) / counter
        txtQualPoints.Text = qualPoints
    End Sub