計算機程式及實習 期末報告

計算機程式及實習期末報告 題目 : 壽司之神點餐系統 班級 : 車輛四乙 姓名 : 謝定宏 學號 :4A215116 老師 : 謝慶存

使用 Visual Basic 來寫出一個壽司店的結帳系統 我們把所有食物名稱和打上去然後進行設計界面, 按下計算, 便可以計算出所有食物的金額 還有優待折價方案壽星打 85 折 Vip 會員 75 折設計出一個簡單的點餐系統 程式界面說明

程式界面說明 (1) 更改鮭魚生魚片數量然後再按結帳 這時就出現價錢顯示 240

程式界面說明 (2) 再來如果你是當天的壽星本店會享有 85 折的優惠折扣 列子 : 一碟鮭魚生魚片一份價位是 240 現在打 85 折價錢是 204 元

程式界面說明 (3) 如果你是壽司之神店裡的 VIP 會員! 本店會享有 75 折的優惠折扣 列子 : 一碟鮭魚生魚片一份價位是 240 現在打 85 折價錢是 180 元

程式界面說明 (4) 列出明細 當你按下結帳的時候此時這裡會顯示個別的數量 還有總價金額部分

程式界面說明 (5) 清除按鈕 當你按下清除的時候此時所有的數量和列出明細都會歸零已經空白

版面說明 黑色屬於 label 紅色框屬於 textbox 紫色星星是 groupbox 橘色框是 checkbox 黃色框是 listbox 藍色部分是 button

程式碼 Public Class 壽司之神 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim total, acctotal As Integer Label32.Text = "$" & total & " 元 " Label33.Text = " 營業額總計 :$" & acctotal & " 元 " Label32.Font = New Font(" 新細明體 ", 20) Label33.ForeColor = Color.Red total = 0 acctotal = 0 End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim total, acctotal As Integer total = Val(T1.Text) * Val(Tb1.Text) + Val(T2.Text) * Val(Tb2.Text) + Val(T3.Text) * Val(Tb3.Text) + Val(T4.Text) * Val(Tb4.Text) + Val(T5.Text) * Val(Tb5.Text) + Val(T6.Text) * Val(Tb6.Text) + Val(T7.Text) * Val(Tb7.Text) + Val(T8.Text) * Val(Tb8.Text) + Val(T9.Text) * Val(Tb9.Text) + Val(T10.Text) * Val(Tb10.Text) + Val(T11.Text) * Val(Tb11.Text) + Val(T12.Text) * Val(Tb12.Text) + Val(T13.Text) * Val(Tb13.Text) + Val(T14.Text) * Val(Tb14.Text) + Val(T15.Text) * Val(Tb15.Text) + Val(T16.Text) * Val(Tb16.Text) + Val(T17.Text) * Val(Tb17.Text) acctotal = acctotal + total If CheckBox1.Checked = True Then total = total * 0.75 If CheckBox1.Checked = True Then acctotal = acctotal * 0.75 If CheckBox2.Checked = True Then total = total * 0.85 If CheckBox2.Checked = True Then acctotal = acctotal * 0.85 Label32.Text = "$" & total & " 元 " Label33.Text = " 營業額總計 :$" & acctotal & " 元 " ListBox1.Items.Add(" 總價 " & total & "-->" & " 鮭魚生魚片 " & T1.Text & "*" & Tb1.Text) ListBox1.Items.Add(" 鮪魚生魚片 " & T2.Text & "*" & Tb2.Text) ListBox1.Items.Add(" 盛合生魚片 " & T3.Text & "*" & Tb3.Text) ListBox1.Items.Add(" 極上生魚片 " & T4.Text & "*" & Tb4.Text) ListBox1.Items.Add(" 鮑魚磯煮沙拉 " & T5.Text & "*" & Tb5.Text) ListBox1.Items.Add(" 野菜時疏沙拉 " & T6.Text & "*" & Tb6.Text) ListBox1.Items.Add(" 牛肉溫沙拉 " & T7.Text & "*" & Tb7.Text) ListBox1.Items.Add(" 鱈魚肝醋物 " & T8.Text & "*" & Tb8.Text) ListBox1.Items.Add(" 鮭魚 " & T9.Text & "*" & Tb9.Text) ListBox1.Items.Add(" 生干貝 " & T10.Text & "*" & Tb10.Text)

ListBox1.Items.Add(" 明蝦握壽司 " & T11.Text & "*" & Tb11.Text) ListBox1.Items.Add(" 天使蝦蟹膏 " & T12.Text & "*" & Tb12.Text) ListBox1.Items.Add(" 明太子花枝 " & T13.Text & "*" & Tb13.Text) ListBox1.Items.Add(" 花壽司 " & T14.Text & "*" & Tb14.Text) ListBox1.Items.Add(" 海苔壽司 " & T15.Text & "*" & Tb15.Text) ListBox1.Items.Add(" 安格斯牛肉捲 " & T16.Text & "*" & Tb16.Text) ListBox1.Items.Add(" 天使蝦松葉蟹肉捲 " & T17.Text & "*" & Tb17.Text) If CheckBox1.Checked = True Then ListBox1.Items.Add(" 總價 " & total & "-->" & " 鮭魚生魚片 " & T1.Text & "*" & Tb1.Text) ListBox1.Items.Add(" 鮪魚生魚片 " & T2.Text & "*" & Tb2.Text) ListBox1.Items.Add(" 盛合生魚片 " & T3.Text & "*" & Tb3.Text) ListBox1.Items.Add(" 極上生魚片 " & T4.Text & "*" & Tb4.Text) ListBox1.Items.Add(" 鮑魚磯煮沙拉 " & T5.Text & "*" & Tb5.Text) ListBox1.Items.Add(" 野菜時疏沙拉 " & T6.Text & "*" & Tb6.Text) ListBox1.Items.Add(" 牛肉溫沙拉 " & T7.Text & "*" & Tb7.Text) ListBox1.Items.Add(" 鱈魚肝醋物 " & T8.Text & "*" & Tb8.Text) ListBox1.Items.Add(" 鮭魚 " & T9.Text & "*" & Tb9.Text) ListBox1.Items.Add(" 生干貝 " & T10.Text & "*" & Tb10.Text) ListBox1.Items.Add(" 明蝦握壽司 " & T11.Text & "*" & Tb11.Text) ListBox1.Items.Add(" 天使蝦蟹膏 " & T12.Text & "*" & Tb12.Text) ListBox1.Items.Add(" 明太子花枝 " & T13.Text & "*" & Tb13.Text) ListBox1.Items.Add(" 花壽司 " & T14.Text & "*" & Tb14.Text) ListBox1.Items.Add(" 海苔壽司 " & T15.Text & "*" & Tb15.Text) ListBox1.Items.Add(" 安格斯牛肉捲 " & T16.Text & "*" & Tb16.Text) ListBox1.Items.Add(" 天使蝦松葉蟹肉捲 " & T17.Text & "*" & Tb17.Text)

If CheckBox2.Checked = True Then ListBox1.Items.Add(" 總價 " & total & "-->" & " 鮭魚生魚片 " & T1.Text & "*" & Tb1.Text) ListBox1.Items.Add(" 鮪魚生魚片 " & T2.Text & "*" & Tb2.Text) ListBox1.Items.Add(" 盛合生魚片 " & T3.Text & "*" & Tb3.Text) ListBox1.Items.Add(" 極上生魚片 " & T4.Text & "*" & Tb4.Text) ListBox1.Items.Add(" 鮑魚磯煮沙拉 " & T5.Text & "*" & Tb5.Text) ListBox1.Items.Add(" 野菜時疏沙拉 " & T6.Text & "*" & Tb6.Text) ListBox1.Items.Add(" 牛肉溫沙拉 " & T7.Text & "*" & Tb7.Text) ListBox1.Items.Add(" 鱈魚肝醋物 " & T8.Text & "*" & Tb8.Text) ListBox1.Items.Add(" 鮭魚 " & T9.Text & "*" & Tb9.Text) ListBox1.Items.Add(" 生干貝 " & T10.Text & "*" & Tb10.Text) ListBox1.Items.Add(" 明蝦握壽司 " & T11.Text & "*" & Tb11.Text) ListBox1.Items.Add(" 天使蝦蟹膏 " & T12.Text & "*" & Tb12.Text) ListBox1.Items.Add(" 明太子花枝 " & T13.Text & "*" & Tb13.Text) ListBox1.Items.Add(" 花壽司 " & T14.Text & "*" & Tb14.Text) ListBox1.Items.Add(" 海苔壽司 " & T15.Text & "*" & Tb15.Text) ListBox1.Items.Add(" 安格斯牛肉捲 " & T16.Text & "*" & Tb16.Text) ListBox1.Items.Add(" 天使蝦松葉蟹肉捲 " & T17.Text & "*" & Tb17.Text) End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim total, acctotal As Integer Tb1.Text = 0 Tb2.Text = 0 Tb3.Text = 0 Tb4.Text = 0 Tb5.Text = 0 Tb6.Text = 0 Tb7.Text = 0 Tb8.Text = 0 Tb9.Text = 0 Tb10.Text = 0 Tb11.Text = 0 Tb12.Text = 0 Tb13.Text = 0 Tb14.Text = 0 Tb15.Text = 0 Tb16.Text = 0 Tb17.Text = 0 CheckBox1.Checked = False CheckBox2.Checked = False ListBox1.Items.Clear() total = 0

Label32.Text = " 累計 :$" & "0" & " 元 " acctotal = 0 Label33.Text = "$" & "0" & " 元 " End Sub

心得當我看到老師給我的作業時我覺得好像有點困難比起之 前學得來的更難更多程式要加入 我看了老師給了範例後, 慢慢研究才知道原來是把整個學期老師教我們的都一次過 都用上 覺得程式沒那麼難寫 花時間部分是在於設計 感謝老師用最簡單的方式教會我 讓我知道原來程式碼沒 那麼的可怕 肯學習慢慢摸索就會變得容易上手! 謝謝老師 ~