南台科技大學 計算機程式及實習 期末報告ppt製作 程式名稱:南台保養廠結帳系統 機械工程系 車輛一乙 4A015076 劉柏廷 指導老師:謝慶存

南台保養廠 學習重點: ListBox、RadioButton、PictureBox、CheckBox、GroupBox程式碼撰寫。

程式內容說明:南台保養廠 設計保養廠結帳系統，填寫數量後點選結帳紐進行結帳，並顯示詳細內容在下方空白框中，按清除鍵清除單筆金額，按下優惠鈕後再計算，則總金額會進行優惠。

附加練習 設計使用原廠耗材加100、50，且每一耗材都加，及獨立設計一個單日營業額顯示與消除單日營業額按鈕，按單筆消費兩下即可消除，消費滿3000即享受九折優待，另外在程式上方設計了一個保養廠招牌。

程式啟動畫面－填入數量 填入合成機油數量後，按下「結帳」，計算出金額顯示在下方列表。

選擇優惠選項 點選「清除」鈕，清除第一次結帳金額，再次填入數量後，點選右邊師生優惠－董事×0.7，再按下「結帳」鈕，計算出打七折後的金額。

消費金額滿三千打九折 「合成機油」數量填入十，消費金額達三千元，點選「結帳」紐後，會自動勾選打九折優惠。

列表結帳明細刪除 若要刪除下方列表結帳明細，點選兩下即可刪除，不影響下方當日總營業額。

RadioButton2RadioButton3 版面配置 屬性設定 價格 TBoxPrice1 TBoxPrice2 TBoxPrice3 數量 TBoxQty11 TBoxQty12 TBoxQty13 原廠 CheckBox1 CheckBox2 CheckBox3 招牌 PictureBox1 保養耗材 Label1 Label2 Label3 優惠 Groupbox1 RadioButton1 RadioButton2RadioButton3 RadioButton4 結帳明細 ListBox1 金額、當日總營業額 Label6 Label7 Button2 Button3 Button1

物件屬性說明 物件 屬性 設定 說明 TBoxPrice1 Text 合成機油價格 TBoxPrice2 Text 機油濾芯價格 物件 屬性 設定 說明 TBoxPrice1 Text 合成機油價格 TBoxPrice2 Text 機油濾芯價格 TBoxPrice3 Text 空氣濾芯價格 TBoxQty1 Text 合成機油數量 TBoxQty2 Text 機油濾芯數量 TBoxQty2 Text 空氣濾芯數量 RadioButton1 Text ×0.9 校友優惠 RadioButton2 Text ×0.8 師生優惠 RadioButton3 Text ×0.7 董事優惠 RadioButton4 Text ≥3000×0.9 滿3千打九折優惠

物件屬性說明 物件 屬性 設定 說明 Button1 Text 結帳 Button2 Text 清除 物件 屬性 設定 說明 Button1 Text 結帳 Button2 Text 清除 Button3 Text 清除當日總營業額 PictureBox Text 保養廠招牌

程式碼撰寫及敘述 Public Class Form1 Dim total, accTotal As Integer 宣告整數變數total, accTotal Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label6.Text = “$” & total & “元“ 設定文字標籤內容 Label7.Text = “當日總營業額：$” & accTotal & “元“ 設定文字標籤內容 Label6.Font = New Font(“新細明體”, 24) 設定文字標籤內容字型大小 Label6.ForeColor = Color.Red 設定文字標籤顏色 total = 0 預設total=0

9 accTotal = 0 預設 acctotal=0 10 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) total等於所有價錢與數量的乘積相加 If total >= 3000 Then RadioButton4.Checked = True 當total大於等於3千時，自動勾選RadioButton4 If RadioButton1.Checked = True Then total = total * 0.9 If RadioButton2.Checked = True Then total = total * 0.8 If RadioButton3.Checked = True Then total = total * 0.7 If RadioButton4.Checked = True Then total = total * 0.9 當RadioButton1、2、3、4勾選時，total * 0.9、0.8、0.7、0.9

Label6.Text = “$” & total & “元“ 設定文字標籤內容 accTotal = accTotal + total accTotal等於累積金額加總額 Label7.Text = "當日總營業額：$" & accTotal & "元“ 設定文字標籤內容 ListBox1.Items.Add(total & "-->" & "合成機油" & TBoxPrice1.Text & "*" & TBoxQty1.Text & "機油濾芯" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "空氣濾芯" & TBoxPrice3.Text & "*" & TBoxQty3.Text) 將單筆交易記錄至ListBox1中 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TBoxQty1.Text = 0 TBoxQty2.Text = 0 TBoxQty3.Text = 0

total = 0 RadioButton1.Checked = False RadioButton2.Checked = False RadioButton3.Checked = False RadioButton4.Checked = False CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False Label6.Text = "$" & total & "元" 點選Button2後，數量、金額、優惠全部清除及取消 End Sub Private Sub ListBox1_doubleclick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.DoubleClick

accTotal = accTotal - (Val(ListBox1.SelectedItem)) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 在ListBox1中，點兩下選擇刪除單筆交易記錄 End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then TBoxPrice1.Text = Str(Val(TBoxPrice1.Text) + 100) If CheckBox1.Checked = False Then TBoxPrice1.Text = Str(Val(TBoxPrice1.Text) - 100) Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked = True Then TBoxPrice2.Text = Str(Val(TBoxPrice2.Text) + 50) If CheckBox2.Checked = False Then TBoxPrice2.Text = Str(Val(TBoxPrice2.Text) - 50) End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked = True Then TBoxPrice3.Text = Str(Val(TBoxPrice3.Text) + 100) If CheckBox3.Checked = False Then TBoxPrice3.Text = Str(Val(TBoxPrice3.Text) - 100) End Sub 勾選CheckBox，則加100或50，取消勾選則減100或50。

Private Sub PictureBox1_Click(ByVal sender As System Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click accTotal = 0 Label7.Text = "當日總營業額："$" & accTotal & "元" End Class 按下Button3後，則清除當日總營業額

心得感想 以前從來沒碰過 Visual Basic，也沒聽過，對於一開始老師課堂上講解的程式碼，完全沒有一個概念，直到後來老師常常在課堂上講解程式碼，才漸漸對於程式碼有一個了解，但還是沒有很清楚，尤其是在於自己設計程式的時候，因為沒有頭緒所以導致寫不出程式碼，但是藉由老師上課的PPT及報告範例，讓我進步了不少，在做報告的時候，又重新把範例、上課的PPT重新打開來看過一遍，還有跟同學討論了程式碼撰寫的方法，在寫程式的過程中才有比較順利，雖然做得還不是很好，但往後如果常常練習，久了我相信一定能做得更好更完美， 以前對程式的寫法就覺得很複雜，但是使用Visual Basic後我改觀了，原來寫程式就這樣而已，沒有想像中的困難，雖然我還是無法自己設計出一個程式，重點在於程式碼的撰寫，如果邏輯懂了，我想寫程式就會變得容易許多，最後謝謝老師上課耐心的講解！

參考文獻 1.老師上傳報告範例1、2 2.老師上課PPT