計算機程式及實習 期末報告ppt製作 題目:牛排店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A115051 學生：周伯彥 老師:謝慶存
牛排店結帳系統 學習重點。 ListBox、RadioButton的使用方法。
題目說明:牛排店結帳系統 設計出一個結帳系統，輸入欲購買的品項後，按結帳按鈕，即可顯示金額。
執行結帳系統 例如你要結帳一客牛排時,按下牛排的選項，選擇是否有加點選項，即可顯示 結帳金額。
如果有需要加點 如果有需要加點案右邊的加點即可完成加點選項。
版面配置 主餐Label1 種類Label2 加點Label3 種類下面的框框是ComboBox 主餐下面的框框是ListBox 加點下面的框框是ChecKedListBox 結帳是button 合計是Label4
屬性碼設計:第一頁面 Public Class Form1 Dim main(,) As Object = {{"牛排", 100}, {"豬排", 80}, {"雙拼排", 140}} Dim add(,) As Object = {{"餐包", 5}, {"濃湯", 20}, {"甜點", 20}, {"飲料", 20}} 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) 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(sender As Object, e As EventArgs) Handles lstMain.SelectedIndexChanged End Class
心得 Visual Basic是一個很好玩的程式，剛開始看老師做的時候感覺很難，做久 了之後就漸漸地得心應手了。他不但可以讓你將想呈現的東西一目了然， 也可以做各種你所想要的設定，是一個很實用的程式。
參考文獻 Visual Basic2010基礎必修課 蔡文龍等著 碁峰資訊2011