Transcript 下載/瀏覽

計算機程式及實習(一)
期末報告ppt製作
題目:薇薇香咖啡廳結帳系統
南台科技大學
機械工程系
車輛一甲
學號:4A40H009
姓名:王三泰
薇薇香咖啡廳結帳系統
薇薇香咖啡廳結帳系統說明
 使用Visual Basic 2013
來寫出一個咖啡館結帳系
統。
 先把餐點優惠選擇好，
再把想要的飲品及餐點
選擇出來，按下結帳，
即會顯示出總金額。
執行咖啡廳結帳系統
 我選擇VIP卡，加上那堤
加上烤雞三明治，然後
按下結帳，即出現總金
額是252元
咖啡廳結帳系統配置





黃色為Lable
紅色為Combobox
綠色為Listbox
藍色為ChsckedListbox
黑色為Button
程式碼設計
1. Dim main(,) As Object = {{"美式", 110}, {"拿鐵", 130}, {"那堤", 140}, {"義
式濃縮", 130}, {"卡布奇諾", 150}, {"抹茶那堤", 120}, {"焦糖瑪奇朵", 150}, {"
英式紅茶那堤", 140}, {"玫瑰花茶", 160}, {"水果茶", 180}}
2. Dim add(,) As Object = {{"鬆餅", 130}, {"手工餅乾", 130}, {"烤雞三明治",
140}, {"雞肉潛艇堡", 130}, {"牛肉起司可頌", 150}, {"火腿起司帕里尼", 110},
{"覆盆莓乳酪帕里尼", 140}, {"田園雞肉帕里尼", 130}}
程式碼設計
3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
4.
cboKind.Items.Add("飲品")
cboKind.Items.Add("持本店 VIP 卡飲品8折")
cboKind.Items.Add("飲品加任選餐點折30元")
cboKind.Items.Add("飲品搭配英式三層點心230元")
cboKind.SelectedIndex = 0
For i = 0 To UBound(main, 1)
lstMain.Items.Add(main(i, 0) & main(i, 1) & "元")
Next
lstMain.SelectedIndex = 0
5.
lblSum.Text = " 總計 = "
End Sub
程式碼設計
6. Private Sub cboKind_SelectedIndexChanged(sender As Object, e
As EventArgs) Handles cboKind.SelectedIndexChanged
7.
clbAdd.Items.Clear()
8.
If cboKind.SelectedIndex = 0 Then
For i = 0 To 7
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", False)
Next
9.
Else
For i = 0 To 7
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", False)
Next
End If
End Sub
程式碼設計
10. Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles
btnOK.Click
11.
Dim sum As Integer
sum = main(lstMain.SelectedIndex, 1)
12.
If cboKind.SelectedIndex = 1 Then sum = (sum * 0.8)
13.
If cboKind.SelectedIndex = 2 Then sum -= 30
14.
If cboKind.SelectedIndex = 3 Then sum += 230
15.
For i = 0 To clbAdd.Items.Count - 1
16.
If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1)
Next
17. lblSum.Text = " TOTAL = " & sum & " 元!!"
End Sub
End Class
程式碼說明
1.先加入所想要的飲品及餐點名稱及價格
4.再來加入所想要的優惠名稱
6.若有選取優惠則清除餐點項目
8.若選取為飲品，則所有餐點為不勾選
11.將飲品的金額用sum做表示
12.若選擇為VIP卡，則將飲品的金額打8折
13.若選擇為飲品加任選餐點則總金額折30元
14.若選擇為飲品搭配英式三層點心則總金額加230元
15.一項一項檢查餐點的項目有有沒有選取，
若有選取則加上該餐點的金額
17.最後將所有價錢合計並顯示出來
心得
這次的作業雖然一開始覺得很難，但是過
老師及同學還有自己研究了好久，才慢慢
的知道如何寫程式，如何計算，如何才能
用Visual Basic寫出一個完美的程式，真
的需要有一點概念才能做到，雖然花了好
久時間完成這個程式，但自己也學到很多
，最後也要謝謝大帥哥老師這麼認真又有
耐心的教導我們如何撰寫Vsiual Basic程
式，老師您辛苦了!!謝謝您!!
參考文獻
 Visual Basic 2013基礎必修課 蔡文龍編
碁峰 2013
 Visual Basic 2013程式設計經典曹祖聖、蔡文龍、吳明哲著
 碁峰資訊 出版 2014
 感謝各位同學及老師耐心指導