Transcript 下載/瀏覽

計算機程式及實習
課堂作業之口頭報告ppt製作
題目:南台機器人快餐店點餐
系統
南台科技大學
機械工程系
奈米一乙
學號:49914095
老師:謝慶存
題目說明:主題說明與背景
• 南台發明的機器人越來越多，所以試做
一機器人快餐店試用，按照現在汽機車
燃油為主
表單(form)設計:解題分析
試設計快餐店結帳
系統，填寫數量
再按下enter之
後，即會顯示金
額。按結帳按鈕，
會一併計算所有
價錢並四捨五入。
版面配置
屬性設定
點餐區
Label3
RadioButton
6,7.8.9.10
點餐數量
Label6
Label7
今日油價
Label5
Label4
歡迎光臨
Label11
Label8
NumericUpD
own1
點餐區
Label2
RadioButton
1,2,3,4,5
結帳
Button1
Label9
程式碼設計
Public Class Form1
Dim m, a, c As Double
Dim b As Integer
Private Sub RadioButton10_CheckedChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
RadioButton10.CheckedChanged
If RadioButton10.Checked = True Then
Label4.Text = "超級柴油每公升30元"
End Sub
程式碼設計
Private Sub RadioButton8_CheckedChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
RadioButton8.CheckedChanged
If RadioButton8.Checked = True Then
Label4.Text = "92無鉛汽油每公升為32元"
End Sub
Private Sub
RadioButton7_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles RadioButton7.CheckedChanged
If RadioButton7.Checked = True Then
Label4.Text = "95無鉛汽油每公升32.7元"
End Sub
程式碼設計
Private Sub RadioButton6_CheckedChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
RadioButton6.CheckedChanged
If RadioButton6.Checked = True Then
Label4.Text = "98無鉛汽油每公升34.2元"
End Sub
Private Sub
RadioButton9_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles RadioButton9.CheckedChanged,
RadioButton5.CheckedChanged
If RadioButton9.Checked = True Then
Label4.Text = "請點選!!"
End Sub
程式碼設計
Private Sub NumericUpDown1_ValueChanged(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
NumericUpDown1.ValueChanged
a = NumericUpDown1.Text
Label6.Text = a & "公升"
If RadioButton5.Checked = True Then Label7.Text = "請
先點餐!!"
If RadioButton10.Checked = True Then b = 30 * a
If RadioButton10.Checked = True Then Label7.Text =
30 * a & "元"
If RadioButton8.Checked = True Then b = 32 * a
If RadioButton8.Checked = True Then Label7.Text = 32
* a & "元"
程式碼設計
If RadioButton7.Checked = True Then b =
32.7 * a
If RadioButton7.Checked = True Then
Label7.Text = 32.7 * a & "元"
If RadioButton6.Checked = True Then b
= 34.2 * a
If RadioButton6.Checked = True Then
Label7.Text = 34.2 * a & "元"
End Sub
Private Sub Button1_Click(ByVal sender
As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If RadioButton5.Checked = True Then
Label9.Text = "共" & b & "元"
程式碼設計
If RadioButton1.Checked = True Then
Label9.Text = "共" & b + 39 & "元"
If RadioButton2.Checked = True Then
Label9.Text = "共" & b + 66 & "元"
If RadioButton3.Checked = True Then
Label9.Text = "共" & b + 77 & "元"
If RadioButton4.Checked = True Then
Label9.Text = "共" & b + 88 & "元"
End Sub
End Class
程式開始畫面-先點餐!!
• 首先在點餐區點選自己需要的吧!!
• 按了之後程式會貼心的告訴您，您所點
的餐點今日價格是多少。
程式開始畫面後-開始調數量吧
• 在輸入格填寫想要的數量吧，程式會復
頌一次並打上油價!
• 這次讓程式支援到小數點第1位，超過會
四捨五入，但價錢會出現1位以上的小數
點，方便查看。
程式完成畫面-加值區、結帳
• 有加過油吧!不送個小面紙好像對不起你
喔?不過很抱歉我們要加錢才會送喔!
• 按結帳，程式會很貼心的告訴你總價多
少，並自行四捨五入。
•
謝謝觀賞