投影片1 - 南台科技大學.pptVIP

題目：五花十色大餐館 結帳系統 南台科技大學 機械工程系微奈米技術組 奈米一乙 學號：4A014031 老師： 謝慶存 ◎ 應用課堂上所學的知識結合 ◎ Label Button Listbox Groubox Radiobutton 等的使用方法 運用課堂所學，試著設計餐館的結帳系統，填寫數量及勾取確認後再按下計算鈕，即會顯示應付的總金額。按「清除」按鈕，再輸入數量，並點選「特約戶*0.8」，再按下「計算」鈕，得會打八折後的那一筆總金額資料。 假如要一碗病豬肉飯，就在數量框格中輸入1，然後確定後把確認鍵打勾，再按「結帳」按鈕，將能得到第1筆結帳資料。 按「清除」按鈕，清除剛剛的一碗病死豬肉飯後，再輸入包魚鬆餅的數量為5，並點選「特約戶*0.8」，再按下「計算」鈕，得到打8折後的那一筆180元資料。 然而在酸辣湯腳旁的數量欄中輸入20，並按下「計算」鈕，會發現因為超過1000元，所以畫面中的1000*0.75選項，會在程式運作下的同時自動選取。 假設825元這筆資料是錯誤的，必須刪除掉。使用者只需直接以滑鼠點選這筆資料，這筆資料就會自動被刪除，。 金額 Label6 Label7 列出餐點 ListBox1 快餐 Label1 Label2 Label3 價格 TBoxPrice1 TBoxPrice2 TBoxPrice3 數量 TBoxQty1 TBoxQty2 TBoxQty3 確認 CheckBox1 CheckBox2 CheckBox3 清除 Button1 計算 Button2 優惠 GroupBox1 RadioButton1 RadioButton2 RadioButton3 物件 屬性 設定 說明 TBoxPrice1 Text “” 病豬肉飯價格 TBoxPrice2 Text “” 包魚鬆餅價格 TBoxPrice3 Text “” 酸辣湯腳價格 TBoxQty1 Text 病豬肉飯數量 TBoxQty2 Text 包魚鬆餅數量 TBoxQty3 Text 酸辣湯腳數量 RadioButton Text 老顧戶*0.9 RadioButton2 Text 特約戶*0.8 RadioButton3 Text 1000元*0.75 Button1 Text 清除 Button2 Text 計算 ListBox1 由程式控制 1 Public Class Form1 2 Dim total, accTotal As Integer 3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 Label6.Text = $ total 元“ 5 Label7.Text = 累計：$ accTotal 元“ 6 Label6.Font = New Font(新細明體, 24) 7 Label6.ForeColor = Color.Red 8 total = 0 9 accTotal = 0 10 End Sub If RadioButton2.Checked = True Then total = total * 0.8 18 If RadioButton3.Checked = True Then total = total * 0.75 19 Label6.Text = $ total 元 20 accTotal = accTotal + total 21 Label7.Text = 累計：$ accTotal 元 ListBox1.Items.Add(total “--” “病豬肉飯” TBoxPrice1.Text “*” TBoxQty1.Text