预览加载中，请您耐心等待几秒...

開啟檔案-南台科技大學(2).ppt

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共11页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

計算機程式及實習期末報告ＰＰＴ製作題目:結帳系統題目說明:結帳系統製作列出點餐 ListBox1物件 屬性 說明 Label10 Text 撒尿牛丸價格 Label11 Text 佛跳牆價格 Label12 Text 黯然消魂飯價格 TextBox1Text 撒尿牛丸數量 TextBox2 Text 佛跳牆數量 TextBox3 Text 黯然消魂飯數量 RadioButton1 Text 洗碗ＤＩＹ９折 RadioButton2 Text 羅志祥粉絲８折 RadioButton3 Text 攜帶林俊傑專輯０.７５折 Button1 Text 清除 Button2 Text 付帳 ListBox1 由程式控制程式碼設計PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click total=Val(Label10.Text)*Val(TextBox1.Text)+Val(Label11.Text)*Val(TextBox2.Text)+ Val(Label12.Text)*Val(TextBox3.Text) IfCheckBox1.CheckedThentotal1=(Val(Label10.Text)+5)*Val(TextBox1.Text) IfCheckBox2.CheckedThentotal2=(Val(Label11.Text)+5)*Val(TextBox2.Text) IfCheckBox3.CheckedThentotal3=(Val(Label12.Text)+5)*Val(TextBox3.Text) IfCheckBox1.Checked=FalseThentotal1=(Val(TBoxPrice1.Text))*Val(TBoxQty1.Text) IfCheckBox2.Checked=FalseThentotal2=(Val(TBoxPrice2.Text))*Val(TBoxQty2.Text) IfCheckBox3.Checked=FalseThentotal3=(Val(TBoxPrice3.Text))*Val(TBoxQty3.Text) total=total1+total2+total3 EndIf IfRadioButton1.Checked=TrueThentotal=total*0.9 IfRadioButton2.Checked=TrueThentotal=total*0.8 IfRadioButton3.Checked=TrueThentotal=total*0.75 Label8.Text="$"&total&"元" accTotal=accTotal+total Label9.Text="累計：$"&accTotal&"元" ListBox1.Items.Add(total&“-->”&“撒尿牛丸”&Label10.Text&“*”&TextBox1.Text&“佛跳牆”&Label11.Text&“*”&TextBox2.Text&“黯然消魂飯"&Label12.Text&"*"&TextBox3.Text) EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click TextBox1.Text=0 TextBox2.Text=0 TextBox3.Text=0 total=0 Label8.Text="$"&total&"元" EndSubPrivateSubListBox1_MouseUp(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesListBox1.MouseUp accTotal=accTotal-(Val(ListBox1.SelectedItem)) IfListBox1.SelectedIndex=-1Then Else ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) EndIf Label9.Text="累計：$"&accTotal&"元" EndSub EndClass程式說明心得