計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 題目:住宿預約 姓名:林正彬 學號:4A415008 班級:車輛一甲 指導老師:謝慶存
題目說明 設計出一個簡易的住宿預約價格及服務選擇表，透過選擇外景、房間 種類和需要的餐點按下預約即可顯示價格，另外只要外景選有海邊的 自動附加晚餐和宵夜可省50元，餐點費(單人)方式計費。
表單設計 版面的配置和屬性的設定
程式碼設計(一) blic Class Form1 Dim main(,) As Object = {{"2人客房", 3000}, {"4人客房", 3500}, {"6人客房", 4500}} Dim add(,) As Object = {{"早餐", 200}, {"午餐", 250}, {"晚餐", 300}, {"宵夜", 150}} Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboKind.Items.Add("森林") cboKind.Items.Add("海邊加400元(晚餐和宵夜)") 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) 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 += 400 '若選海邊加400元 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 lstMain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstMain.SelectedIndexChanged
對文字一向不敏感的我，剛聽到要交出一份如 範例南台快餐店結帳系統的作業時，當下是很 緊張的，最後透過範例程式 心得感想 對文字一向不敏感的我，剛聽到要交出一份如 範例南台快餐店結帳系統的作業時，當下是很 緊張的，最後透過範例程式 Ch6-order的範例程式下去研究與修改，完成一 份以我的概念修改成的程式，製作過程中又從 新領悟與學習到Visual Studio的功能，最後還 是感謝“謝老師”的幽默教導。
參考文獻 ◎VB 2013 範例程式→ch6→order ◎如意網站VB教學網: http://yes.nctu.edu.tw/vb/ ◎VB範例網:VB基本教學: http://vbexample.blogspot.tw/2009/12/vb_06.html