老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058 計算機概輪及實習(一) 期末報告 天空之城飲料店結帳系統 老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058
飲料店結帳系統說明 使用 Button、Label、Textbox、RadioBox、GroupBox … 等控制程式來完成一個簡易式的結帳系統 學習控制工具的程式操作及寫法
飲料店結帳系統 使用Visual Basic 2013來寫出一個飲料店的結帳系統。 把要的商品和搭配方案，按下結帳，便可以計算出總經額金額。 還有優待方案 飲料加沙拉只要加30元
程式使用程序(1) 輸入所需要的商品及方案
程式使用程序(2) 選擇飲料的優惠方式後 按下結帳， 就可以獲得金額 飲料加沙拉只要加30元
版面配置 Label2 Label1 Label3 ComboBox ListBox CheckedListBox button
程式碼設定(1) Public Class Form1 Dim main(,) As Object = {{"紅茶", 30}, {"波霸奶茶", 40}, {"多多綠茶", 50}} Dim add(,) As Object = {{“沙拉”, 50}, {“甜點”, 30}, {“餅乾”, 40}, {“禮券", 30}}
程式碼設定(2) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboKind.Items.Add("單點") cboKind.Items.Add("飲料加沙拉加30") cboKind.SelectedIndex = 1 '預設選套餐 For i = 0 To UBound(main, 1) '用For迴圈加入主餐項目 lstMain.Items.Add(main(i, 0) & main(i, 1) & "元") Next lstMain.SelectedIndex = 2 '預設選飲料加沙拉 lblSum.Text = "合計 = " End Sub
程式碼設定(3) Private Sub cboKind_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKind.SelectedIndexChanged clbAdd.Items.Clear() '先清除項目 If cboKind.SelectedIndex = 0 Then '若選單點就加入所有項目 For i = 0 To 3 clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True) '預設項目選取 Next Else '否則(選套餐)就加入前兩個項目 For i = 0 To 1 clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True) End If End Sub
程式碼設定(4) Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Dim sum As Integer sum = main(lstMain.SelectedIndex, 1) '設sum為主餐的價格 If cboKind.SelectedIndex = 1 Then sum += 30 '若選套餐加20元 For i = 0 To clbAdd.Items.Count - 1 '逐一檢查加點項目 '若項目有勾選就加該項目的價格 If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1) Next lblSum.Text = "合計 = " & sum & " 元" End Sub End Class
心得 VB這程式看似簡單，卻蘊藏了豐富的程式碼知識。在編輯程式的時候可能因為一個小括號沒友括，程式可能跑掉或者是無法執行，這些都是編輯程式時所需要注意的。 謝謝老師上課的教導，讓我們比較容易懂得VB程式碼所代表的意思，讓我們更懂得如何去應用指令在哪個步驟，或者編輯錯誤時，不用盲目的 一直早錯誤， 更容易去發現編輯時所忽略的錯誤。 謝謝老師這學期辛苦的教導！辛苦嘍！
參考文獻 Visual Basic 2013 基礎必修 碁峰資訊 林義証 蔡文龍 張傑瑞 何叡著