投影片 1

Transcription

1 計算機程式及實習 期末報告 題目 : 六宿炒翻天 班級 : 奈米一乙姓名 : 陳洋翼學號 :4A 老師 : 謝慶存

2 程式說明 設計結帳系統, 選擇數量後, 在按下計算, 將會顯示總金額 若是老人或小孩, 將可享 8 折或 9 折的優惠

3 程式畫面 填選數量 在火腿蛋炒飯的數量選擇 1, 並按下計算, 可得總金額 50 元

4 程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格

5 程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格

6 程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格

7 程式畫面 若過多筆交易紀錄, 只需點擊任一紀錄, 即可將其記錄消除

8 程式版面說明 Label

9 Public Class Form1 程式碼 Dim total, acctotal As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label19.Text = "$" & total & " 元 " Label20.Text = " 累計 :$" & acctotal & " 元 " Label19.Font = New Font(" 新細明體 ", 24) Label19.ForeColor = Color.LightYellow total = 0 acctotal = 0 End Sub

10 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click total = Val(TextBoxprice1.Text) * Val(TextBoxQty8.Text) + Val(TextBoxprice2.Text) * Val(TextBoxQty9.Text) + Val(TextBoxprice16.Text) * Val(TextBoxQty23.Text) + Val(TextBoxprice17.Text) * Val(TextBoxQty24.Text) + Val(TextBoxprice18.Text) * Val(TextBoxQty25.Text) + Val(TextBoxprice19.Text) * Val(TextBoxQty26.Text) + Val(TextBoxprice20.Text) * Val(TextBoxQty27.Text) + Val(TextBoxprice21.Text) * Val(TextBoxQty28.Text) If RadioButton1.Checked = True Then total = total * 0.9 If RadioButton2.Checked = True Then total = total * 0.8 Label19.Text = "$" & total & " 元 " acctotal = acctotal + total Label20.Text = " 累計 :$" & acctotal & " 元 " ListBox1.Items.Add(total & "-->" & " 火腿蛋炒飯 " & TextBoxprice1.Text & "*" & TextBoxQty8.Text & " 番茄蛋炒飯 " & TextBoxprice2.Text & "*" & TextBoxQty9.Text & " 香腸蛋炒飯 " & TextBoxprice16.Text & "*" & TextBoxQty24.Text & " 牛肉炒飯 " & TextBoxprice17.Text & "*" & TextBoxQty24.Text & " 豬肉炒飯 " & TextBoxprice18.Text & "*" & TextBoxQty25.Text & " 羊肉炒飯 " & TextBoxprice19.Text & "*" & TextBoxQty26.Text & " 培根蛋炒飯 " & TextBoxprice20.Text & "*" & TextBoxQty27.Text & " 青椒牛肉炒飯 " & TextBoxprice21.Text & "*" & TextBoxQty28.Text)

11 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBoxQty8.Text = 0 TextBoxQty9.Text = 0 TextBoxQty23.Text = 0 TextBoxQty24.Text = 0 TextBoxQty25.Text = 0 TextBoxQty26.Text = 0 TextBoxQty27.Text = 0 TextBoxQty28.Text = 0 total = 0 Label19.Text = "$" & total & " 元 " End Sub

12 Private Sub Label18_Click(sender As Object, e As EventArgs) Handles Label18.Click End Sub Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click End Sub Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click End Sub Private Sub TextBoxprice1_TextChanged(sender As Object, e As EventArgs) Handles TextBoxprice1.TextChanged End Sub Private Sub TextBoxprice20_TextChanged(sender As Object, e As EventArgs) Handles TextBoxprice20.TextChanged End Sub

13 Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click Private Sub Label14_Click(sender As Object, e As EventArgs) Handles Label14.Click Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Private Sub TextBoxprice17_TextChanged(sender As Object, e As EventArgs) Handles TextBoxprice17.TextChanged Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click

14 Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click Private Sub TextBoxprice16_TextChanged(sender As Object, e As EventArgs) Handles TextBoxprice16.TextChanged Private Sub TextBoxQty24_TextChanged(sender As Object, e As EventArgs) Handles TextBoxQty24.TextChanged Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click

15 Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click Private Sub TextBoxQty27_TextChanged(sender As Object, e As EventArgs) Handles TextBoxQty27.TextChanged Private Sub Label19_Click(sender As Object, e As EventArgs) Handles Label19.Click

16 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) Label20.Text = " 累計 :$" & acctotal & " 元 " End Class

17 程式心得 做完這一個程式之後, 原來寫程式不是這麼的困難, 自從了解每個代碼所代表的意思, 相信之後的報告或是作業都能迎刃而解