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

計算機程式及實習期末報告ppt製作養生素食快餐店結...-南台科技大學.ppt

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

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

下载提示 文本预览

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

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

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

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

計算機程式及實習期末報告ppt製作養生素食快餐店結帳系統假設顧客沒有點選素食火鍋，只需要按下重置再重新輸入並且按下計算就可以了↓ (一般消費者，無優惠) 凡只要是學生購買本店食物，都可以給予八折優惠↓ 當然 假若誤認消費者為學生時，而實際上是老師時， 則可按下”取消選取”，並且選取”老師加收一成服務費”。 再按下計算按鈕後，即可再次得到最新金額結果哦！↓假若不小心把”加飯數量的份數”輸入大於”購買數量的話” 總計是不會顯示結果的 ，以方便發現錯誤↓ PublicClassForm1 Dima,b,c,x,y,z,d,f,g,number123,number456,number789,txtb1,txtb2,txtb3,txtb4,txtb5,txtb6AsInteger PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click txtb2=TextBox2.Text txtb3=TextBox3.Text txtb1=TextBox1.Text txtb4=TextBox4.Text txtb5=TextBox5.Text txtb6=TextBox6.Text a=Label5.Text b=Label6.Text c=Label7.TextIftxtb1>0Andtxtb4<=txtb1Then d=((txtb4*5)+(txtb1*a)) EndIf Iftxtb2>0Andtxtb5<=txtb2Then g=((txtb5*5)+(txtb2*b)) EndIf Iftxtb3>0Andtxtb6<=txtb3Then f=((txtb6*5)+(txtb3*c)) EndIf number123=d+g+f IfRadioButton1.Checked=TrueThen number456=number123*0.8 ElseIfRadioButton2.Checked=TrueThen number456=(number123*1.1) Else number456=number123 EndIf Label8.Text="總計:"&number456 d=0 g=0 f=0 EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) HandlesButton2.Click TextBox1.Text=0 TextBox2.Text=0 TextBox3.Text=0 TextBox4.Text=0 TextBox5.Text=0 TextBox6.Text=0 EndSub PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) HandlesButton3.Click RadioButton1.Checked=False RadioButton2.Checked=False EndSub EndClass物件心得參考文獻