why does "Conversion from string "" to type 'Decimal' is not valid." keep appearing

[silverkaito]

i'm creating gpa and cgpa calculator for my school project. and i'm a newbie to this visual basic thingy. so do help me, pls.

here's my code

Public Class Form1
    Dim CreditHour1 As Integer
    Dim CreditHour2 As Integer
    Dim CreditHour3 As Integer
    Dim CreditHour4 As Integer
    Dim CreditHour5 As Integer
    Dim CreditHour6 As Integer
    Dim CreditHour7 As Integer
    Dim TotalCreditHours As Integer


    Private Sub ButtonTotal_Click(sender As System.Object, e As System.EventArgs) Handles ButtonTotal1.Click

        CreditHour1 = TextBoxCreditHour1.Text
        CreditHour2 = TextBoxCreditHour2.Text
        CreditHour3 = TextBoxCreditHour3.Text
        CreditHour4 = TextBoxCreditHour4.Text
        CreditHour5 = TextBoxCreditHour5.Text
        CreditHour6 = TextBoxCreditHour6.Text
        CreditHour7 = TextBoxCreditHour7.Text
        TotalCreditHours = CreditHour1 + CreditHour2 + CreditHour3 + CreditHour4 + CreditHour5 + CreditHour6 + CreditHour7
        LabelCreditHours2.Text = TotalCreditHours


    End Sub

    Private Sub ButtonExit_Click(sender As System.Object, e As System.EventArgs) Handles ButtonExit.Click
        Close()
    End Sub

    Private Sub ButtonTotal2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonTotal2.Click
       
        Dim TotalGradePoints1 As Double
        Dim TotalGradePoints2 As Double
        Dim TotalGradePoints3 As Double
        Dim TotalGradePoints4 As Double
        Dim TotalGradePoints5 As Double
        Dim TotalGradePoints6 As Double
        Dim TotalGradePoints7 As Double
        Dim TotalTotalGradePoints As Double

        TotalGradePoints1 = TextBoxTotalGradePoints1.Text
        TotalGradePoints2 = TextBoxTotalGradePoints2.Text
        TotalGradePoints3 = TextBoxTotalGradePoints3.Text
        TotalGradePoints4 = TextBoxTotalGradePoints4.Text
        TotalGradePoints5 = TextBoxTotalGradePoints5.Text
        TotalGradePoints6 = TextBoxTotalGradePoints6.Text
        TotalGradePoints7 = TextBoxTotalGradePoints7.Text
        LabelTotalGradePoints2.Text = TotalTotalGradePoints

        CreditHour1 = TextBoxCreditHour1.Text
        CreditHour2 = TextBoxCreditHour2.Text
        CreditHour3 = TextBoxCreditHour3.Text
        CreditHour4 = TextBoxCreditHour4.Text
        CreditHour5 = TextBoxCreditHour5.Text
        CreditHour6 = TextBoxCreditHour6.Text
        CreditHour7 = TextBoxCreditHour7.Text

        Select Case ComboBox1.Text
            Case "A"
                TotalGradePoints1 = 4 * CreditHour1
            Case "A-"
                TotalGradePoints1 = 3.75 * CreditHour1
            Case "B+"
                TotalGradePoints1 = 3.5 * CreditHour1
            Case "B"
                TotalGradePoints1 = 3.0 * CreditHour1
            Case "B-"
                TotalGradePoints1 = 2.75 * CreditHour1
            Case "C+"
                TotalGradePoints1 = 2.5 * CreditHour1
            Case "C"
                TotalGradePoints1 = 2.0 * CreditHour1
            Case "C-"
                TotalGradePoints1 = 1.75 * CreditHour1
            Case "D"
                TotalGradePoints1 = 1 * CreditHour1
            Case "F"
                TotalGradePoints1 = 0 * CreditHour1

        End Select

        Select Case ComboBox2.Text
            Case "A"
                TotalGradePoints2 = 4 * CreditHour2
            Case "A-"
                TotalGradePoints2 = 3.75 * CreditHour2
            Case "B+"
                TotalGradePoints2 = 3.5 * CreditHour2
            Case "B"
                TotalGradePoints2 = 3.0 * CreditHour2
            Case "B-"
                TotalGradePoints2 = 2.75 * CreditHour2
            Case "C+"
                TotalGradePoints2 = 2.5 * CreditHour2
            Case "C"
                TotalGradePoints2 = 2.0 * CreditHour2
            Case "C-"
                TotalGradePoints2 = 1.75 * CreditHour2
            Case "D"
                TotalGradePoints2 = 1 * CreditHour2
            Case "F"
                TotalGradePoints2 = 0 * CreditHour2

        End Select

        Select Case ComboBox3.Text
            Case "A"
                TotalGradePoints3 = 4 * CreditHour3
            Case "A-"
                TotalGradePoints3 = 3.75 * CreditHour3
            Case "B+"
                TotalGradePoints3 = 3.5 * CreditHour3
            Case "B"
                TotalGradePoints3 = 3.0 * CreditHour3
            Case "B-"
                TotalGradePoints3 = 2.75 * CreditHour3
            Case "C+"
                TotalGradePoints3 = 2.5 * CreditHour3
            Case "C"
                TotalGradePoints3 = 2.0 * CreditHour3
            Case "C-"
                TotalGradePoints3 = 1.75 * CreditHour3
            Case "D"
                TotalGradePoints3 = 1 * CreditHour3
            Case "F"
                TotalGradePoints3 = 0 * CreditHour3

        End Select

        Select Case ComboBox4.Text
            Case "A"
                TotalGradePoints4 = 4 * CreditHour4
            Case "A-"
                TotalGradePoints4 = 3.75 * CreditHour4
            Case "B+"
                TotalGradePoints4 = 3.5 * CreditHour4
            Case "B"
                TotalGradePoints4 = 3.0 * CreditHour4
            Case "B-"
                TotalGradePoints4 = 2.75 * CreditHour4
            Case "C+"
                TotalGradePoints4 = 2.5 * CreditHour4
            Case "C"
                TotalGradePoints4 = 2.0 * CreditHour4
            Case "C-"
                TotalGradePoints4 = 1.75 * CreditHour4
            Case "D"
                TotalGradePoints4 = 1 * CreditHour4
            Case "F"
                TotalGradePoints4 = 0 * CreditHour4

        End Select

        Select Case ComboBox5.Text
            Case "A"
                TotalGradePoints5 = 4 * CreditHour5
            Case "A-"
                TotalGradePoints5 = 3.75 * CreditHour5
            Case "B+"
                TotalGradePoints5 = 3.5 * CreditHour5
            Case "B"
                TotalGradePoints5 = 3.0 * CreditHour5
            Case "B-"
                TotalGradePoints5 = 2.75 * CreditHour5
            Case "C+"
                TotalGradePoints5 = 2.5 * CreditHour5
            Case "C"
                TotalGradePoints5 = 2.0 * CreditHour5
            Case "C-"
                TotalGradePoints5 = 1.75 * CreditHour5
            Case "D"
                TotalGradePoints5 = 1 * CreditHour5
            Case "F"
                TotalGradePoints5 = 0 * CreditHour5

        End Select

        Select Case ComboBox6.Text
            Case "A"
                TotalGradePoints6 = 4 * CreditHour6
            Case "A-"
                TotalGradePoints6 = 3.75 * CreditHour6
            Case "B+"
                TotalGradePoints6 = 3.5 * CreditHour6
            Case "B"
                TotalGradePoints6 = 3.0 * CreditHour6
            Case "B-"
                TotalGradePoints6 = 2.75 * CreditHour6
            Case "C+"
                TotalGradePoints6 = 2.5 * CreditHour6
            Case "C"
                TotalGradePoints6 = 2.0 * CreditHour6
            Case "C-"
                TotalGradePoints6 = 1.75 * CreditHour6
            Case "D"
                TotalGradePoints6 = 1 * CreditHour6
            Case "F"
                TotalGradePoints6 = 0 * CreditHour6

        End Select

        Select Case ComboBox7.Text
            Case "A"
                TotalGradePoints7 = 4 * CreditHour7
            Case "A-"
                TotalGradePoints7 = 3.75 * CreditHour7
            Case "B+"
                TotalGradePoints7 = 3.5 * CreditHour7
            Case "B"
                TotalGradePoints7 = 3.0 * CreditHour7
            Case "B-"
                TotalGradePoints7 = 2.75 * CreditHour7
            Case "C+"
                TotalGradePoints7 = 2.5 * CreditHour7
            Case "C"
                TotalGradePoints7 = 2.0 * CreditHour7
            Case "C-"
                TotalGradePoints7 = 1.75 * CreditHour7
            Case "D"
                TotalGradePoints7 = 1 * CreditHour7
            Case "F"
                TotalGradePoints7 = 0 * CreditHour7

        End Select

    End Sub


End Class

[iam_clint]

You don't do any verification on any of the text boxes.

TotalGradePoints1 = TextBoxTotalGradePoints1.Text
TotalGradePoints2 = TextBoxTotalGradePoints2.Text
TotalGradePoints3 = TextBoxTotalGradePoints3.Text
TotalGradePoints4 = TextBoxTotalGradePoints4.Text
TotalGradePoints5 = TextBoxTotalGradePoints5.Text
TotalGradePoints6 = TextBoxTotalGradePoints6.Text
TotalGradePoints7 = TextBoxTotalGradePoints7.Text
LabelTotalGradePoints2.Text = TotalTotalGradePoints

CreditHour1 = TextBoxCreditHour1.Text
CreditHour2 = TextBoxCreditHour2.Text
CreditHour3 = TextBoxCreditHour3.Text
CreditHour4 = TextBoxCreditHour4.Text
CreditHour5 = TextBoxCreditHour5.Text
CreditHour6 = TextBoxCreditHour6.Text
CreditHour7 = TextBoxCreditHour7.Text

if a textbox is blank it will give you a conversion error since you are trying to assign the text value of a text box to a double.

look at double.tryparse (), and double.parse

[silverkaito]

how do we do double.tryparse ?

[Frinavale]

You use the Double.TryParse method like this:

Dim value As String = TextBoxCreditHour1.Text
Dim number As Double

If Double.TryParse(value, number) Then
  ' the value could successfully be converted into a Double
Else
 ' the value could NOT be converted into a Double
End If

-Frinny