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

南台快餐店結帳系統-南台科技大學(1).ppt

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

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

下载提示 文本预览

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

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

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

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

南台科技大學 機械工程系 車輛一甲 學號:4A115015 老師:林夆俊快餐店結帳題目說明:快餐店結帳程式開始畫面-改吃到撐炒飯數量再輸入吃的飽炒飯的數量為10超過500元*0.8假設數量錯誤導金錢錯誤程式碼設計PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click 13:total=Val(TBoxPrice1.Text)*Val(TBoxQty1.Text)+Val(TBoxPrice2.Text)*Val(TBoxQty2.Text)+Val(TBoxPrice3.Text)*Val(TBoxQty3.Text) 14: 16:IfRadioButton1.Checked=TrueThentotal=total*0.9 17:IfRadioButton2.Checked=TrueThentotal=total*0.8 18:IfRadioButton3.Checked=TrueThentotal=total*0.7 19:Label6.Text="$"&total&"元﹐" 20:accTotal=accTotal+total 21:Label7.Text="累O計p：G$"&accTotal&"元﹐" 22:ListBox1.Items.Add(total&"-->"&"超W便K宜y"&TBoxPrice1.Text&"*"&TBoxQty1.Text&"吃Y的o飽!"&TBoxPrice2.Text&"*"&TBoxQty2.Text&"吃Y的o撐μ"&TBoxPrice3.Text&"*"&TBoxQty3.Text) EndSubPrivateSubCheckBox1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox1.CheckedChanged EndSub PrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton2.CheckedChanged EndSub PrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesGroupBox1.Enter EndSub PrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChanged EndSub PrivateSubLabel2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel2.Click EndSub EndClass心得參考文獻