创建一个（VB）应用程序，它不能正常工作

-4

我在大学时，正在创建一个应用程序。但是我的应用程序中有两个主要问题。我的应用程序是一个比萨应用程序，它允许比萨店内的员工将订单发送到厨房（这只是一个列表框）。但是，数学不起作用，由于某种原因，正确的定价不会显示在订单的标签中。我尝试过不同的写法和放置代码的方式，但结果总是一样的。另外，我每桌有五位顾客。如果我选择所有客户订单并单击发送，则只会发送客户2的订单。不是其他任何客户，但是如果我只是自己做客户，它就可以工作。创建一个（VB）应用程序，它不能正常工作

下面是我的代码，希望有人能告诉我我哪里会出错，因为我认为即时通讯仅仅是盲目的，因为我查看了整个事物并且无法看到它的问题。预先感谢任何给予解决方案的帮助/反馈。

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

来源

2012-04-11 user1325468

为什么'tableno.Tex = table'而不是所有这些'if..else' ?! – 2012-04-11 02:15:23

你的第一个问题，这不是C＃。 – Gabe 2012-04-11 02:15:28

痛苦的阅读问题和代码。 – 2012-04-11 02:17:18

尝试使用C＃带开关的情况下。代码会更加readable.As据我undrestood成本不Pizzas.After增加了pizas检查代码的成本，应+ =价格代替成本= pizzaprice

另外编辑随后BASE1 code.Pizzaone的顺序，摘心1，drink1等和ListBox.Add。然后做同样pizza2，pizza3等后跟一个listbox.add

来源

2012-04-11 02:22:11

好吧，太好了。感谢您的反馈意见。此外，当我运行我的应用程序，我必须点击“发送到厨房”按钮一次或两次以获得应用程序的工作。是因为代码的顺序吗？ – user1325468 2012-04-11 02:26:52

我不认为这是因为代码的顺序。尝试更改代码的顺序。根据当前代码，似乎只有一个客户订单将被添加到列表框 – 2012-04-11 02:32:56

欢迎来到StackOverflow。它是你学习如何调试的时间，这里是一个开始（不可否认的是，这个人并不是那么好（他甚至不使用快捷键 - 但它应该足够简单，以供任何人理解）：http://www.youtube.com/watch?v=jxR_ngGIpQM 。回来一次，你已经调试代码

在平均时间这里有一些指针：

一）利用交换机（或在VB.Net称为选择），而不是所有的如果，elseif的语句。例如这样的：

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属性，所以你可以只使用tableno.Text代替名为table的变量。如果你将要围绕通过这个变量的其他功能，然后就这样的代码是：

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

B）这是另外一个例子，看你如何分配if语句时，你可以只是一次分配如：

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

它更容易只是做了一个线上的的if else语句的结束，如：

drink = drink1.Text

三）不要硬编码值（价格，产品名称，等C）！将值存储在数据库甚至文本文件中！

d）如果测试布尔条件不要打扰测试，如果它等于true。例如

If cheese3.Checked Then

来源

2012-04-11 05:51:36

创建一个（VB）应用程序，它不能正常工作

回答

相关问题