1 / 13

計算機程式及 實習 期末報告 ppt 製作 題目 :PSV 遊戲販售

計算機程式及 實習 期末報告 ppt 製作 題目 :PSV 遊戲販售. 南台科技大學 機械工程 系 自控一 甲 學號 :4A20H002 姓名 : 葉宸侑 老師 謝慶存. PSV 遊戲販售系統. ListBox 、 RadioButton 的使用方法。. PSV 遊戲販售說明. 把各種遊戲購買數量輸入 ， 按下計算即可計算金額。 一般會員 9 折 白金會員 8 折 黃金會員 75 折. 程式開始畫面. 購買 使用 3 步驟. 1. 選擇需求數量 2. 選擇會員資格 3. 按下計算. 程式使用說明.

gabi
Download Presentation

計算機程式及 實習 期末報告 ppt 製作 題目 :PSV 遊戲販售

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 計算機程式及實習期末報告ppt製作題目:PSV遊戲販售計算機程式及實習期末報告ppt製作題目:PSV遊戲販售 南台科技大學 機械工程系 自控一甲 學號:4A20H002 姓名:葉宸侑 老師 謝慶存

  2. PSV遊戲販售系統 • ListBox、RadioButton的使用方法。

  3. PSV遊戲販售說明 • 把各種遊戲購買數量輸入，按下計算即可計算金額。 • 一般會員9折 • 白金會員8折 • 黃金會員 75折

  4. 程式開始畫面

  5. 購買使用3步驟 1.選擇需求數量 2.選擇會員資格 3.按下計算

  6. 程式使用說明 更改真鋼彈無雙(日文版)數量為1和一般會員優惠按「計算」按鈕後，得到結帳資料。

  7. 程式功能說明

  8. 版面配置屬性設定 會員優惠 GroupBox1 RadioButton1 RadioButton2 RadioButton3 價格 TextBox1 TextBox2 TextBox3 數量 TextBox4 TextBox5 TextBox6 購買明細表 ListBox1 遊戲 Label1 Label2 Label3 清除 Button2 金額 Label6 Label7 計算Button1

  9. 程式碼設計 Public Class Form1 Dim total, accTotal As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label6.Text = "$" & total & "元" Label7.Text = "累計：$" & accTotal & "元" Label6.Font = New Font("細明體", 24) Label6.ForeColor = Color.Red total = 0 accTotal = 0 End Sub

  10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click total = Val(TextBox1.Text) * Val(TextBox4.Text) + Val(TextBox2.Text) * Val(TextBox5.Text) + Val(TextBox3.Text) * Val(TextBox6.Text) If total > 2000 Then RadioButton3.Checked = True If RadioButton1.Checked = True Then total = total * 0.9 If RadioButton2.Checked = True Then total = total * 0.8 If RadioButton3.Checked = True Then total = total * 0.75 Label6.Text = "$" & total & "元"accTotal = accTotal + total Label7.Text = "累計：$" & accTotal & "元" ListBox1.Items.Add(total & "-->" & "真鋼彈無雙(日文版)" & TextBox1.Text & "*" & TextBox4.Text & "真三國無雙with 猛將傳(中文版)" & TextBox2.Text & "*" & TextBox5.Text & "GOD EATER2 製品版(日文版)" & TextBox3.Text & "*" & TextBox6.Text) End Sub

  11. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox4.Text = 0 TextBox5.Text = 0 TextBox6.Text = 0 total = 0 Label6.Text = "$" & total & "元" End SubPrivate Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChangedaccTotal = accTotal - (Val(ListBox1.SelectedItem)) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) Label7.Text = "累計：$" & accTotal & "元" End SubEnd Class

  12. 心得 Visual Basic滿有興趣的，比起其他也不會說很困難，對於初學者的我來說還算能滿快上手，雖然在編寫程式時也遇到滿多問題，但是還有個細心認真的老師，再加上這麼幽默風趣上課方式，課程也增添了許多活力，讓學習起來更快樂。

  13. 參考文獻 • 維基百科 • Visual Basic 2010 基礎必修 碁峰資訊 　　林義証 蔡文龍 張傑瑞 何叡著

More Related