下載/瀏覽

Download Report

Transcript 下載/瀏覽 

南台食物專賣店
班級:自控一甲
學號:49912103
學生:王俊諺
指導老師:謝慶存
目錄
簡介
 題目說明
 程式版面介紹
 程式碼設計步驟
 程式碼說明
 成品操作方式
 結語

簡介
1.學習製作程序。
2.ListBox、RadioButton的使用方法。
3.技巧要領。
4.程式代碼的涵義。
題目說明
設計一個快速結帳
系統，讓自己點選
需要東西及輸入份
量，就能迅速幫你
算出價錢。
程式版面介紹
食材名稱
Lable1
Lable2
Lable3
顯示餐點
ListBox1
金額
Lable6
Lable7
價格
Price1
Price2
price3
數量
Tb1
Tb2
Tb3
加飯
Chb1
Chb2
Chb3
優惠
Grb1
Rab1
Rab2
Rab3
But2
But1
程式碼設計步驟
先點選表單，進入寫程式畫面，將以
下指令輸入在裡頭，並把所有的表單
那的物件改名稱(在Name修改與程式
碼符合的名稱)，填寫完後，在開始偵
錯是否有錯誤。
1. Public Class Form1
2.
Dim total, accTotal As Integer
3.
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
4.
Label6.Text = "$" & total & "元"
5.
Label7.Text = "累計：$" & accTotal & "元"
6.
Label6.Font = New Font("新細明體", 24)
7.
Label6.ForeColor = Color.Red
8.
total = 0
9.
accTotal = 0
10.
End Sub
11.
Private Sub But1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
12.
total = Val(Tb1.Text) * Val(Tb1.Text) +
Val(Tb2.Text) * Val(Tb.Text) + Val(Tb3.Text) *
Val(Tb3.Text)
13.
14.
If total “老人” Then Rab3.Checked = True
If Rab1.Checked = True Then total = total * 0.95
15. If Rab2.Checked = True Then total = total * 0.8
16. If Rab3.Checked = True Then total = total * 0.5
17. Label6.Text = "$" & total & "元"
18. accTotal = accTotal + total
19. Label7.Text = "累計：$" & accTotal & "元"
20. ListBox1.Items.Add(total & “-->” & “豬肉” &
Price1.Text & “*” & Tb1.Text & “香腸” &
Price2.Text & “*” & Tb2.Text & “大腸” &
Price3.Text & “*” & Tb3.Text “肉腸”)
21.
End Sub
22.
Private Sub But2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
But2.Click
23.
Tb1.Text = 0
24.
Tb2.Text = 0
25.
Tb3.Text = 0
26.
total = 0
27.
Label6.Text = "$" & total & "元"
28.
End Sub
29.
Private Sub ListBox1_MouseUp(ByVal sender As
Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
ListBox1.MouseUp
30.
accTotal = accTotal (Val(ListBox1.SelectedItem))
31. ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
32.
Label7.Text = "累計：$" & accTotal & "元"
33.
End Sub
34.
End Class
(紅色字體為注意事項，Name的地方需與紅色字體相同，否則無
法偵錯！)
程式碼說明
(2)表示總金額和累積金額參數。
 (12)表交易的金額。
 (13)當消費者是老人時，可點選它，
總金額就可*0.5。
 (14~16)為折扣處裡。
 (19)累加至總金額

(20)把交易的結果至ListBox1顯示。
 (22)為清除紀錄
 (23~26)為清楚歸0的動作。
 (29~32)可利用滑鼠在ListBox中，點
選左鍵刪除紀錄。

成品操作方式
1.開啟成品後，選擇
任意食物並在數量欄
打上該需份量。
(如右圖)
2.選擇是否加飯及優
惠對象。
(如右圖)
3.按下計算後，中間
會顯示紀錄並且左下
角會顯示價錢。
(如右圖)
4.若有誤在點取清除
，並在中間白色欄位
點取左鍵，即可清除
紀錄及總價錢。
(如圖)
結語
經過這次實際的操作練習，讓我對程
式碼更加了解且更加清楚內部的涵義，
若還有機會，希望能學習更深的設計
理念，也很感謝這次的學習，讓我從
無中生有，學到很多概念！