計算機程式及實習 期末報告ppt製作 題目:炸物店結帳系統 南台科技大學 機械系先進車輛組 車輛一甲 學號:4A415077 老師:謝慶存
學習重點。 ListBox、RadioButton的使用方法。 炸物店結帳系統
設計出一個有圖片的結帳系統.輸入欲購買的數量後結 算能夠得到所購買的價格,並且加入了套餐的系統,其中 只要購買任何炸物,按下 結帳按鈕,即 可顯示金額 。 題目說明:炸物店結帳系統
屬性碼設計:第一頁面 Public Class Form1 Dim main(,) As Object = {{"魚排", 30}, {"雞排", 40}, {" 雙排", 50}} Dim add(,) As Object = {{"鹽酥雞", 50}, {"三角骨", 50}, {"薯條", 40}, {"豆腐", 30}} 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) '用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 += 50 '若選套餐加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 Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Class 第六頁面
程式碼說明 第一頁面的程式碼主要是在設定總金額及累計金額的 參數。 第二頁面的程式碼主要是讓你選擇套餐的部分。 第三頁面的程式碼主要在告訴你可以加入單點的部分。 程式碼說明
Visual Basic其實是套很有趣又好玩的程式設計系統,他能夠依照 創作者的想像力以及創造力來提升系統的多樣變化性,如果你越 深入地去瞭解這套系統,就能夠創造出更多高階的程式設計變化, 開始著手於版面設計時,其實還蠻簡單的,而且細心一點,還能夠找 到在程式裡面加入背景,或是圖片的工具,後來自己著手在程式碼 部分的時候,原來才是這程式的奧妙所在,因為他不比版面設計簡 單般,經過鑽研書籍,並且請教比較熟練的同學後,才能夠編輯出正 確的程式碼來使程式順利地執行,途中也重做了幾次,終於完成了 這次的Visual Basic設計,雖然這對專業設計人員或是老師來說,我 們的作品不過只是班門弄斧般簡單,但是對我們來說,已經是對程 式學習有著大步的躍進了,同時也謝謝老師努力及認真的教導我 們Visual Basic的各種功能, 老師加油!老師萬歲!老師大帥哥!老師 新年快樂 心得報告
親愛的同班同學:羅鴻荷、王三泰指導教學 強大的網路搜尋功能,以及網友們體貼的教學 完 參考文獻