計算機程式及實習 期末報告 PPT 製作 題目 : 簡單雞排店結帳系統 南台科技大學 車輛一甲 學號 : 4A415068 姓名 : 廖偉臣 老師 : 謝慶存.

Presentation on theme: "計算機程式及實習 期末報告 PPT 製作 題目 : 簡單雞排店結帳系統 南台科技大學 車輛一甲 學號 : 4A415068 姓名 : 廖偉臣 老師 : 謝慶存."— Presentation transcript:

1 計算機程式及實習 期末報告 PPT 製作 題目 : 簡單雞排店結帳系統 南台科技大學 車輛一甲 學號 : 4A415068 姓名 : 廖偉臣 老師 : 謝慶存

2 結帳系統說明  學習重點  ListBox 、 RadioButton 、 Textbox 、 Label 、 GroupBox 的使用方法

3 雞排店結帳系統  使用 Visual Basic 2013 來 寫出一個雞排店的結帳系 統。  把主餐和要加點的東西選 完之後，按下結帳，即可 計算出多少錢。  還有優惠方案 持有學生證打 95 折 60 歲以上打 9 折 會員打 85 折

4 程式使用程序 (1)  點選自己要點的東西

5 程式使用程序 (2)  有符合優惠方案的話選擇 你所要優惠的方式後按下 計算 ， 就可以知道要付多 少錢 。 持有學生證打 95 折 60 歲以上打 9 折 會員打 85 折

6 版面配置 (1) 種類 Label 2 ComboBox 主餐 Label 1 菜單 ListBox

7 版面配置 (2) 加點 Label3 CheckedListBox

8 版面配置 (3) 優惠 GroupBox RadioButton 1 RadioButton 2 RadioButton 3 結帳 Button 合計 Label

9 程式碼設定 (1) Public Class Form1 Dim main(,) As Object = {{“ 雞排 ”, 50}, {“ 無骨雞排 ”, 80}, {“ 特大雞排 ", 100}} Dim add(,) As Object = {{“ 米血 ”, 15}, {“ 甜不辣 ”, 15}, {“ 百頁豆腐 ”, 35}, {“ 四季豆 ", 30}}

10 程式碼設定 (2) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboKind.Items.Add(" 單點 ") cboKind.Items.Add(“ 主餐加 20 元 ( 甜不辣和米血 )") 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

11 程式碼設定 (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) Next End If End Sub

12 程式碼設定 (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 += 50 ' 若選主餐 加 50 元 For i = 0 To clbAdd.Items.Count - 1 ' 逐一檢 查 加點項目 ' 若項目有勾選就加該項目的價格

13 程式碼設定 (5) If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1) If RadioButton1.Checked = True Then sum = sum * 0.9 If RadioButton2.Checked = True Then sum = sum * 0.85 If RadioButton3.Checked = True Then sum = sum * 0.8 Next lblSum.Text = " 合計 = " & sum & " 元 " End Sub End Class

14 心得  VB 程式感覺很難 ， 但經由老師幽默的上課方式 ， 聽完之後 ， 發現他騎士不難 ， 只是需要多花點心思去熟記每個指令 ， 以及每個單字的中文意思 ， 而我們入門的學生只要知道幾 個簡單指令跟單字 ， 其實就可以做一些簡單得小程式 ， 例 如計算機 、點餐系統 …… 等，非常好玩。