-4

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

下面是我的代码，希望有人能够告诉我我哪里出错了，因为我认为我只是盲目地浏览了整个事情并且看不到它的问题。提前感谢您对解决方案的任何给定帮助/反馈。

应用代码：

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
4

2 回答 2

1

欢迎来到 StackOverflow。是时候让您学习如何调试了，这是一个开始（诚然，这家伙不是那么好（他甚至不使用快捷键 - 但它应该足够简单，任何人都可以理解）：http调试完代码后， ://www.youtube.com/watch?v=jxR_ngGIpQM会回来。

同时，这里有一些提示：

a) 使用 Switch（或在 VB.Net 中称为 Select）代替所有 If、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

table 变量只是复制文本框的 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) 如果测试一个布尔条件，不要打扰测试它是否等于真。例如

If cheese3.Checked Then
于 2012-04-11T05:51:36.407 回答
0

尝试将 C# 与 switch case 一起使用。代码将更具可读性。据我所知，Pizzas 的成本并没有增加。在 pizas 检查后，代码应该是 cost+=price 而不是 cost=pizzaprice

还要编辑代码的顺序。Pizzaone 后跟 base1、topping 1、drink1 等和 ListBox.Add 。然后对 Pizza2、pizza3 等执行相同操作，然后是 listbox.add

于 2012-04-11T02:22:11.527 回答