[vb] 2010/10/26 菜單作業

題目
玖何呷特惠套餐：
A.義式蕃茄義大利麵 298元
B.雲泰辣炒河粉 229元
C.墨魚海鮮焗麵 239元  
D.烏骨雞湯煲飯 319元
E.韓式泡菜豬排拌鍋飯 359元

是否加點甜品？
A.草莓慕斯 +20元 (原價45元) B.黑森林蛋糕 +15元 (原價42元)  C.法式千層派 +25元 (原價50元)
套餐點麵(A、C)甜品原價計算

飲料：+30元
A.薰衣草奶茶
B.薄荷清茶
C.拿鐵抹茶 +10元
D.曼特寧咖啡 +5元

若加點甜品,飲料可折抵10元
若甜品與飲料都未點,則不可折抵10元

1.可重覆點餐 (點菜機上需加上份數)
2.五人同行一人免費 (點菜機上需可輸入人數,點的套餐裡最便宜的免費,甜品飲料原價)
3.同一套餐第二人點,第二份可打9折(點的份數為偶數第二份才能打折)
4.消費滿2000元加送一道沙拉(每個人都有但只能單選一種：A.陽光沙拉、B.水果沙拉、C.洋芋沙拉)
5.顯示點餐明細與金額EX：烏骨雞湯煲飯3份、草莓慕斯1份、薄荷清茶2杯，合計1030元)
6.顯示欲找金額(點菜機上需輸入顧客付的金額,並顯示應找金額
EX：輸入1100元,應找70元-->應找50元1個、10元2個
不需要找的面額不可顯示,注意應找金額不可有小數點)
7.請在程式中加入一個迴圈判斷  

ps 紅線表示  未完成的部分

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sun, drink, sweet, meal As Double

        '若加點甜品,飲料可折抵10元  

        If TextBox6.Text >= 1 Or TextBox7.Text >= 1 Or TextBox8.Text >= 1 Then

            drink = CInt(TextBox9.Text) * 20 + CInt(TextBox10.Text) * 20 + CInt(TextBox11.Text) * 30 + CInt(TextBox11.Text) * 25

        Else

            drink = CInt(TextBox9.Text) * 30 + CInt(TextBox10.Text) * 30 + CInt(TextBox11.Text) * 40 + CInt(TextBox11.Text) * 35

        End If

        '套餐  同一套餐第二人點,第二份可打9折(點的份數為偶數第二份才能打折)

        If TextBox1.Text Mod 2 = 0 Or TextBox2.Text Mod 2 = 0 Or TextBox3.Text Mod 2 = 0 Or TextBox4.Text Mod 2 = 0 Or TextBox5.Text Mod 2 = 0 Then

            meal = CInt(TextBox1.Text) * 298 * 0.9 + CInt(TextBox2.Text) * 229 * 0.9 + CInt(TextBox3.Text) * 239 * 0.9 + CInt(TextBox4.Text) * 319 * 0.9 + CInt(TextBox5.Text) * 359 * 0.9

        Else

            meal = CInt(TextBox1.Text) * 298 + CInt(TextBox2.Text) * 229 + CInt(TextBox3.Text) * 239 + CInt(TextBox4.Text) * 319 + CInt(TextBox5.Text) * 359

        End If

        ' 套餐點麵(A、C)甜品原價計算

        If TextBox1.Text >= 1 Or TextBox3.Text >= 1 Then

            sweet = CInt(TextBox6.Text) * 45 + CInt(TextBox7.Text) * 42 + CInt(TextBox8.Text) * 50

        Else

            sweet = CInt(TextBox6.Text) * 20 + CInt(TextBox7.Text) * 15 + CInt(TextBox8.Text) * 25

        End If

        ' 消費滿2000元加送一道沙拉(每個人都有但只能單選一種：A.陽光沙拉、B.水果沙拉、C.洋芋沙拉)

        '總和

        sun = meal + sweet + drink

        Label14.Text = sun

        If sun >= 2000 And TextBox13.Text >= 1 Then

            MsgBox("消費滿兩千  送每人一道沙拉")

            Form3.Show()

        ElseIf sun <= 2000 And TextBox13.Text >= 1 Then

        Else

            MsgBox("請輸入人數")

            Close()

        End If

        '如果點了套餐 自動跳出  甜點  and 人數>=1

        If TextBox1.Text >= 1 Or TextBox2.Text >= 1 Or TextBox3.Text >= 1 Or TextBox4.Text >= 1 Or TextBox5.Text >= 1 Then

            Form2.Show()

        End If

        ''找錢

        'Dim c_sun, small_money As Integer

        'If c_sun > sun Then '當被除數大於等於除數進入迴圈

        '    c_sun = CInt(TextBox1.Text)  '將客戶 文字 轉數值

        '    small_money = c_sun - sun

        '    Label16.Text = small_money

        '    small_money = small_money \ 500 '總金額\500元

        '    Label17.Text = small_money

        'End If

        

        

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '套餐

        TextBox1.Text = "0"

        TextBox2.Text = "0"

        TextBox3.Text = "0"

        TextBox4.Text = "0"

        TextBox5.Text = "0"

        '甜點

        TextBox6.Text = "0"

        TextBox7.Text = "0"

        TextBox8.Text = "0"

        '飲料

        TextBox9.Text = "0"

        TextBox10.Text = "0"

        TextBox11.Text = "0"

        TextBox12.Text = "0"

        TextBox13.Text = "0"

    End Sub

    '當滑鼠 點textbox時   clear

    Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter

        TextBox1.Clear()

    End Sub

    Private Sub TextBox2Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter

        TextBox2.Clear()

    End Sub

    Private Sub TextBox3_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Enter

        TextBox3.Clear()

    End Sub

    Private Sub TextBox4_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Enter

        TextBox4.Clear()

    End Sub

    Private Sub TextBox5_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.Enter

        TextBox5.Clear()

    End Sub

End Class

Public Class Form2

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'A.草莓慕斯 +20元 (原價45元) B.黑森林蛋糕 +15元 (原價42元)  C.法式千層派 +25元 (原價50元)

        '       套餐點麵(A、C)甜品原價計算

        Label1.Text = "草莓慕斯 +20元 (原價45元)"

        Label2.Text = "黑森林蛋糕 +15元 (原價42元)"

        Label3.Text = "法式千層派 +25元 (原價50元)"

        TextBox1.Text = "0"

        TextBox2.Text = "0"

        TextBox3.Text = "0"

    End Sub

    '當點textbox時   clear

    Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter

        TextBox1.Clear()

    End Sub

    Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter

        TextBox2.Clear()

    End Sub

    Private Sub TextBox3_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Enter

        TextBox3.Clear()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sun1 As Integer

        If Form1.TextBox1.Text >= 1 Or Form1.TextBox3.Text >= 1 Then

            sun1 = CInt(TextBox1.Text) * 45 + CInt(TextBox2.Text) * 42 + CInt(TextBox3.Text) * 50

        Else

            sun1 = CInt(TextBox1.Text) * 20 + CInt(TextBox2.Text) * 15 + CInt(TextBox3.Text) * 25

        End If

        Form1.TextBox6.Text += CInt(TextBox1.Text)

        Form1.TextBox7.Text += CInt(TextBox2.Text)

        Form1.TextBox8.Text += CInt(TextBox3.Text)

        Form1.Label14.Text += sun1

        MsgBox("已加入選單")

        Close()

    End Sub

End Class

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' 消費滿2000元加送一道沙拉(每個人都有但只能單選一種：A.陽光沙拉、B.水果沙拉、C.洋芋沙拉)

        If RadioButton1.Checked = True Then

            MsgBox("您點的是陽光沙拉")

            Close()

        ElseIf RadioButton2.Checked = True Then

            MsgBox("您點的是水果沙拉")

            Close()

        ElseIf RadioButton3.Checked = True Then

            MsgBox("您點的是洋芋沙拉")

            Close()

        End If

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RadioButton1.Text = "陽光沙拉"

        RadioButton2.Text = "水果沙拉"

        RadioButton3.Text = "洋芋沙拉"

    End Sub

End Class