Transcript 下載/瀏覽

計算機概輪及實習(一)
期末報告
結帳系統
老師:謝慶存 先生
南台科技大學
車輛三甲
張家僥
4A415070
結帳系統說明
 使用 Button、Label、Textbox、RadioBox、
GroupBox … 等控制程式來完成一個簡易式的結帳系
統
 學習控制工具的程式操作及寫法
飲料店結帳系統
使用Visual Basic 2010
來寫出一個牛排店的結
帳系統。
選取想要的餐點後，按
下結帳，便可以計算出
總金額。
還有優惠方案
使用學生證打九折
65歲↑打七折
尊貴會員打五折
程式使用程序(1)
輸入所需要的餐點
程式使用程序(2)
選擇優惠方式後
按下計算，
就可以獲得金額
學生證打九折
65歲↑打七折
尊貴會員打五折
版面配置 (1)
種類
主餐 加點
Label1 Label2 Label3
TBoxPrice1
TBoxPrice2
TBoxPrice3
↓ ↓ ↓
優惠
groupbox1
combobox
Radiobotton1
結帳
button1
Radiobotton2
Radiobotton3
Label4
↑ ↑ ↑
CheckBox1
CheckBox2
CheckBox3
程式碼設定(1)












Public Class Form1
Dim main(,) As Object
Dim add(,) As Object
Private Sub Form1_Load(sender As Object, e As EventArgs)
Handles MyBase.Load
cboKind.Items.Add
cboKind.Items.Add
cboKind.SelectedIndex = 1
For i = 0 To UBound
lstMain.Items.Add
Next
lstMain.SelectedIndex = 2
lblSum.Text =
End Sub
程式碼設定(2)
 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
Next
Else
For i = 0 To 1
clbAdd.Items.Add
Next
End If
End Sub
程式碼設定(3)
 Private Sub btnOK_Click(sender As Object, e As EventArgs)












Handles btnOK.Click
Dim sum As Integer
sum = main(lstMain.SelectedIndex, 1)
If cboKind.SelectedIndex = 1 Then sum += 100
For i = 0 To clbAdd.Items.Count - 1
If RadioButton1.Checked = True Then sum = sum * 0.9
If RadioButton2.Checked = True Then sum = sum * 0.7
If RadioButton3.Checked = True Then sum = sum * 0.5
If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1)
Next
lblSum.Text
End Sub
End Class
心得
 VB這個程式看起來很簡單，但卻蘊藏了許多的程式碼
知識。在編輯程式的時候可能因為一個小括號沒友括，
程式可能跑掉或者是無法執行，這些都是編輯程式時
所需要注意的。
 謝謝老師的辛苦教導!!
參考文獻
 2011 03
Visual Basic 2010 基礎必修 碁峰資訊
林義証 蔡文龍 張傑瑞 何叡著