題目:南台飲料店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A415019.

Presentation on theme: "題目:南台飲料店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A415019."— Presentation transcript:

1 題目:南台飲料店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A415019

2 飲料店結帳系統 學習重點 ListBox、RadioButton的使用方法

3 題目說明:結帳系統 試設計飲料店結帳系 統，填寫數量再按下 計算鈕之後，即會顯 示結帳總金額。按 「清除」按鈕，再輸 入數量，並點選「老 憑學生證 *0.95」，再 按下「計算」鈕，得 到打95折後的那一筆 總金額資料。

4 程式開始畫面-改珍珠奶茶數量 改珍珠奶茶數量為1按「計算」按鈕後，得到第1筆結帳 資料

5 再輸入芋圓奶茶的數量為3 按「清除」按鈕，清除剛剛的珍珠奶茶一份後，再輸入芋圓奶茶的數量為2， 並點選「憑學生證 * 0.95」，再按下「計算」鈕，得到打95折後的那一筆150 元資料。

6 超過2000元*0.75 在芋頭鮮奶旁的數量欄中輸入40並按下「計算」鈕。
發現因為超過600元，所以畫面中的>2000*0.75選項，已經在程式運作 下自動選取。

7 清除錯誤資料 假設1950元這筆資料是錯誤的，必須刪除掉。使用者只需直接以滑鼠點選這 筆資料，這筆資料就會自動被刪除，同時，累計值會自動把這筆資料的1950 元，從累計金額中扣除。

8 版面配置 屬性設定 TBoxPrice1 TBoxPrice2 TBoxPrice3 TBoxQty1 TBoxQty2 TBoxQty3
Label5 Label4 LinkLabel1 Label8 RadioButton1 RadioButton2 RadioButton3 飲品 Label1 Label2 Label3 CheckBox1 CheckBox2 CheckBox3 ListBox1 Button1 Label7 Button2 Label9

9 物件 屬性 設定 說明 TBoxPrice1 Text “” 珍珠奶茶的價格 TBoxPrice2 芋圓奶茶的價格 TBoxPrice3 芋頭鮮奶的價格 TBoxQty1 珍珠奶茶的數量 TBoxQty2 芋圓奶茶的數量 TBoxQty3 芋頭鮮奶的數量 RadioButton1 憑學生證* 0.95 RadioButton2 打卡* 0.8 RadioButton3 >2000nt *0.75 ListBox1 由程式控制

10 1.Public Class Form1 2. Dim total, accTotal As Integer 3. Dim total1 As Integer 4.Dim total2 As Integer 5. Dim total3 As Integer 6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 7. Label7.Text = "$" & total & "元" 8. Label9.Text = "累計：$" & accTotal & "元" 9. Label7.Font = New Font("新細明體", 24) 10.Label7.ForeColor = Color.black 11. total = 0 12. accTotal = 0 13.End Sub

11 14. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TBoxPrice1.TextChanged 15.End Sub 16. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 17. End Sub 18. Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click 19. End Sub 20. Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged 21.End Sub

12 22. Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged 23.End Sub 24Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 25. total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) If total > 2000 Then RadioButton3.Checked = True If RadioButton1.Checked = True Then total = total * 0.95 If RadioButton2.Checked = True Then total = total * 0.8 If RadioButton3.Checked = True Then total = total * 0.75 Label7.Text = "$" & total & "元" accTotal = accTotal + total Label9.Text = "累計：$" & accTotal & "元" ListBox1.Items.Add(total & “-->” & “波霸奶茶” & TBoxPrice1.Text & “*” & TBoxQty1.Text & “芋圓 奶茶” & TBoxPrice2.Text & “*” & TBoxQty2.Text & “芋頭鮮奶” & TBoxPrice3.Text & “*” & “加大") 34.End Sub

13 35.Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.SelectedIndexChanged accTotal = accTotal - (Val(ListBox1.SelectedItem)) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) Label9.Text = "累計：$" & accTotal & "元“ 39.End Sub 40. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TBoxQty1.Text = 0 TBoxQty2.Text = 0 TBoxQty3.Text = 0 44. total = 0 Label7.Text = "$" & total & "元" Label9.Text = 0 47. End Sub

14 48. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged 49.End Sub 50. Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click 51. End Sub 52. Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click 53. End Sub 54. Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click 55. End Sub 56.End Class

15 程式說明 第2行定義總金額及累計金額的參數 第25行求出單筆交易的總金額。
第26行讓總金額>2000時RadioButton3 (即>2000元＊0.75鈕) 自動選取 第27-29行處理折扣動作 第31行累加至累計金額 第33行把單筆交易記錄至ListBox1中 第40-47行為「清除」按鈕的歸零動作

16 心得: 這次用Visual Basic製作期末報告,雖然剛開始完全不知道該 從何下手,但是參考完老師提供的範本後,慢慢地能了解一 些程式碼它的功能是什麼,也大概知道該如何製作程式!從 本來都看不太懂的程式碼到大概了解程式碼的功能後,心 裡有種踏實感,製作過程中遇到很多問題,但這些問題解決 後,卻很有成就感!