Transcript 下載/瀏覽Download

計算機程式及實習
期末報告PPT製作
題目:電影院結帳系統
南台科技大學
機械工程系
車輛一甲
學號:4A415044
姓名:劉哲維
設計結帳系統，填寫數量再按下計算鈕之後，即
會顯示結帳總金額。
程式碼
•
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
•
cboKind.Items.Add("單點")
•
cboKind.Items.Add("套餐加130元(爆米花和大肉棒)")
•
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 += 130 '若選套餐加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
心得
製作這個程式之前，我一直都覺得寫程式好難。但是在看過老師給的範例再
加上同學的教導之後我覺得，好像也不是真的很難，希望能更加學好visual
basic這個城市。
這個程式本來只有三樣簡單的餐點可以選擇，但是在一連串的測試之後，我
開始懂程式碼的寫法了，然後再加上同學的教導之後，我又加上了折扣程式，
感覺非常的有心得。
•
最後……………..祝老師
新年快樂
參考文獻
•
Visual Basic2010基礎必修課 蔡文龍等著 碁峰資訊2011
•
親愛的同班同學:王三泰指導教學
•
完