計算機程式及實習 期末報告 PPT 製作 題目 : 搜鴨百貨公司， 36 周年慶 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 李振豪 學號 :4A 老師 : 謝慶存
大綱 製作動機 題目說明 : 禮卷換算方式 版面配置屬性設定 程式碼設計 心得 參考文獻
製作動機 百貨公司幾乎都會有周年慶，加上先前 發放消費卷，所以這次報告就溶入這二 大元素。而且自己很喜歡唐老鴨，所以 把網路有的「搜狗」，改成「搜鴨」就 完成這份我期末報告了 !
題目說明 : 禮卷換算方式 有 2 種消費方式： 第一種 : 「刷卡消費」全部都用刷卡消費，禮卷都是為 0 。 第二總 : 「禮卷」免費送 3600 元，折抵完其餘金額會顯示 在刷卡金額。
第一種 : 「刷卡消費」
第一種 : 「禮卷」
版面配置屬性設定 Label2 Label6 Label7 Label3 Label4 Label5 lbl500 lbl200 lblCash RadioButton1 RadioButton2 Button1.2 txtSum
程式碼設計 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load rdbTicket.Checked = True lbl500.Text = "" lbl200.Text = "" lblCash.Text = "" End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click n500:500 元禮卷, n200:200 元禮卷, change: 刷卡金額 Dim n500, n200, change As Integer If (rdbTicket.Checked = True) Then 按 [ 禮卷 ] 選項按鈕 If (Val(txtSum.Text) >= 3600) Then 消費總金額未超過 3600 元 change = Val(txtSum.Text) 刷卡金額 n500 = 元﹐張數 6 張 n200 = 元﹐張數 3 張
Else 消費總金額 未超過 3600 元 n500 = Str(Int(Val(txtSum.Text) / 500)) 可抵換多少張 500 元禮卷 change = Val(txtSum.Text) - n500 * 500 抵換 500 元禮卷後剩多少 If n500 > 6 Then 檢查抵換 500 元禮卷限 6 張 n500 = 元禮卷限 6 張 change += 500 多一張 500 元禮卷﹐加回未刷卡金額 Else If n200 = Str(Int(Val(txtSum.Text) / 200)) 可抵換多少張 200 元禮卷 change =change - n200 * 200 抵換 200 元禮卷後剩多少 If n200 > 3 Then 檢查抵換 200 元禮卷限 3 張 n200 = 元禮卷限 3 張
change += (n ) * 200 多出張數的金額加回未刷卡金額 End If lbl500.Text = Str(n500) & " 張 " 顯示總消費金額 <=3600 抵換結果 lbl200.Text = Str(n200) & " 張 " lblCash.Text = Str(change) & " 元﹐ " Else 按 [ 刷卡付費 ] 選項按鈕 lbl500.Text = " 0 張胺 " 顯示總消費金額 > 3600 抵換結果 lbl200.Text = " 0 張 " lblCash.Text = txtSum.Text & " 元﹐ " End If End Sub
心得 這是我第一次接觸 VB ，有些程式的撰寫起 來簡單，難就難在當偵錯時發現錯誤，就 開始不知道哪邊出錯，開始亂用就會一直 無限輪迴錯下去。 VB 對於日後當工程師是 有些幫助的，雖然我都只是學做些簡單的 程式，這些程式都是基礎，我只要認真把 基礎打得穩，未來有機會接觸到這塊，才 能展現自己才能。 VB 也許對剛開始學的我 有些困難，但接觸了半學期之後我能慢慢 能夠接受它並使用它，希望下學期中或未 來，還能夠學到更多不只是基礎的程式。
參考文獻 1.Visual Basic 2010 基礎必修課 碁峰 林義証. 蔡文龍、張傑瑞. 何叡. 吳明哲著 2.Visual Basic 2010 基礎必修課 CH4 教 學範例題目 3.yahoo 圖片