Erstellen einer (VB) APP und es funktioniert nicht richtig

Question

Ich bin am College und erstelle eine App. Allerdings habe ich zwei Hauptprobleme innerhalb meiner App. Meine App ist eine Pizza-App, die es Mitarbeitern innerhalb einer Pizzeria ermöglicht, Bestellungen in die Küche zu schicken (dies ist nur eine Listbox). aber, die Mathematik funktioniert nicht, die korrekte Preisauszeichnung wird nicht im Etikett für die Aufträge aus irgendeinem Grund angezeigt. Ich habe verschiedene Arten des Schreibens und Platzierens meines Codes ausprobiert, aber das Ergebnis ist immer dasselbe. Außerdem habe ich fünf Kunden pro Tisch. Wenn ich alle Kundenaufträge auswähle und auf "Senden" klicke, wird nur die Bestellung von Kunde 2 gesendet. keine der anderen Kunden, aber wenn ich nur einen Kunden alleine mache, funktioniert es.

Unten ist mein Code, hoffentlich wird mir jemand sagen können, wo ich falsch liege, weil ich denke, ich bin blind, weil ich durch die ganze Sache geschaut habe und kein Problem damit sehen kann. Vielen Dank im Voraus für jegliche Hilfe/Feedback zur Lösung.

APP-Code:

Public Class Form1 
    Dim myformat As String = "{0,-10}{1,-25}{2,-15}{3,-30}{4,-10}" 
    Dim cost As Single 
    Dim base As String 
    Dim pizza As String 
    Dim table As String 
    Dim topping As String 
    Dim drink As String 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     ListBox1.Items.Add(String.Format(myformat, "table", "pizza", "base", "topping", "drink")) 
    End Sub 
    Private Sub STK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STK.Click 


    '------------------table no-------------------' 
    If tableno.Text = "1" Then 
     table = "1" 
    ElseIf tableno.Text = "2" Then 
     table = "2" 
    ElseIf tableno.Text = "3" Then 
     table = "3" 
    ElseIf tableno.Text = "4" Then 
     table = "4" 
    ElseIf tableno.Text = "5" Then 
     table = "5" 
    ElseIf tableno.Text = "6" Then 
     table = "6" 
    ElseIf tableno.Text = "7" Then 
     table = "7" 
    ElseIf tableno.Text = "8" Then 
     table = "8" 
    ElseIf tableno.Text = "9" Then 
     table = "9" 
    ElseIf tableno.Text = "10" Then 
     table = "10" 
    ElseIf tableno.Text = "11" Then 
     table = "11" 
    ElseIf tableno.Text = "12" Then 
     table = "12" 
    ElseIf tableno.Text = "13" Then 
     table = "13" 
    ElseIf tableno.Text = "14" Then 
     table = "14" 
    ElseIf tableno.Text = "15" Then 
     table = "15" 
    ElseIf tableno.Text = "16" Then 
     table = "16" 
    ElseIf tableno.Text = "17" Then 
     table = "17" 
    ElseIf tableno.Text = "18" Then 
     table = "18" 
    ElseIf tableno.Text = "19" Then 
     table = "19" 
    ElseIf tableno.Text = "20" Then 
     table = "20" 
    ElseIf tableno.Text = "21" Then 
     table = "21" 
    ElseIf tableno.Text = "22" Then 
     table = "22" 
    ElseIf tableno.Text = "23" Then 
     table = "23" 
    ElseIf tableno.Text = "24" Then 
     table = "24" 
    ElseIf tableno.Text = "25" Then 
     table = "25" 
    End If 
    '---------------pizza type 1----------------' 
    If pizza1.Text = "Planet Cheese" Then 
     pizza = "Planet Cheese" 
     cost = 4.0 
    ElseIf pizza1.Text = "Planet Special" Then 
     pizza = "Planet Special" 
     cost = 5.0 
    ElseIf pizza1.Text = "Planet Vegi" Then 
     pizza = "Planet Vegi" 
     cost = 4.5 
    ElseIf pizza1.Text = "Planet Feast" Then 
     pizza = "Planet Feast" 
     cost = 6.0 
    ElseIf pizza1.Text = "Planet Itella" Then 
     pizza = "Planet Itella" 
     cost = 6.5 
    End If 
    '---------------pizza type 2----------------' 
    If pizza2.Text = "Planet Cheese" Then 
     pizza = "Planet Cheese" 
     cost = 4.0 
    ElseIf pizza2.Text = "Planet Special" Then 
     pizza = "Planet Special" 
     cost = 5.0 
    ElseIf pizza2.Text = "Planet Vegi" Then 
     pizza = "Planet Vegi" 
     cost = 4.5 
    ElseIf pizza2.Text = "Planet Feast" Then 
     pizza = "Planet Feast" 
     cost = 6.0 
    ElseIf pizza2.Text = "Planet Itella" Then 
     pizza = "Planet Itella" 
     cost = 6.5 
    End If 


    '---------------pizza type 3----------------' 
    If pizza3.Text = "Planet Cheese" Then 
     pizza = "Planet Cheese" 
     cost = 4.0 
    ElseIf pizza3.Text = "Planet Special" Then 
     pizza = "Planet Special" 
     cost = 5.0 
    ElseIf pizza3.Text = "Planet Vegi" Then 
     pizza = "Planet Vegi" 
     cost = 4.5 
    ElseIf pizza3.Text = "Planet Feast" Then 
     pizza = "Planet Feast" 
     cost = 6.0 
    ElseIf pizza3.Text = "Planet Itella" Then 
     pizza = "Planet Itella" 
     cost = 6.5 
    End If 

    '---------------pizza type 4----------------' 
    If pizza4.Text = "Planet Cheese" Then 
     pizza = "Cheese and Tamato" 
     cost = 4.0 
    ElseIf pizza4.Text = "Planet Special" Then 
     pizza = "Planet Special" 
     cost = 5.0 
    ElseIf pizza4.Text = "Planet Vegi" Then 
     pizza = "Planet Vegi" 
     cost = 4.5 
    ElseIf pizza4.Text = "Planet Feast" Then 
     pizza = "Planet Feast" 
     cost = 6.0 
    ElseIf pizza4.Text = "Planet Itella" Then 
     pizza = "Planet Itella" 
     cost = 6.5 
    End If 

    '---------------pizza type 5----------------' 
    If pizza5.Text = "Planet Cheese" Then 
     pizza = "Planet Cheese" 
     cost = 4.0 
    ElseIf pizza2.Text = "Planet Special" Then 
     pizza = "Planet Special" 
     cost = 5.0 
    ElseIf pizza5.Text = "Planet Vegi" Then 
     pizza = "Planet Vegi" 
     cost = 4.5 
    ElseIf pizza2.Text = "Planet Feast" Then 
     pizza = "Planet Feast" 
     cost = 6.0 
    ElseIf pizza5.Text = "Planet Itella" Then 
     pizza = "Planet Itella" 
     cost = 6.5 
    End If 


    '---------------base 1 ------------' 
    If norm1.Checked Then 
     base = "norm" 
    ElseIf thin1.Checked Then 
     base = "thin" 
    ElseIf CB1.Checked Then 
     base = "CB" 
    ElseIf BSC1.Checked Then 
     base = "BSC" 
    End If 
    '---------------base 2 ------------' 
    If norm2.Checked Then 
     base = "norm" 
    ElseIf thin2.Checked Then 
     base = "thin" 
    ElseIf CB2.Checked Then 
     base = "CB" 
    ElseIf BSC2.Checked Then 
     base = "BSC" 
    End If 
    '---------------base 3 ------------' 
    If norm3.Checked Then 
     base = "norm" 
    ElseIf thin3.Checked Then 
     base = "thin" 
    ElseIf CB3.Checked Then 
     base = "CB" 
    ElseIf BSC3.Checked Then 
     base = "BSC" 
    End If 
    '---------------base 4 ------------' 
    If norm4.Checked Then 
     base = "norm" 
    ElseIf thin4.Checked Then 
     base = "thin" 
    ElseIf CB4.Checked Then 
     base = "CB" 
    ElseIf BSC4.Checked Then 
     base = "BSC" 
    End If 
    '---------------base 5 ------------' 
    If norm5.Checked Then 
     base = "norm" 
    ElseIf thin5.Checked Then 
     base = "thin" 
    ElseIf CB5.Checked Then 
     base = "CB" 
    ElseIf BSC5.Checked Then 
     base = "BSC" 
    End If 





    '----------topping1----' 
    If cheese1.Checked = True Then 
     topping = "Cheese" 
     cost = cost + 1.0 
    End If 
    If pepperoni1.Checked = True Then 
     topping = "Pepperoni" 
     cost = cost + 1.0 
    End If 
    If onion1.Checked = True Then 
     topping = "onion" 
     cost = cost + 1.0 
    End If 
    If peppers1.Checked = True Then 
     topping = "Peppers" 
     cost = cost + 1.0 
    End If 
    If sausage1.Checked = True Then 
     topping = "sausage" 
     cost = cost + 1.0 
    End If 
    If tuna1.Checked = True Then 
     topping = "tuna" 
     cost = cost + 1.0 
    End If 
    If meatballs1.Checked = True Then 
     topping = "meatballs" 
     cost = cost + 1.0 
    End If 






    '----------topping2----' 
    If cheese2.Checked = True Then 
     topping = "Cheese" 
     cost = cost + 1.0 
    End If 
    If pepperoni2.Checked = True Then 
     topping = "Pepperoni" 
     cost = cost + 1.0 
    End If 
    If onion2.Checked = True Then 
     topping = "onion" 
     cost = cost + 1.0 
    End If 
    If peppers2.Checked = True Then 
     topping = "Peppers" 
     cost = cost + 1.0 
    End If 
    If sausage2.Checked = True Then 
     topping = "sausage" 
     cost = cost + 1.0 
    End If 
    If tuna2.Checked = True Then 
     topping = "tuna" 
     cost = cost + 1.0 
    End If 
    If meatballs2.Checked = True Then 
     topping = "meatballs" 
     cost = cost + 1.0 
    End If 





    '----------topping3----' 
    If cheese3.Checked = True Then 
     topping = "Cheese" 
     cost = cost + 1.0 
    End If 
    If pepperoni3.Checked = True Then 
     topping = "Pepperoni" 
     cost = cost + 1.0 
    End If 
    If onion3.Checked = True Then 
     topping = "onion" 
     cost = cost + 1.0 
    End If 
    If peppers3.Checked = True Then 
     topping = "Peppers" 
     cost = cost + 1.0 
    End If 
    If sausage3.Checked = True Then 
     topping = "sausage" 
     cost = cost + 1.0 
    End If 
    If tuna3.Checked = True Then 
     topping = "tuna" 
     cost = cost + 1.0 
    End If 
    If meatballs3.Checked = True Then 
     topping = "meatballs" 
     cost = cost + 1.0 
    End If 






    '----------topping4----' 
    If cheese4.Checked = True Then 
     topping = "Cheese" 
     cost = cost + 1.0 
    End If 
    If pepperoni4.Checked = True Then 
     topping = "Pepperoni" 
     cost = cost + 1.0 
    End If 
    If onion4.Checked = True Then 
     topping = "onion" 
     cost = cost + 1.0 
    End If 
    If peppers4.Checked = True Then 
     topping = "Peppers" 
     cost = cost + 1.0 
    End If 
    If sausage4.Checked = True Then 
     topping = "sausage" 
     cost = cost + 1.0 
    End If 
    If tuna4.Checked = True Then 
     topping = "tuna" 
     cost = cost + 1.0 
    End If 
    If meatballs4.Checked = True Then 
     topping = "meatballs" 
     cost = cost + 1.0 
    End If 







    '----------topping5----' 
    If cheese5.Checked = True Then 
     topping = "Cheese" 
     cost = cost + 1.0 
    End If 
    If pepperoni5.Checked = True Then 
     topping = "Pepperoni" 
     cost = cost + 1.0 
    End If 
    If onion5.Checked = True Then 
     topping = "onion" 
     cost = cost + 1.0 
    End If 
    If peppers5.Checked = True Then 
     topping = "Peppers" 
     cost = cost + 1.0 
    End If 
    If sausage5.Checked = True Then 
     topping = "sausage" 
     cost = cost + 1.0 
    End If 
    If tuna5.Checked = True Then 
     topping = "tuna" 
     cost = cost + 1.0 
    End If 
    If meatballs5.Checked = True Then 
     topping = "meatballs" 
     cost = cost + 1.0 
    End If 







    '---------------drink1-----------------------' 
    If drink1.Text = "Cola" Then 
     drink = "Cola" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Fruit Punch" Then 
     drink = "Fruit Punch" 
     cost = cost + 0.8 
    ElseIf drink1.Text = "J2o" Then 
     drink = "J2o" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Blaster" Then 
     drink = "Alien Blaster" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Brains" Then 
     drink = "Alien Brains" 
     cost = cost + 0.9 
    End If 





    '---------------drink2-----------------------' 
    If drink2.Text = "Cola" Then 
     drink = "Cola" 
     cost = cost + 0.9 
    ElseIf drink2.Text = "Fruit Punch" Then 
     drink = "Fruit Punch" 
     cost = cost + 0.8 
    ElseIf drink2.Text = "J2o" Then 
     drink = "J2o" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Blaster" Then 
     drink = "Alien Blaster" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Brains" Then 
     drink = "Alien Brains" 
     cost = cost + 0.9 
    End If 




    '---------------drink3-----------------------' 
    If drink3.Text = "Cola" Then 
     drink = "Cola" 
     cost = cost + 0.9 
    ElseIf drink3.Text = "Fruit Punch" Then 
     drink = "Fruit Punch" 
     cost = cost + 0.8 
    ElseIf drink3.Text = "J2o" Then 
     drink = "J2o" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Blaster" Then 
     drink = "Alien Blaster" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Brains" Then 
     drink = "Alien Brains" 
     cost = cost + 0.9 
    End If 




    '---------------drink4-----------------------' 
    If drink4.Text = "Cola" Then 
     drink = "Cola" 
     cost = cost + 0.9 
    ElseIf drink4.Text = "Fruit Punch" Then 
     drink = "Fruit Punch" 
     cost = cost + 0.8 
    ElseIf drink4.Text = "J2o" Then 
     drink = "J2o" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Blaster" Then 
     drink = "Alien Blaster" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Brains" Then 
     drink = "Alien Brains" 
     cost = cost + 0.9 
    End If 





    '---------------drink5-----------------------' 
    If drink5.Text = "Cola" Then 
     drink = "Cola" 
     cost = cost + 0.9 
    ElseIf drink5.Text = "Fruit Punch" Then 
     drink = "Fruit Punch" 
     cost = cost + 0.8 
    ElseIf drink5.Text = "J2o" Then 
     drink = "J2o" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Blaster" Then 
     drink = "Alien Blaster" 
     cost = cost + 0.9 
    ElseIf drink1.Text = "Alien Brains" Then 
     drink = "Alien Brains" 
     cost = cost + 0.9 
    End If 

    ListBox1.Items.Add(String.Format(myformat, table, pizza, base, topping, drink)) 


    totallabel.Text = Format(cost, "currency") 
End Sub 

Answer 1

Versuchen C# mit Schalter Fällen verwendet, wird .CODE weit mehr readable.As sein, wie ich bin undrestood die Kosten nicht für Pizzas.After Addition ist die pizas der Code überprüfen sollten, + kosten = Preis statt Kosten = pizzaprice

auch die Reihenfolge der code.Pizzaone von Base1 gefolgt bearbeiten, Topping 1, drink1 etc und ein ListBox.Add .Dann das gleiche für pizza2, pizza3 etc von einem listbox.add gefolgt

Answer 2

Willkommen bei StackOverflow. Es ist Zeit für Sie zu lernen, wie man debuggt, hier ist ein Anfang (zugegebenermaßen ist der Typ nicht so gut (er verwendet nicht einmal Abkürzungstasten - aber es sollte auf einem leicht genug Niveau für jedermann zu verstehen sein): http://www.youtube.com/watch?v=jxR_ngGIpQM . zurückkommen, wenn Sie Ihren Code debuggt haben

in der Zwischenzeit sind hier einige Hinweise:

a) Verwendung Switch (oder Select in VB.Net) anstelle von allen Wenn ElseIf Aussagen genannt. dieses Beispiel:

If tableno.Text = "1" Then 
table = "1" 
ElseIf tableno.Text = "2" Then 
table = "2" 

Könnte viel besser dargestellt werden:

Select Case tableno.Text 
Case Is = 1 

Case Is < 5 

Case Is < 10 

Case Is > 9 

End Select 

Es ist immer noch für mich keinen Sinn macht, dass die Tabelle Variable nur ist die Eigenschaft Text der Textbox zu duplizieren, so dass Sie konnte einfach nutzen tableno.Text anstelle der Variablen namens table. Wenn Sie diese Variable werden um auf andere Funktionen zu vorbei, dann codieren nur es wie folgt aus:

tableno = tableno.Text ' 50 lines less of code! 

b) Dies ist ein weiteres Beispiel, wie Sie in If-Anweisungen zuweisen, wenn Sie nur könnte die Zuordnung einmal tun zB:

If drink1.Text = "Cola" Then 
drink = "Cola" 
cost = cost + 0.9 
ElseIf drink1.Text = "Fruit Punch" Then 
drink = "Fruit Punch" 

es ist viel einfacher zu tun, es nur in einer Zeile am Ende der Else-Anweisung Wenn zB:

drink = drink1.Text 

c) nicht, daß die Werte (Preise, Produktnamen codieren, et c)! Speichern Sie die Werte in einer Datenbank oder sogar in einer Textdatei!

d) Wenn Sie eine boolesche Bedingung testen, prüfen Sie nicht, ob sie wahr ist. zB

If cheese3.Checked Then