題目:南台快餐店結帳系統 班級:車輛四乙 姓名:趙昱展 學號:4A115100 老師:謝慶存 計算機程式及實習 期末報告 題目:南台快餐店結帳系統 班級:車輛四乙 姓名:趙昱展 學號:4A115100 老師:謝慶存

程式說明 快餐店結帳系統 把各種飯的數量打上去後，按下計算，便可以計算出所有飯的金額。 按下清除件即可重新輸入。 還有優待方案: 學生證打九折 學校教職人員打八五折 買十份以上打八折

程式使用程序１ 輸入所需要的飯數量

程式使用程序２ 選擇優惠方式 按下計算 就可以獲得金額

程式使用程序３ 按下清除鍵 飯的數量清除為零

版面配置 TboxQty1 TboxQty4 TboxQty7 TboxQty2 TboxQty5 TboxQty8 GroupBox1 RadioButton1 RadioButton2 RadioButton3 Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Button1 Button2 TboxPrice1 TboxPrice2 TboxPrice3 TboxPrice4 TboxPrice5 TboxPrice6 TboxPrice7 TboxPrice8 Label9 label10 Listbox1

程式碼設定1 Public Class Form1 Dim total, accTOtal As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label9.Text = "$" & total & "元" Label10.Text = "累計：$" & accTOtal & "元" total = 0 accTOtal = 0 End Sub

程式碼設定2 Private Sub 計算_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 計算.Click total = Val(TBoxprice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) + Val(TBoxPrice4.Text) * Val(TBoxQty4.Text) + Val(TBoxPrice5.Text) * Val(TBoxQty5.Text) + Val(TBoxPrice6.Text) * Val(TBoxQty6.Text) + Val(TBoxPrice7.Text) * Val(TBoxQty7.Text) + Val(TBoxPrice8.Text) * Val(TBoxQty8.Text) If Val(TBoxQty1.Text) + Val(TBoxQty2.Text) + Val(TBoxQty3.Text) + Val(TBoxQty4.Text) + Val(TBoxQty5.Text) + Val(TBoxQty6.Text) + Val(TBoxQty7.Text) + Val(TBoxQty8.Text) >= 10 Then RadioButton3.Checked = True If RadioButton1.Checked = True Then total = total * 0.9 If RadioButton2.Checked = True Then total = total * 0.85 If RadioButton3.Checked = True Then total = total * 0.8 Label9.Text = "$" & total & "元" accTOtal = accTOtal + total Label10.Text = "累計：$" & accTOtal & "元" ListBox1.Items.Add(("總價" & total & "-->" & "牛排(小)" & TBoxprice1.Text & "*" & TBoxQty1.Text & "牛排(大)" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "豬排(小)" & TBoxPrice3.Text & "*" & TBoxQty3.Text & "豬排(大)" & TBoxPrice4.Text & "*" & TBoxQty4.Text & "雞排(小)" & TBoxPrice5.Text & "*" & TBoxQty5.Text & "雞排(大)" & TBoxPrice6.Text & "*" & TBoxQty6.Text & "魚排(小)" & TBoxPrice7.Text & "*" & TBoxQty7.Text & "魚排(大)" & TBoxPrice8.Text & "*" & TBoxQty8.Text)) End Sub

程式碼設定3 Private Sub 清除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 清 除.Click TBoxQty1.Text = 0 TBoxQty2.Text = 0 TBoxQty3.Text = 0 TBoxQty4.Text = 0 TBoxQty5.Text = 0 TBoxQty6.Text = 0 TBoxQty7.Text = 0 TBoxQty8.Text = 0 total = 0 Label9.Text = "$" & total & "元" End Sub

程式碼設定4 accTOtal = accTOtal - (Val(ListBox1.SelectedItem)) Private Sub ListBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp accTOtal = accTOtal - (Val(ListBox1.SelectedItem)) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) Label10.Text = "累計：$" & accTOtal & "元" End Sub End Class

心得 經過這次的課程又再讓我重新了解了VISUAL BASIC VB 的操作和應用，也讓我了解如何將程 式語言和實際結合，也讓我未來如果遇到程式撰寫不再會緊張或不知所措了，也謝謝老師細心 的講解合一次次的作業和報告讓我們在上課之餘有更多實際季操作的經驗和應用，也在一次次 的作業報告中讓我更熟悉程式碼的編寫和更細節的程式碼組合和編輯，再搭配上老師上課時的 認真.細心.搞笑，讓努力上課之餘也不會把程式語言講得太過枯燥乏味，讓我們更有動力學習， 再次謝謝老師，老師大帥哥!!!!

參考文獻 Visual Basic 2013基礎必修課 蔡文龍編 碁峰 2013