（VB）APPを作成すると正常に動作しない

Question

私は大学にいて、アプリケーションを作成しています。しかし私は私のアプリ内で2つの主要な問題があります。私のアプリは、ピザショップ内のスタッフが台所に注文を送ることができるピザアプリです（これは単なるリストボックスです）。しかし、数学はうまくいかず、正しい価格は何らかの理由で注文のラベルに表示されません。私はコードを書く方法と置く方法が異なっていますが、結果は常に同じです。また、テーブルあたり5人のお客様がいます。顧客の注文をすべて選択して送信をクリックすると、顧客2の注文のみが送信されます。他の顧客のものではありませんが、私はちょうど単独で顧客1を行う場合、それは動作します。以下は

うまくいけば、誰かが私は、IVEが全部に目を通し、それに伴う問題を参照してくださいカントとしてイムだけで盲目であることだと思うので、私は間違っているつもりですどこを教えてくださいすることができます、私のコードです。ソリューションに対する特定のヘルプ/フィードバックに感謝します。

APPコード：

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

がpizasコードがかかるはずチェックコストがPizzas.After用に追加されていないundrestood .CODEは、私がこれまでのように、よりreadable.AsになるスイッチケースでのC＃を使用してみてください+ =価格代わりにコスト= pizzaprice

はまたdrink1など、1をトッピング、BASE1続くcode.Pizzaoneの順序を編集しListBox.Add .Thenはlistbox.add続いpizza2、pizza3などのために同じことを行う

Answer 2

ようこそStackOverflow。デバッグの方法を学ぶための時間はここにあります（間違いなくその人はショートカットキーを使用していませんが、誰もが理解するのに十分なレベルでなければなりません）：http://www.youtube.com/watch?v=jxR_ngGIpQM 。あなたのコードをデバッグしたら戻ってきて

をその間に、ここでいくつかのポインタがあります：

a）の代わりに、すべての場合は、のElseIfステートメントの使用スイッチ（またはVB.Netでセレクトと呼ばれます）。たとえば、この：

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

は、はるかに優れて表すことができる：

Select Case tableno.Text 
Case Is = 1 

Case Is < 5 

Case Is < 10 

Case Is > 9 

End Select 

それはまだテーブル変数は、単にテキストボックスのTextプロパティを複製しているので、あなただけ使用できるように私には意味がありませんtableという変数の代わりにtableno.Text。あなたが他の関数に周り、この変数を渡すしようとしている場合は、ちょうどこのようにそれをコーディング：

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

B）これは、別の例である、あなたは一度だけ割り当てないことができるときあなたはステートメント場合で割り当てる方法を見ます例えば：

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

そのがはるかに簡単だけ例えば、もしElseステートメントの終わりに1行でそれを行うには：

drink = drink1.Text 

c）は、値（価格、商品名をハードコーディングいけません、 et c）！値をデータベースまたはテキストファイルに保存してください！

d）ブール条件をテストする場合は、真であるかどうかをテストする必要はありません。例：

If cheese3.Checked Then