計算機程式及實習 期末報告 題目 : 六宿炒翻天 班級 : 奈米一乙姓名 : 陳洋翼學號 :4A514050 老師 : 謝慶存
程式說明 設計結帳系統, 選擇數量後, 在按下計算, 將會顯示總金額 若是老人或小孩, 將可享 8 折或 9 折的優惠
程式畫面 填選數量 在火腿蛋炒飯的數量選擇 1, 並按下計算, 可得總金額 50 元
程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格
程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格
程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目, 系統將自動折抵價格
程式畫面 若過多筆交易紀錄, 只需點擊任一紀錄, 即可將其記錄消除
程式版面說明 Label
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
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)
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
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
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
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
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
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
程式心得 做完這一個程式之後, 原來寫程式不是這麼的困難, 自從了解每個代碼所代表的意思, 相信之後的報告或是作業都能迎刃而解