Thank you for all of your replies. I have decided to opt for this following code but it does not seem to work at all. This is a little project of mine which I would like to perfect.
I have decided to use lbltotal2.Text = String.Empty. The total clears but then it encounters an error which says " Conversion from string "" to type 'Double' is not valid. "
Can you fellow programmers see any mistakes in this Visual Basic coding? Also how can I stop the error from coming up as these String.Empty applies to all 14 labels.
The code below is my VB code:
-----------------------------------------------------------------------------------------
Public Class Form1
Dim CheeseTomato, HamPineapple, Vegetarian, MeatFeast, Seafood As Decimal
Dim Cola, Lemonade, FizzyOrange As Decimal
Dim ExtraCheese, Pepperoni, Onions, Peppers As Decimal
Dim TotalCostPizza, TotalCostPizza2, TotalCostPizza3, TotalCostPizza4, TotalCostPizza5, TotalPizzas As Decimal
Dim TotalCostDrinks, TotalCostDrinks2, TotalCostDrinks3, TotalCostDrinks4, TotalDrinks, TotalBase, TotalBase2 As Decimal
Dim TotalCostToppings, TotalCostToppings2, TotalCostToppings3, TotalCostToppings4, TotalCostToppings5, TotalToppings As Decimal
Dim TotalCost As Decimal
Dim Order As Decimal
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnorder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnorder.Click
CheeseTomato = 3.5
HamPineapple = 4.2
Vegetarian = 5.2
MeatFeast = 5.8
Seafood = 5.6
Cola = 0.9
Lemonade = 0.8
FizzyOrange = 0.9
ExtraCheese = 0.5
Pepperoni = 0.5
Onions = 0.5
Peppers = 0.5
TotalCost = 0
If chkboxcat.Checked = True Then
TotalCostPizza = Val(3.5) * txtbox1.Text
End If
If chkboxhap.Checked = True Then
TotalCostPizza2 = Val(4.2) * txtbox2.Text
If chkboxVeg.Checked = True Then
TotalCostPizza3 = Val(5.2) * txtbox3.Text
If chkboxmfeast.Checked = True Then
TotalCostPizza4 = Val(5.8) * txtbox4.Text
If chkboxseafood.Checked = True Then
TotalCostPizza5 = Val(5.6) * txtbox5.Text
End If
End If
End If
End If
TotalPizzas = TotalCostPizza + TotalCostPizza2 + TotalCostPizza3 + TotalCostPizza4 + TotalCostPizza5
lbltotal.Text = Format(TotalPizzas, "ÂŁ#,##0.00")
If chkboxCola.Checked = True Then
TotalCostDrinks = Val(0.9) * txtbox6.Text
If chkboxlemonade.Checked = True Then
TotalCostDrinks2 = Val(0.8) * txtbox7.Text
If chkboxorange.Checked = True Then
TotalCostDrinks3 = Val(0.9) * txtbox8.Text
If chkboxnone.Checked = True Then
TotalCostDrinks4 = 0
End If
End If
End If
End If
TotalDrinks = TotalCostDrinks + TotalCostDrinks2 + TotalCostDrinks3 + TotalCostDrinks4
lbltotal2.Text = Format(TotalDrinks, "ÂŁ#,##0.00")
If chkboxtac.Checked = True Then
TotalBase = Val(0.0) * txtbox9.Text
If chkboxtrad.Checked = True Then
TotalBase2 = Val(0.0) * txtbox10.Text
End If
End If
TotalBase = TotalBase + TotalBase2
If chkboxcheese.Checked = True Then
TotalCostToppings = Val(0.5) * txtbox11.Text
If chkboxpproni.Checked = True Then
TotalCostToppings2 = Val(0.5) * txtbox12.Text
If chkboxonions.Checked = True Then
TotalCostToppings3 = Val(0.5) * txtbox13.Text
If chkboxpeppers.Checked = True Then
TotalCostToppings4 = Val(0.5) * txtbox14.Text
If chkboxnone.Checked = True Then
TotalCostToppings5 = 0
End If
End If
End If
End If
End If
TotalToppings = TotalCostToppings + TotalCostToppings2 + TotalCostToppings3 + TotalCostToppings4 + TotalCostToppings5
lbltotal3.Text = Format(TotalToppings, "ÂŁ#,##0.00")
TotalCost = TotalPizzas + TotalDrinks + TotalToppings
lblbill.Text = Format(TotalCost, "ÂŁ#,##0.00")
If txtbox1.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox2.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox3.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox4.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox5.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox6.Text > 10 Then
lbltotal2.Text = String.Empty
lbltotal2.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox7.Text > 10 Then
lbltotal2.Text = String.Empty
lbltotal2.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox8.Text > 10 Then
lbltotal2.Text = String.Empty
lbltotal2.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox9.Text > 10 Then
lbltotal4.Text = String.Empty
lbltotal4.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox10.Text > 10 Then
lbltotal.Text = String.Empty
lbltotal.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox11.Text > 10 Then
lbltotal3.Text = String.Empty
lbltotal3.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox12.Text > 10 Then
lbltotal3.Text = String.Empty
lbltotal3.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox13.Text > 10 Then
lbltotal3.Text = String.Empty
lbltotal3.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
If txtbox14.Text > 10 Then
lbltotal3.Text = String.Empty
lbltotal3.Text = 0.0
lblbill.Text = String.Empty
lblbill.Text = 0.0
MsgBox("Must enter numbers between 1 to 10")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click
Me.Close()
End Sub
End Class