题目安平小吃结帐系统.pptVIP

安平結帳系統 學習重點 ListBox、RadioButton的使用方法 題目說明:餐廳結帳 設計餐廳結帳系統，填寫數量再按下計算鈕之後，即會顯示結帳總金額。按「清除」按鈕，再輸入數量，分別點選「老客戶*0.9」、「特約戶*0.75 」或「2500元*0.7」，再按下「計算」鈕，便分別得到到「打9折」、「打75折」或「大於2500元打7折」後的那一筆總金額資料。 附加功能 程式中加入加飲料加15元的功能，特別注意到是每一份加飲料都必須加15元，且訂多少份，就會有多少杯飲料且會分加15元。另外，若總金額超過250元之單一筆訂單則免收加飲料功能。 程式開始畫面 程式畫面-改蝦捲數量 改蝦捲數量為1按「計算」按鈕後，得到第1筆結帳資料。 再輸入蚵仔煎的數量為3 按「清除」按鈕，清除剛剛的蝦捲一份後，再輸入蚵仔煎的數量為3，並點選「特約戶*0.75」，再按下「計算」鈕，得到打75折後的那一筆112元資料。 老客戶*0.8 按「清除」按鈕，清除剛剛的蚵仔煎3份後，再輸入鼎邊銼的數量為2，並點選「老客戶*0.8」，再按下「計算」鈕，得到打8折後的那一筆160元資料 超過2000元*0.7 按「清除」按鈕，清除剛剛的鼎邊銼2份後，再輸入鮮食餛飩的數量為6，並點選「超過2000*0.7 」，再按下「計算」鈕，得到打7折後的那一筆210元資料。 全部清除 假設有資料是錯誤的，必須刪除掉。使用者只需直接用滑鼠點選「全部清除」，資料就會自動被刪除，同時，累計值會自動把資料刪除。 版面配置屬性設定 程式碼設計 1 Public Class Form1 2 Dim a, b As Integer 3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 Label8.Text = $ a 元 5 Label9.Text = 累計：$ b 元 6 Label8.Font = New Font(新細明體, 24) 7 Label8.ForeColor = Color.Red 8 a = 0 9 b = 0 10 End Sub 14 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 15 a = Val(TextBox1.Text) * Val(TextBox5.Text) + Val(TextBox2.Text) * Val(TextBox6.Text) + Val(TextBox3.Text) * Val(TextBox7.Text) + Val(TextBox4.Text) * Val(TextBox8.Text) 17 　 27 If a=2000 Then RadioButton3.Checked = True 28 If RadioButton1.Checked = True Then a = a * 0.8 29 If RadioButton2.Checked = True Then a = a * 0.75 30 If RadioButton3.Checked = True Then a = a * 0.7 31 Label8.Text = $ a 元 32 b = a + b 33 Label9.Text = 累計：$ b 元 34 ListBox1.Items.Add(b -- 蝦捲 TextBox1.Text * TextBox5.Text 蚵仔煎 TextBox2.Text * TextBox6.Text 鼎邊銼 TextBox3.Text * TextBox7.Text 鮮食餛飩 TextBox4.Text * TextBox8.Text) 36 End Sub 40 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 41 TextBox5.Text = 0 42 TextBox6.Text