Transcript 下載/瀏覽Download

計算機程式及實習
期末報告
程式說明
設計結帳系統，選好你的主餐
跟加點再按下結帳
程式碼
Public Class Form1

Dim main(,) As Object = {{"薯餅", 30}, {"米血", 30}, {"豬排", 50}}

Dim add(,) As Object = {{"雪碧", 20}, {"綠茶", 20}, {"麥茶", 20}, {"四神
湯", 45}}


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
End Class


程式說明
主餐Label1 種類Label2 加點Label3
種類下面的框框是ComboBox
主餐下面的框框是ListBox
加點下面的框框是ChecKedListBox
結帳是button
合計是Label4
心得
其實我上課看老師操作VB這個程式感覺好像超級簡單的，
但是實際去操作後才發現是有些難度的，經過這次做這個
報告和同學一起討論後才知道這程式的用處和好處。