Transcript 下載/瀏覽

車輛一甲
老師:謝慶存 先生
4a415049 林柏安
+ 使用 Button、Label、Textbox、RadioBox、
GroupBox … 等控制程式來完成一個簡易式
的結帳系統
+ 學習控制工具的程式操作及寫法
+ 使用Visual Basic 2010來寫出一個牛排店的
結帳系統。
+ 把所有餐點打勾後，按下計算，便可以計
算出所有餐點的金額
ListBox
Combo box
CheckedListBox
Button
Label
+
+
+
+
+
+
+
+
+
+
+
+
+
Public Class Form1
Dim main(,) As Object = {{"鐵板麵", 120}, {"經典牛排A", 220}, {"海陸雙拼大餐",
280}}
Dim add(,) As Object = {{"水果", 30}, {"甜點", 30}, {"沙拉", 40}, {"飲料", 25}}
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)
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)
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
+
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
+
+
End Sub
End Class
+ VB這程式看似簡單，卻蘊藏了豐富的程式
碼知識。在編輯程式的時候可能因為一個
小括號沒友括，程式可能跑掉或者是無法
執行，這些都是編輯程式時所需要注意的。
+ 謝謝老師上課的教導，讓我們比較容易懂
得VB程式碼所代表的意思，讓我們更懂得
如何去應用指令在哪個步驟，或者編輯錯
誤時，不用盲目的 一直早錯誤， 更容易去
發現編輯時所忽略的錯誤。
+ 謝謝老師這學期辛苦的教導！辛苦嘍！
+ Visual Basic 2013 基礎必修 碁峰資訊
+
林義証 蔡文龍 張傑瑞 何叡著