主题饭的主题餐厅-.pptxVIP

版面設計流程先新增8個Label、6個TextBox、4個RadioBox、3個CheckBox、2個Button、1個ListBox、1個 GroupBox，之後開始設計程式，至於內容有好吃的飯，因為學校外面有一家餐廳的菜單上有，由於特別，所以有此設計相關內容。 設計解析2.再來是測試高級的飯10份+好吃的飯10份，購買者為南台的學生，由於南台學生可愛活潑，店家給9折優惠，最後總金額為1620。 設計解析3.這次定了20份高級的飯，由於老闆常看見伯伯三餐都在他們店裡出現，所以被定為老顧客名單打了他95折優惠，總金額為1900。 設計解析4.這是伯伯買了20份高級的飯，因為婆婆也餓了，伯伯幫她點了好吃的飯，店家看見伯伯又來彭場，還是給他95折優惠，算出來因該是1976元，正因為是大於2000元，所以真正的金額為1768元，老闆太高興給他 85折。 加飯 CheckBox1 CheckBox2 CheckBox3優待 RadioBox1 RadioBox2 RadioBox3 RadioBox4按鍵 Button1 Button2表單 ListBox1屬性設定單位 TextBox1 TextBox2 TextBox3 TextBox4 TextBox5 TextBox6文字 Label1、Label2 Label3、Label4 Label5、Label6 Label7、Label8 程式設計Public Class Form1Dim total, acctotal As IntegerPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadLabel6.Text = $ total 元“ Label7.Text = 累計：$ acctotal 元“ Label6.Font = New Font(新細明體, 24)Label6.ForeColor = Color.Red total = 0acctotal = 0 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicktotal = Val(TBoxprice1.Text) * Val(TBoxqty1.Text) + Val(TBoxprice2.Text) * Val(TBoxqty2.Text) + Val(TBoxprice3.Text) * Val(TBoxqty3.Text)If total 2000 Then RadioButton3.Checked = TrueIf RadioButton1.Checked = True Then total = total * 0.95 If RadioButton2.Checked = True Then total = total * 0.9 If RadioButton3.Checked = True Then total = total * 0.85 If RadioButton4.Checked = True Then total = total * 1 Label6.Text = $ total 元acctotal = acctotal + totalLabel7.Text = 累計：$ acctotal 元“ListBox1.Items.Add(total -- 高級的飯 TBoxprice1.Text * TBoxqty1.Text 好吃的飯 TBoxprice2.Text * TBoxqty2.Text 難吃的飯 TBoxprice3.Text * TBoxqty3.Text)End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsHandles Button2.ClickSystem.EventArgs) TBoxqty1.Text = 0TBoxqty2.Text = 0TBoxqty3.Text = 0total = 0Label6.Text = $ total 元 End SubPrivate Sub ListBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.MouseUp acctotal = acctotal -