Transcript 下載/瀏覽

計算機程式及實習
期末報告
程式說明
設計結帳系統，填寫數量再按下結帳鈕之後，即會顯示
結帳總金額。
套餐加點80元即可加選大屌燒和鮮奶蓋綠
亦可單點香香香酥雞和黃金馬鈴薯泥
程式畫面-更改數量
選擇套餐或單點數量，按下
結帳獲得580元的總價
加點數量，勾選
確認，按下結帳
獲得750元的總價
程式碼
• Dim main(,) As Object = {{"黯然消魂飯", 500}, {"黃金開口笑",
600}, {"海景佛跳牆", 700}}
•
Dim add(,) As Object = {{"黃金馬鈴薯泥", 100}, {"香香香酥雞",
70}, {"大屌燒", 50}, {"鮮奶蓋綠", 40}}
•
•
•
•
•
•
•
•
•
•
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
cboKind.Items.Add("食神單點")
cboKind.Items.Add("周星星套餐加80元(大屌燒和鮮奶蓋綠)")
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 += 80 '若選周星星套餐
加80元
•
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
心得
製作這個程式之前，我一直都覺得寫程式是一件可麻煩的
事。但是在看過老師給的範例之後我覺得，其實也不是真
的很麻煩。
這次作業結束後，我已經會了簡單的程式設計，希望以後
還能學到更專業更多元的電腦技能。