班級:車輛一甲 姓名:邱孝哲 學號:4A415084 老師:謝慶存 計算機程式及實習 期末報告 題目:便當店結帳系統 班級:車輛一甲 姓名:邱孝哲 學號:4A415084 老師:謝慶存
學習重點 學習重點。 ListBox、RadioButtonLabel、LinkLabel、 MsgBox、PictureBox、RadioButton、TextBox、 GroupBox的使用方法。
程式說明 設計結帳系統，填寫數量再按下計算
程式碼 Public Class Form1 Dim main(,) As Object = {{"雞腿便當", 80}, {"雞排便當", 60}, {"排骨便當", 60}} Dim add(,) As Object = {{"白飯", 10}, {"甜點", 50}, {"沙拉", 40}, {"飲料", 30}} 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 End Class
版面說明 主餐Label1 種類Label2 加點Label3 種類下面的框框是ComboBox 主餐下面的框框是ListBox 加點下面的框框是ChecKedListBox 結帳是button 合計是Label4
心得 其實我上課看老師操作VB這個程式感覺 好像很簡單，但是自己實際去操作後才 發現他是有些難度的，經過這次做這個 報告和同學一起討論才知道這程式的用 處和好處。