題目標(biāo)仔電玩店ppt課件

1、題目:標(biāo)仔電玩店南臺科技大學(xué)機(jī)械工程系車輛一乙學(xué)號:4A015025老師:謝慶存計算機(jī)程式及實(shí)習(xí)期末報告Ptt制造題目說明:電玩店結(jié)帳設(shè)計電玩店結(jié)帳系統(tǒng)，填寫數(shù)量在按下計算，即會顯示消費(fèi)總金額。按去除則會重新歸零。輸入數(shù)量後按下老客戶9折，在按下計算就可以得到打九折後的總消費(fèi)額。程式開始畫面-改N3DS數(shù)量改N3DS數(shù)量為1按下計算按鈕後，得到第一筆結(jié)帳資料。在輸入PSP的數(shù)量為3按下去除按鈕，去除剛剛的N3DS一臺後，再輸入PSP的數(shù)量為3，並點(diǎn)選老客戶打9折，在按下計算扭，得到打9折後的那一筆21060圓資料。老闆不在家打1折!在PSP旁數(shù)量攔輸入100並按計算扭。發(fā)現(xiàn)價格少了個0因?yàn)槌^

2、兩百萬圓，所以畫面中的老闆不在打1折!選項(xiàng)，在程式運(yùn)作下自動選取。遊戲機(jī)加上配件 在N3DS數(shù)量改為1，並在全配件打勾，按價計算扭會得到一臺的價格加上全配件的錢。全配件的價格為2000圓。版面配置屬性設(shè)定打折GroupBox1RadioButton1RadioButton5價格TBoxPrice1 TBoxPrice5產(chǎn)品Label1 Label5列出消費(fèi)列出消費(fèi)ListBox1ListBox1金額金額Label9Label9Label10Label10Button1Button2數(shù)量TBoxQty1TBoxQty5全配件CheckBox1CheckBox5物件 屬性 設(shè)定 說明TBoxPri

3、ce1 Text “ N3DS價格TBoxPrice2 Text “ PSP價格TBoxPrice3 Text “ PS3價格TBoxPrice4 Text “ Xbox360價格TBoxPrice5 Text “ Wii價格物件 屬性 設(shè)定 說明TBoxQty1 Text N3DS數(shù)量TBoxQty2 Text PSP數(shù)量TBoxQty3 Text PS3數(shù)量TBoxQty4 Text Xbox360數(shù)量TBoxQty5 Text Wii數(shù)量物件 屬性 設(shè)定 說明RadioButton1 Text 老客戶打9折RadioButton2 Text 嘗鮮價打95折RadioButton3 Tex

4、t 入坑價打85折RadioButton4 Text 老板不在家打1折!Button1 Text 去除Button2 Text 計算ListBox1 由程式控制CheckBox15 全配件加2000圓程式碼設(shè)計 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label9.Text = “小計 & “圓 Label9文字=小計 圓 Label10.Text = “總計：$“ & accTotal & 圓 Label

5、9.Font = New Font(“新細(xì)明體,28) Label9.ForeColor = Color.Yellow total = 0 accTotal = 0 End SubLabel10文字=總計$:累積總金額 圓Label9字體=新細(xì)明體 大小28Label9文字顏色黃色Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) +

6、 Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) + Val(TBoxPrice4.Text) * Val(TBoxQty4.Text) + Val(TBoxPrice5.Text) * Val(TBoxQty5.Text) If total 2000000 Then RadioButton4.Checked = True If RadioButton1.Checked = True Then total = total * 0.9 If RadioButton2.Che

7、cked = True Then total = total * 0.95 If RadioButton3.Checked = True Then total = total * 0.85 If RadioButton4.Checked = True Then total = total * 0.1 Label9.Text = $ & total & 圓 accTotal = accTotal + total Label10.Text = 總計：$ & accTotal & 圓 ListBox1.Items.Add(total & - & N3D

8、S & TBoxPrice1.Text & * & TBoxQty1.Text & PSP & TBoxPrice2.Text & * & TBoxQty2.Text & PS3 & TBoxPrice3.Text & * & TBoxQty3.Text & Xbox360 & TBoxPrice4.Text & * & TBoxQty4.Text & wii & TBoxPrice5.Text & * & TBoxQty5.Text) End

9、 Sub假設(shè)金額大於2000000則自動選取RadioButton4(老闆不在家打一折)自動選取。選取RadioButton1(老客戶打9折)金額*0.9選取RadioButton2(嘗鮮價打95折)金額*0.95選取RadioButton3(老客戶打9折)金額*0.9選取RadioButton4(老闆不在家打一折)金額*0.1更正後的金額 再度顯示更正後的總金額 再度顯示ListBox1顯示N3DS價格*數(shù)量+PSP價格*數(shù)量+PS3價格*數(shù)量+Xbox360價格*數(shù)量+Wii價格*數(shù)量 Private Sub Button1_Click(ByVal sender As System.Obj

10、ect, ByVal e As System.EventArgs) Handles Button1.Click TBoxQty1.Text = 0 TBoxQty2.Text = 0 TBoxQty3.Text = 0 TBoxQty4.Text = 0 TBoxQty5.Text = 0 total = 0 Label9.Text = $ & total & 圓 End Sub按鈕1(去除)N3DS數(shù)量=0PSP數(shù)量=0PS3數(shù)量=0Xbox360數(shù)量=0Wii數(shù)量=0金額=0更正後的金額 再度顯示Private Sub ListBox1_SelectedIndexChang

11、ed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged accTotal = accTotal - (Val(ListBox1.SelectedItem) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) Label10.Text = 總計：$ & accTotal & 元 End SubEnd Class處理利用滑鼠在ListBox1上點(diǎn)選時，放開滑鼠左鍵的刪除記錄動作移除內(nèi)文字在累加值中的數(shù)值實(shí)際於ListBox1中刪除，刪除該筆記錄把更正後的累加值，再度顯示出來心得看老師做程式簡單得跟什麼一樣，看懂程式