計算機程式及實習 期末報告ppt製作 題目:炸物店結帳系統

Presentation on theme: "計算機程式及實習 期末報告ppt製作 題目:炸物店結帳系統"— Presentation transcript:

1 計算機程式及實習 期末報告ppt製作 題目:炸物店結帳系統
南台科技大學 機械系先進車輛組 車輛一甲 學號:4A415077 老師:謝慶存

2 學習重點。 ListBox、RadioButton的使用方法。 炸物店結帳系統

3 設計出一個有圖片的結帳系統.輸入欲購買的數量後結 算能夠得到所購買的價格,並且加入了套餐的系統,其中 只要購買任何炸物,按下
結帳按鈕,即 可顯示金額 。 題目說明:炸物店結帳系統

4 屬性碼設計:第一頁面 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元(薯條和豆腐)") 屬性碼設計:第一頁面

5 第二頁面 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 第二頁面

6 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) '預設項目選取 第三頁面

7 第四頁面 Next Else '否則(選套餐)就加入前兩個項目 For i = 0 To 1
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True) End If End Sub 第四頁面

8 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 '逐一檢查 加點項目 '若項目有勾選就加該項目的價格 第五頁面

9 第六頁面 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 第六頁面

10 程式碼說明 第一頁面的程式碼主要是在設定總金額及累計金額的 參數。 第二頁面的程式碼主要是讓你選擇套餐的部分。
第三頁面的程式碼主要在告訴你可以加入單點的部分。 程式碼說明

11 Visual Basic其實是套很有趣又好玩的程式設計系統,他能夠依照 創作者的想像力以及創造力來提升系統的多樣變化性,如果你越 深入地去瞭解這套系統,就能夠創造出更多高階的程式設計變化, 開始著手於版面設計時,其實還蠻簡單的,而且細心一點,還能夠找 到在程式裡面加入背景,或是圖片的工具,後來自己著手在程式碼 部分的時候,原來才是這程式的奧妙所在,因為他不比版面設計簡 單般,經過鑽研書籍,並且請教比較熟練的同學後,才能夠編輯出正 確的程式碼來使程式順利地執行,途中也重做了幾次,終於完成了 這次的Visual Basic設計,雖然這對專業設計人員或是老師來說,我 們的作品不過只是班門弄斧般簡單,但是對我們來說,已經是對程 式學習有著大步的躍進了,同時也謝謝老師努力及認真的教導我 們Visual Basic的各種功能, 老師加油!老師萬歲!老師大帥哥!老師 新年快樂 心得報告

12 親愛的同班同學:羅鴻荷、王三泰指導教學 強大的網路搜尋功能,以及網友們體貼的教學 完 參考文獻