Transcript 下載/瀏覽

計算機程式及實習
期末報告ppt製作
題目黑店麵食結帳系統
南台科技大學
機械工程系
車輛一乙
學號:4a015096
學生:蔡育廷
黑店麵食結帳


學習重點
ListBox、RadioButton的使用方法。
題目說明:黑店麵食結帳
試設計黑店麵食結帳系
統，填寫數量再按下
總價鈕之後，即會顯
示結帳總金額。按
「清除」按鈕，再輸
入數量，並點選「團
體價*0.9」，再按下
「總價」鈕，得到打
9折後的那一筆總金
額資料。
程式開始畫面-改維力炸醬麵數
量

改維力炸醬麵數量為1按「總價」按鈕後，
得到第1筆結帳資料。
再輸入今日特麵的數量為2

按「清除」按鈕，清
除剛剛的維力炸醬麵
一份後，再輸入起士
蛋糕的數量為2，並
點選「團體價*0.9」，
再按下「總價」鈕，
得到打9折後的那一
筆306元資料。
貴賓卡*0.7


在統一肉燥麵代旁
的數量欄中輸入1並
按下「總價」鈕。
發現因為是貴賓，
所以畫面中的貴賓
卡*0.7選項，已經
在程式運作下自動
選取。
版面配置
屬性設定
快餐
Label1
Label2
Label3
列出點餐
ListBox1
價格
TBoxPrice1
TBoxPrice2
TBoxPrice3
數量
TBoxPrice4
TBoxPrice5
TBoxPrice6
加飯
CheckBox1
CheckBox2
CheckBox3
優待
GroupBox1
RadioButton1
RadioButton2
RadioButton3
Button1
金額
Label7
Label8
Button2
物件
屬性
設定
說明
TBoxPrice1 Text
“”
統一肉燥麵價格
TBoxPrice2 Text
“”
維力炸醬麵價格
TBoxPrice3 Text
“”
今日特麵價格
TBoxPrice4 Text
統一肉燥麵數量
TBoxPrice5 Text
維力炸醬麵數量
TBoxPrice6 Text
今日特麵數量
RadioButton
1
Text
團體價x0.9
RadioButton2
Text
貴賓卡x0.7
RadioButton3
Text
悠遊卡x0.5
Button1
Text
清除
Button2
Text
總價
ListBox1
由程式控制
程式碼設計
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Label7.Text = "$" & total & "元﹐"
Label8.Text = "累O計p：G$" & accTotal & "元﹐"
Label7.Font = New Font("新Ps細O明u體e", 26)
Label7.ForeColor = Color.Blue
total = 0
accTotal = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
total = Val(TextBox1.Text) * Val(TextBox4.Text) + Val(TextBox2.Text) *
Val(TextBox5.Text) + Val(TextBox3.Text) * Val(TextBox6.Text)
If RadioButton1.Checked = True Then total = total * 0.9
If RadioButton2.Checked = True Then total = total * 0.7
If RadioButton3.Checked = True Then total = total * 0.5
Label7.Text = "$" & total & "元﹐"
accTotal = accTotal + total
Label8.Text = "累O計p：G$" & accTotal & "元﹐"
ListBox1.Items.Add(total & " @→÷ @" & "統I一@肉×燥e麵N" &
TextBox1.Text & " x " & TextBox4.Text & "維u力O炸μ醬a麵N" & TextBox2.Text &
" x " & TextBox5.Text & "今μ日e特壘麵N" & TextBox3.Text & " x " &
TextBox6.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox4.Text = 0
TextBox5.Text = 0
TextBox6.Text = 0
total = 0
Label7.Text = "$" & total & "元﹐"
End Sub
Private Sub ListBox1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp
accTotal = accTotal - (Val(ListBox1.SelectedItem))
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
Label8.Text = "累O計p：G$" & accTotal & "元﹐"
End Sub
End Class
程式說明





第2行定義總金額及累計金額的參數。
第13行求出單筆交易的總金額。
第16-18行處理折扣動作。
第20行累加至累計金額。
第22行把單筆交易記錄至ListBox1中。


第25-31行為「清除」按鈕的歸零動作。
第33-38行處理利用滑鼠在ListBox1上點選
時，放開滑鼠左鍵的刪除記錄動作。



第34行扣除該筆記錄在累加值中的數值。
第35行實際於ListBox1中刪除，刪除該筆記錄。
第36行把更正後的累加值，再度顯示出來。
心得
Visual Basic 讓我知道我自己也能輕鬆創造程
式而Visual Basic 的介面有許多中文解釋，讓我這
英文白痴也行，而這次老師叫我們設計程式，雖然
有點難度，但經由老師每一個步驟講解，讓我們了
解更多，能設計出更多更不同的東西，雖然這是簡單
的基礎VB運用，但是在製作這程式過程當中遇到了不少的
問題，VB真的是一個很酷的程式可以寫出許多有趣的程式，
最後謝謝老師你上課認真、耐心、幽默的專業解說 !!
參考文獻
1.Visual Basic 2010實力養成暨評量解題秘笈
桂思強 編 碁峰 2010
2.Visual Basic 2010教學範本古頤榛 編著 碁峰
資訊2011
3.Visual Basic程式設計余忠潔 全華2010
4.學會寫程式Visual Basic 2008( Idea 3小組
碁峰 2010
5.Visual Basic 2008 程式設計作者： 葉倍宏
全華2008