Transcript 下載/瀏覽

南台鞋店結帳系統
老師:謝慶存 先生
南台科技大學
車輛一甲
陳附翔
4 A 415 0 6 4
鞋店結帳系統說明
使用 Button、Label、Textbox、RadioBox、GroupBox … 等控制程式來完成一個簡易
式的結帳系統
學習控制工具的程式操作及寫法
鞋店結帳系統
使用Visual Basic 2013
來寫出一個鞋店的結帳
系統。
把所有飲料的數量打上
去後，按下計算，便可
以計算出所有飲料的金
額。
程式使用程序(1)
輸入所需要的鞋款後，按下結帳可得金額
Label1
版面配置 (1)
Label3
Label2
cboKind
clbAdd
lstMain
btnOK
lblSum
程式碼設定(1)
Public Class Form1
Dim main(,) As Object = {{"經典慢跑鞋", 999}, {"豪邁休閒鞋", 1280}, {"限量籃球鞋", 2500}}
Dim add(,) As Object = {{"除臭劑", 99}, {"機能襪", 99}, {"彩色鞋帶", 69}, {"鞋墊", 50}}
程式碼設定(2)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cboKind.Items.Add("單雙")
cboKind.Items.Add("鞋盒加60元(提袋加增高墊)")
cboKind.SelectedIndex = 1
For i = 0 To UBound(main, 1)
lstMain.Items.Add(main(i, 0) & main(i, 1) & "元")
Next
lstMain.SelectedIndex = 2
lblSum.Text = "合計 = "
End Sub
程式碼設定(3)
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
程式碼設定(4)
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 += 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
程式碼設定(5)

TBCQ13.Text = 0
Private Sub lstMain_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles lstMain.SelectedIndexChanged
End Sub
End Class
心得
電腦白痴的我覺得VB這程式看似簡單，回家自己做起來卻平平要去問別人，它蘊
藏了豐富的程式碼知識。在編輯程式的時候可能因為一個小括號沒友括，程式
可能跑掉或者是無法執行，這些都是編輯程式時所需要注意的。
感謝老師上課的教導，讓我們比較容易懂得VB程式碼所代表的意思，讓我們更懂
得如何去應用指令在哪個步驟，或者編輯錯誤時，不用盲目的 一直早錯誤，
更容易去發現編輯時所忽略的錯誤。
還有謝謝那些一植被我盧著怎麼做的同學!
謝謝老師這學期辛苦的教導！辛苦嘍！