Adding and codeing my Module

[Canye]

I have a very long list of codes that i was advised to put in a module but don't know where to start from. Also i have a botton in my software that i what to use to be adding tabs when running my program, don't also know how to code that too. Please help...

Codes i want to put in the module:

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")
 

[Dököll]

Greetings, Canye!

I see what you meant by code, hoooweee! Okay, now, is this school work? need to make sure before we can begin to help tackle this for ya...

What are you trying to achieve with a module? You mentioned tabs, what's the deal there.

(1) You can call a module from your main form or other forms as needed to satisfy part of your program that will be called now and then (repeated items as one example)

(2) You can tell VB to Call the Module, with the state Call Module1, if that'[s the name of yur module

(3) You can do this on form load also if needed.

There are other way to achieve what you need; I'll stopp here to see, perhaps our other experts can jump in...

Do stay tuned though if these or other ideas do not get you started...

Good luck!

[QVeen72]

Hi,

To Add a Module, In your VB - IDE, Click on menu : Project >> Add Module.
A Module will be added, and then you can shift your Codes to the module.
Not sure, what you mean by adding TABS..?

Regards
Veena