題目:這個我一定告飲料店 計算機程式及實習 期末報告ppt製作 南台科技大學 機械工程系 車輛一甲 學號:4A415061 姓名:林子健 老師:謝慶存
飲料店結帳 學習重點 ListBox、RadioButton的使用方法。
飲料店結帳 設計飲料店結帳系統， 填寫按下結算鈕之 後，即會顯示結帳總 金額。按下「結算」 鈕，得到那一筆總金 額資料。
附加練習 選擇加點珍珠、檸檬、牛奶、椰果等，需要 再多加5元。
物件 屬性 設定 說明 TBoxPrice1 Text “” 珍珠奶茶價格 TBoxPrice2 回甘清茶價格 TBoxPrice3 冰淇淋咖啡價格
程式碼設計 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
17 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 & "元" 22 ListBox1.Items.Add(total & "-->" & "珍珠奶茶" & TBoxPrice1.Text & "*" & TBoxQty1.Text & "回甘清茶" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "冰淇淋咖啡" & TBoxPrice3.Text & "*" & TBoxQty3.Text) 23 End Sub
25 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 26 TBoxQty1.Text = 0 27 TBoxQty2.Text = 0 28 TBoxQty3.Text = 0 29 total = 0 30 Label6.Text = "$" & total & "元" 31 End Sub
33 Private Sub ListBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp 34 accTotal = accTotal - (Val(ListBox1.SelectedItem)) 35 ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 36 Label7.Text = "累計：$" & accTotal & "元" 37 End Sub 38 End Class
心得 第一次接觸Visual Basic這個程式，第一次自己 動手寫程式，雖然只是簡單的東西，但看到這個成 果的時候還是感覺非常的高興、有成就感，覺得這 個寫程式還蠻好玩的，不過就是寫程式上面可能會 遇到一點困難就是了，不過謝慶存老師人很好，很 有耐心的教我們，我感覺學習過程非常的高興^_^ 。
參考文獻 1. Visual Basic 2013基礎必修課 蔡文龍編 碁峰 2013