老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058

Presentation on theme: "老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058"— Presentation transcript:

1 老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058
計算機概輪及實習(一) 期末報告 天空之城飲料店結帳系統 老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058

2 飲料店結帳系統說明 使用 Button、Label、Textbox、RadioBox、GroupBox … 等控制程式來完成一個簡易式的結帳系統 學習控制工具的程式操作及寫法

3 飲料店結帳系統 使用Visual Basic 2013來寫出一個飲料店的結帳系統。 把要的商品和搭配方案，按下結帳，便可以計算出總經額金額。
還有優待方案 飲料加沙拉只要加30元

4 程式使用程序(1) 輸入所需要的商品及方案

5 程式使用程序(2) 選擇飲料的優惠方式後 按下結帳， 就可以獲得金額 飲料加沙拉只要加30元

6 版面配置 Label2 Label1 Label3 ComboBox ListBox CheckedListBox button

7 程式碼設定(1) Public Class Form1
Dim main(,) As Object = {{"紅茶", 30}, {"波霸奶茶", 40}, {"多多綠茶", 50}} Dim add(,) As Object = {{“沙拉”, 50}, {“甜點”, 30}, {“餅乾”, 40}, {“禮券", 30}}

8 程式碼設定(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

9 程式碼設定(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

10 程式碼設定(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

11 心得 VB這程式看似簡單，卻蘊藏了豐富的程式碼知識。在編輯程式的時候可能因為一個小括號沒友括，程式可能跑掉或者是無法執行，這些都是編輯程式時所需要注意的。 謝謝老師上課的教導，讓我們比較容易懂得VB程式碼所代表的意思，讓我們更懂得如何去應用指令在哪個步驟，或者編輯錯誤時，不用盲目的 一直早錯誤， 更容易去發現編輯時所忽略的錯誤。 謝謝老師這學期辛苦的教導！辛苦嘍！

12 參考文獻 　Visual Basic 2013 基礎必修 碁峰資訊 　　林義証 蔡文龍 張傑瑞 何叡著