Codes i want to put in the module:
Expand|Select|Wrap|Line Numbers
- Private Sub btnCompute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCompute.Click
- 'Harmattan semester
- Dim OneHartUnit As Double
- Dim OneHartUnit1 As Double
- Dim OneHartUnit2 As Double
- Dim OneHartUnit3 As Double
- Dim OneHartUnit4 As Double
- Dim OneHartUnit5 As Double
- Dim OneHartUnit6 As Double
- Dim OneHartUnit7 As Double
- Dim OneHartUnit8 As Double
- Dim OneHartGrd As Double
- Dim OneHGradeP As Double
- Dim OneHGradeP1 As Double
- Dim OneHGradeP2 As Double
- Dim OneHGradeP3 As Double
- Dim OneHGradeP4 As Double
- Dim OneHGradeP5 As Double
- Dim OneHGradeP6 As Double
- Dim OneHGradeP7 As Double
- Dim OneHGradeP8 As Double
- Dim SumGP As Double
- Dim SumUnit As Double
- Dim GradePA As Double
- 'course one
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_01.Text)
- OneHartGrd = Val(txtOneHartGrd_01.Text)
- 'Compute grade point and put in text box
- OneHGradeP1 = OneHartUnit * OneHartGrd
- txtOneHGradeP_01.Text = Format(OneHGradeP1, "00")
- 'course two
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_02.Text)
- OneHartGrd = Val(txtOneHartGrd_02.Text)
- 'Compute grade point and put in text box
- OneHGradeP2 = OneHartUnit * OneHartGrd
- txtOneHGradeP_02.Text = Format(OneHGradeP2, "00")
- 'course three
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_03.Text)
- OneHartGrd = Val(txtOneHartGrd_03.Text)
- 'Compute grade point and put in text box
- OneHGradeP3 = OneHartUnit * OneHartGrd
- txtOneHGradeP_03.Text = Format(OneHGradeP3, "00")
- 'course four
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_04.Text)
- OneHartGrd = Val(txtOneHartGrd_04.Text)
- 'Compute grade point and put in text box
- OneHGradeP4 = OneHartUnit * OneHartGrd
- txtOneHGradeP_04.Text = Format(OneHGradeP4, "00")
- 'course five
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_05.Text)
- OneHartGrd = Val(txtOneHartGrd_05.Text)
- 'Compute grade point and put in text box
- OneHGradeP = OneHartUnit * OneHartGrd
- txtOneHGradeP_05.Text = Format(OneHGradeP, "00")
- 'course six
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_06.Text)
- OneHartGrd = Val(txtOneHartGrd_06.Text)
- 'Compute grade point and put in text box
- OneHGradeP = OneHartUnit * OneHartGrd
- txtOneHGradeP_06.Text = Format(OneHGradeP, "00")
- 'course seven
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_07.Text)
- OneHartGrd = Val(txtOneHartGrd_07.Text)
- 'Compute grade point and put in text box
- OneHGradeP = OneHartUnit * OneHartGrd
- txtOneHGradeP_07.Text = Format(OneHGradeP, "00")
- 'course eight
- 'read values from text boxes
- OneHartUnit = Val(txtOneHartUnit_08.Text)
- OneHartGrd = Val(txtOneHartGrd_08.Text)
- 'Compute grade point and put in text box
- OneHGradeP = OneHartUnit * OneHartGrd
- txtOneHGradeP_08.Text = Format(OneHGradeP, "00")
- 'read values from GP text boxes
- OneHGradeP1 = Val(txtOneHGradeP_01.Text)
- OneHGradeP2 = Val(txtOneHGradeP_02.Text)
- OneHGradeP3 = Val(txtOneHGradeP_03.Text)
- OneHGradeP4 = Val(txtOneHGradeP_04.Text)
- OneHGradeP5 = Val(txtOneHGradeP_05.Text)
- OneHGradeP6 = Val(txtOneHGradeP_06.Text)
- OneHGradeP7 = Val(txtOneHGradeP_07.Text)
- OneHGradeP8 = Val(txtOneHGradeP_08.Text)
- 'Compute sum grade point and put in text box
- SumGP = OneHGradeP1 + OneHGradeP2 + OneHGradeP3 + OneHGradeP4 + OneHGradeP5 + OneHGradeP6 + OneHGradeP7 + OneHGradeP8
- txtSumGP.Text = Format(SumGP, "00")
- 'read values from Unit text boxes
- OneHartUnit1 = Val(txtOneHartUnit_01.Text)
- OneHartUnit2 = Val(txtOneHartUnit_02.Text)
- OneHartUnit3 = Val(txtOneHartUnit_03.Text)
- OneHartUnit4 = Val(txtOneHartUnit_04.Text)
- OneHartUnit5 = Val(txtOneHartUnit_05.Text)
- OneHartUnit6 = Val(txtOneHartUnit_06.Text)
- OneHartUnit7 = Val(txtOneHartUnit_07.Text)
- OneHartUnit8 = Val(txtOneHartUnit_08.Text)
- 'Compute sum unit and put in text box
- SumUnit = OneHartUnit1 + OneHartUnit2 + OneHartUnit3 + OneHartUnit4 + OneHartUnit5 + OneHartUnit6 + OneHartUnit7 + OneHartUnit8
- txtSumUnit.Text = Format(SumUnit, "00")
- 'read values from text boxes
- SumGP = Val(txtSumGP.Text)
- SumUnit = Val(txtSumUnit.Text)
- 'Compute grade point average and put in text box
- GradePA = SumGP / SumUnit
- txtGradePA.Text = Format(GradePA, "0.000")
- txtAnalysis.Text += ControlChars.CrLf + "GPA for Harmattan Semester: " + Format(GradePA, "0.000")
- 'Rain semester
- Dim OneRainUnit As Double
- Dim OneRainUnit1 As Double
- Dim OneRainUnit2 As Double
- Dim OneRainUnit3 As Double
- Dim OneRainUnit4 As Double
- Dim OneRainUnit5 As Double
- Dim OneRainUnit6 As Double
- Dim OneRainUnit7 As Double
- Dim OneRainUnit8 As Double
- Dim OneRainGrd As Double
- Dim OneRGradeP As Double
- Dim OneRGradeP1 As Double
- Dim OneRGradeP2 As Double
- Dim OneRGradeP3 As Double
- Dim OneRGradeP4 As Double
- Dim OneRGradeP5 As Double
- Dim OneRGradeP6 As Double
- Dim OneRGradeP7 As Double
- Dim OneRGradeP8 As Double
- Dim SumGP2 As Double
- Dim SumUnit2 As Double
- Dim GradePA2 As Double
- Dim CSumGP As Double
- Dim CSumUnit As Double
- Dim CGPA100 As Double
- 'rain course one
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_01.Text)
- OneRainGrd = Val(txtOneRainGrd_01.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_01.Text = Format(OneRGradeP, "00")
- 'rain course two
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_02.Text)
- OneRainGrd = Val(txtOneRainGrd_02.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_02.Text = Format(OneRGradeP, "00")
- 'rain course three
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_03.Text)
- OneRainGrd = Val(txtOneRainGrd_03.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_03.Text = Format(OneRGradeP, "00")
- 'rain course four
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_04.Text)
- OneRainGrd = Val(txtOneRainGrd_04.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_04.Text = Format(OneRGradeP, "00")
- 'rain course five
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_05.Text)
- OneRainGrd = Val(txtOneRainGrd_05.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_05.Text = Format(OneRGradeP, "00")
- 'rain course six
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_06.Text)
- OneRainGrd = Val(txtOneRainGrd_06.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_06.Text = Format(OneRGradeP, "00")
- 'rain course seven
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_07.Text)
- OneRainGrd = Val(txtOneRainGrd_07.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_07.Text = Format(OneRGradeP, "00")
- 'rain course eight
- 'read values from text boxes
- OneRainUnit = Val(txtOneRainUnit_08.Text)
- OneRainGrd = Val(txtOneRainGrd_08.Text)
- 'Compute grade point and put in text box
- OneRGradeP = OneRainUnit * OneRainGrd
- txtOneRGradeP_08.Text = Format(OneRGradeP, "00")
- 'read values from rain GP text boxes
- OneRGradeP1 = Val(txtOneRGradeP_01.Text)
- OneRGradeP2 = Val(txtOneRGradeP_02.Text)
- OneRGradeP3 = Val(txtOneRGradeP_03.Text)
- OneRGradeP4 = Val(txtOneRGradeP_04.Text)
- OneRGradeP5 = Val(txtOneRGradeP_05.Text)
- OneRGradeP6 = Val(txtOneRGradeP_06.Text)
- OneRGradeP7 = Val(txtOneRGradeP_07.Text)
- OneRGradeP8 = Val(txtOneRGradeP_08.Text)
- 'Compute sum grade point for rain and put in text box
- SumGP2 = OneRGradeP1 + OneRGradeP2 + OneRGradeP3 + OneRGradeP4 + OneRGradeP5 + OneRGradeP6 + OneRGradeP7 + OneRGradeP8
- txtSumGP2.Text = Format(SumGP2, "00")
- 'read values from Unit text boxes
- OneRainUnit1 = Val(txtOneRainUnit_01.Text)
- OneRainUnit2 = Val(txtOneRainUnit_02.Text)
- OneRainUnit3 = Val(txtOneRainUnit_03.Text)
- OneRainUnit4 = Val(txtOneRainUnit_04.Text)
- OneRainUnit5 = Val(txtOneRainUnit_05.Text)
- OneRainUnit6 = Val(txtOneRainUnit_06.Text)
- OneRainUnit7 = Val(txtOneRainUnit_07.Text)
- OneRainUnit8 = Val(txtOneRainUnit_08.Text)
- 'Compute sum unit and put in text box
- SumUnit2 = OneRainUnit1 + OneRainUnit2 + OneRainUnit3 + OneRainUnit4 + OneRainUnit5 + OneRainUnit6 + OneRainUnit7 + OneRainUnit8
- txtSumUnit2.Text = Format(SumUnit2, "00")
- 'read values from text boxes
- SumGP2 = Val(txtSumGP2.Text)
- SumUnit2 = Val(txtSumUnit2.Text)
- 'Compute rain grade point average and put in text box
- GradePA2 = SumGP2 / SumUnit2
- txtGradePA2.Text = Format(GradePA2, "0.000")
- txtAnalysis.Text += ControlChars.CrLf + "GPA for Rain Semester: " + Format(GradePA2, "0.000")
- 'read values from text boxes for CGPA
- SumGP = Val(txtSumGP.Text)
- SumUnit = Val(txtSumUnit.Text)
- SumGP2 = Val(txtSumGP2.Text)
- SumUnit2 = Val(txtSumUnit2.Text)
- 'Compute cumulative grade point and put in text box
- CSumGP = SumGP + SumGP2
- CSumUnit = SumUnit + SumUnit2
- CGPA100 = CSumGP / CSumUnit
- txtCGPA100.Text = Format(CGPA100, "0.000")
- txtAnalysis.Text += ControlChars.CrLf + "CGPA for Year One: " + Format(CGPA100, "0.000")