Transcript 下載/瀏覽

計算機程式及實習
期末報告
南台碳烤王
點餐系統
班級:車輛一甲
姓名:游智鈞
學號:4A415090
老師:謝慶存
程式說明

設計結帳系統，選取需要餐點，在按下結帳鈕之
後，即會出現結帳總經額。
程式畫面-單點

選取單點項目，按下結帳鈕，計算所消費金額。
程式畫面-加點

選好單點項目，在去勾取加點項目，決定後按下
結帳鈕，計算花費金額。
程式畫面-套餐

種類選擇套餐，程式會自動轉換加點類商品，將
四季豆和雞肉捲刪除，剩下飲料給予選擇，最後
在按結帳鈕，計算總金額。
程式碼



Public Class Form1
Dim main(,) As Object = {{"碳烤雞排",
60}, {"甘梅薯條", 30}, {"百頁起司燒",
40}}
Dim add(,) As Object = {{"紅茶", 30},
{"綠茶", 30}, {"碳烤四季豆", 30}, {"蔥爆
雞肉捲", 35}}










Private Sub Form1_Load(sender As Object, e
As EventArgs) Handles MyBase.Load
cboKind.Items.Add("單點")
cboKind.Items.Add("套餐+50(四季豆+雞肉捲)")
cboKind.SelectedIndex = 1 ‘預設選套餐
For i = 0 To UBound(main, 1) ‘用For迴圈加入主餐
項目
lstMain.Items.Add(main(i, 0) & main(i, 1) & "
元")
Next
lstMain.SelectedIndex = 2 ‘預設選碳烤雞排
lblSum.Text = "合計 = "
End Sub











Private Sub cboKind_SelectedIndexChanged(sender
As Object, e As EventArgs) Handles
cboKind.SelectedIndexChanged
clbAdd.Items.Clear() ‘先清除項目
If cboKind.SelectedIndex = 0 Then ‘若選單點就加入所有
項目
For i = 0 To 3
clbAdd.Items.Add(add(i, 0) & add(i, 1) & “元”, True)
‘預設項目選取
Next
Else ‘否則(選套餐)就加入前兩個項目
For i = 0 To 1
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True)
Next
End If
End Sub










Private Sub btnOK_Click(sender As Object, e
As EventArgs) Handles btnOK.Click
Dim sum As Integer
sum = main(lstMain.SelectedIndex, 1) ‘設
sum為主餐的價格
If cboKind.SelectedIndex = 1 Then sum +=
50 ‘若選套餐加50元
For i = 0 To clbAdd.Items.Count - 1 ‘逐一檢查
加點項目
‘若項目有勾選就加該項目的價格
If clbAdd.GetItemChecked(i) = True Then
sum += add(i, 1)
Next
lblSum.Text = "合計 = " & sum & " 元"
End Sub



Private Sub
lstMain_SelectedIndexChanged(sende
r As Object, e As EventArgs) Handles
lstMain.SelectedIndexChanged
End Sub
End Class
心得感想
製作程式之前，我一直都覺得會寫程式的人很
厲害。
但是在看過老師給的範例，加上上課認真的
聽講，製作程式其實也不是真的很難，真的是
名副其實的visual basic。
謝謝老師這上學期的教導，我已經把
visual basic學習起來了，希望在之後出社
會我會用這套程式找到好的工作。