Restaurant Application with menu items

[crystalluk]

In visual basic how do I do the following?

A restaurant wants an application that calculates a table's bill. The application should display all the menu items ( shown below) in four ComboBoxes. Each ComboBox should contain a category of food offered by the restaurant (Beverage, Appetizer, Main Course and Dessert). The user can choose from one of these ComboBoxes to add an item to a table's bill. As each item is selected in the ComboBoxes, add the price of that item to the bill. The user can click the Clear Button to restore the Subtotal:, Tax:, and Total: fields to $0.00

[.paul.]

how far have you got?

[.paul.]

assuming you're using vb2008+, you could use databinding + LINQ:

Public Class Form1
 
    Dim loaded As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As New DataSet
        ds.Tables.Add("Beverage")
        ds.Tables("Beverage").Columns.Add("item")
        ds.Tables("Beverage").Columns.Add("price", GetType(Decimal))
 
        For x As Integer = 1 To 5
            Dim dr As DataRow = ds.Tables("Beverage").NewRow
            dr.ItemArray = New Object() {"drink" & x.ToString, x}
            ds.Tables("Beverage").Rows.Add(dr)
        Next
 
        Label1.Text = "Beverage"
        ComboBox1.DataSource = ds.Tables("Beverage")
        ComboBox1.DisplayMember = "item"
        ComboBox1.ValueMember = "price"
 
        ds.Tables.Add("Appetizer")
        ds.Tables("Appetizer").Columns.Add("item")
        ds.Tables("Appetizer").Columns.Add("price", GetType(Decimal))
 
        For x As Integer = 1 To 5
            Dim dr As DataRow = ds.Tables("Appetizer").NewRow
            dr.ItemArray = New Object() {"starter" & x.ToString, x}
            ds.Tables("Appetizer").Rows.Add(dr)
        Next
 
        Label2.Text = "Appetizer"
        ComboBox2.DataSource = ds.Tables("Appetizer")
        ComboBox2.DisplayMember = "item"
        ComboBox2.ValueMember = "price"
 
        ds.Tables.Add("Main_Course")
        ds.Tables("Main_Course").Columns.Add("item")
        ds.Tables("Main_Course").Columns.Add("price", GetType(Decimal))
 
        For x As Integer = 1 To 5
            Dim dr As DataRow = ds.Tables("Main_Course").NewRow
            dr.ItemArray = New Object() {"meal" & x.ToString, x}
            ds.Tables("Main_Course").Rows.Add(dr)
        Next
 
        Label3.Text = "Main_Course"
        ComboBox3.DataSource = ds.Tables("Main_Course")
        ComboBox3.DisplayMember = "item"
        ComboBox3.ValueMember = "price"
 
        ds.Tables.Add("Dessert")
        ds.Tables("Dessert").Columns.Add("item")
        ds.Tables("Dessert").Columns.Add("price", GetType(Decimal))
 
        For x As Integer = 1 To 5
            Dim dr As DataRow = ds.Tables("Dessert").NewRow
            dr.ItemArray = New Object() {"dessert" & x.ToString, x}
            ds.Tables("Dessert").Rows.Add(dr)
        Next
 
        Label4.Text = "Dessert"
        ComboBox4.DataSource = ds.Tables("Dessert")
        ComboBox4.DisplayMember = "item"
        ComboBox4.ValueMember = "price"
 
        loaded = True
        ComboBox1.SelectedIndex += 1
        ComboBox1.SelectedIndex = 0
 
    End Sub
 
    Private Sub ComboBoxes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged, ComboBox4.SelectedIndexChanged
 
        If Not loaded Then Return
 
        Dim total = (From cb In Me.Controls.OfType(Of ComboBox)() _
                     Let value = CDec(DirectCast(cb, ComboBox).SelectedValue) _
                     Select value).Sum
        Label5.Text = "total = " & total.ToString("c2")
    End Sub
End Class

[jmcilhinney]

Can someone please do my homework for me too?

[.paul.]

Can someone please do my homework for me too?

ok. post your question. but i charge...

[jmcilhinney]

ok. post your question. but i charge...

At least I'll get good marks in my class without having to think for myself.