計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 南台科技大學 機械工程系 題目:南台電影城結帳系統 班級 : 車輛一甲 學號 : 4A415096 授教學生: 阮偉倫 授課老師: 謝慶存.

Presentation on theme: "計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 南台科技大學 機械工程系 題目:南台電影城結帳系統 班級 : 車輛一甲 學號 : 4A415096 授教學生: 阮偉倫 授課老師: 謝慶存."— Presentation transcript:

1 計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 南台科技大學 機械工程系
題目:南台電影城結帳系統 班級 : 車輛一甲 學號 : 4A415096 授教學生: 阮偉倫 授課老師: 謝慶存

2 南台新光電影城結帳 學習重點 ListBox、RadioButton…等的使用方法。

3 題目說明 : 南台新光電影城結帳 試設計快餐店結帳系統，填寫數量再按下計算鈕之後，即會顯示結帳總金額。按「清除」按鈕，再輸入數量，並點選「刷卡*0.95」，再按下「計算」鈕，得到打95折後的那一筆總金額資料。

4 附加練習 為程式加入加爆米花、可樂加70元功能，特別注意到是每一份加爆米花、可樂都必須加70元，而非不管訂多少份，加爆米花、可樂都只加70元。另外，若總金額超過1000元之單一筆訂單則免收加爆米花、可樂費用功能，請一併加入，並請於畫面提示出此訊息。

5 程式開始畫面 - 改成人票數量 改成人票數量為1按「結帳」按鈕後，得到第1筆結帳資料。

6 再輸入優惠票的數量為2 按「清除」按鈕，清除剛剛的成人票一份後，再輸入優惠票的數量為2，並點選「老客戶*0.8」，再按下「計算」鈕，得到打9折後的那一筆209元資料。

7 超過2000元*0.75 在成人票旁的數量欄中輸入20並按下「計算」鈕。
發現因為超過2000元，所以畫面中的>2000*0.75選項，已經在程式運作下自動選取。

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

9 版面配置 屬性設定 電影票Label1 Label2 Label3 價格 TBoxPrice1 TBoxPrice2 TBoxPrice3
數量 TBoxQty1 TBoxQty2 TBoxQty3 優待GroupBox1 RadioButton1 RadioButton2 RadioButton3 列出票種 ListBox1 金額 Label6 Label7 Button2 Button1 加爆米花、可樂 CheckBox1 CheckBox2 CheckBox3

10 物件 屬性 設定 說明 TBoxPrice1 Text “” 成人票價格 TBoxPrice2 優惠票價格 TBoxPrice3 老人票價格 TBoxQty1 成人票數量 TBoxQty2 優惠票數量 TBoxQty3 老人票數量 RadioButton1 刷卡 *0.95

11 RadioButton2 Text 會員卡*0.8 RadioButton3 >2000元*0.75 Button1 清除 Button2 計算 ListBox1 由程式控制

12 程式碼設計 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

13 12 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 13 total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) 14 15 If total > 2000 Then RadioButton3.Checked = True 16 If RadioButton1.Checked = True Then total = total * 0.95

14 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

15 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

16 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

17 程式說明 第2行定義總金額及累計金額的參數。 第13行求出單筆交易的總金額。
第15行讓總金額>2000時RadioButton3 (即>2000元＊0.75鈕)自動選取。 第16-18行處理折扣動作。 第20行累加至累計金額。 第22行把單筆交易記錄至ListBox1中。

18 第33-38行處理利用滑鼠在ListBox1上點選時，放開滑鼠左鍵的刪除記錄動作。
第25-31行為「清除」按鈕的歸零動作。 第33-38行處理利用滑鼠在ListBox1上點選時，放開滑鼠左鍵的刪除記錄動作。 第34行扣除該筆記錄在累加值中的數值。 第35行實際於ListBox1中刪除，刪除該筆記錄。 第36行把更正後的累加值，再度顯示出來。

19 附加練習 為程式加入加飯加5元功能，特別注意到是每一份加飯都必須加5元，而非不管訂多少份，加飯都只加5元。另外，若總金額超過500元之單一筆訂單則免收加飯費用功能，請一併加入，並請於畫面提示出此訊息。 程式第14行加入if statement 即可 If total <500 Then If CheckBox1.Checked Then total1 = (Val(TBoxPrice1.Text) + 5) * Val(TBoxQty1.Text) If CheckBox2.Checked Then total2 = (Val(TBoxPrice2.Text) + 5) * Val(TBoxQty2.Text) If CheckBox3.Checked Then total3 = (Val(TBoxPrice3.Text) + 5) * Val(TBoxQty3.Text) total = total1 + total2 + total3 End If

20 心得 Visual Basic 還滿簡單的，因為它的介面較人性化，在邏輯方面就比較有概念了，Visual Basic 的介面有許多中文解釋，而這次老師叫我們設計程式，雖然有點難度，但是還是要實際去操作才明白其中的奧妙，謝謝老師這學期教我們這多VB程式的應用，能設計出更多更不同的東西，雖然這是簡單的基礎VB運用，但是在製作這程式過程當中遇到了不少的問題，不過還是努力的想要去解決這些問題，然後解決之後就變得很有成就感，VB真的是一個很酷的程式可以寫出許多有趣的程式，希望日後還能學習到更多VB的實用技能，這樣以後就能寫出一個很屌的遊戲了 !!! 最後謝謝老師你上課認真、耐心、幽默的專業解說 !! ``最帥帥的老師~