1 / 14

計算機程式及實習 期末報告 ppt 製作

計算機程式及實習 期末報告 ppt 製作. 題目： 南 台咖啡廳 學校 : 南台科技大學 系所 : 機械工程系 班級 : 自控一甲 學號 : 4A212071 學生 : 林 育民 指導老師 : 謝慶存. 南台 專賣店. 學習重點 Label 、 Button 、 PictureBox 、 TextBox 、 ListBox 、 GroupBox 、 RadioButton 之 使用方法. 題目說明 : 南台 專賣店 -1.

neylan
Download Presentation

計算機程式及實習 期末報告 ppt 製作

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製作 題目：南台咖啡廳 學校 : 南台科技大學 系所 : 機械工程系 班級 : 自控一甲 學號 :4A212071 學生 :林育民 指導老師 : 謝慶存

  2. 南台專賣店 • 學習重點 • Label、Button、PictureBox、TextBox、ListBox、GroupBox、RadioButton之使用方法

  3. 題目說明 :南台專賣店-1 • 設計黑心專賣店結帳系統，填寫數量再按下計算鈕之後，即會顯示結帳總金額。按「清除」按鈕，再輸入數量，並點選「VIP打六折」，再按下「計算」鈕，得到打六折後的那一筆總金額資料。

  4. 題目說明 :南台專賣店-2 • 設計黑心專賣店結帳系統，填寫數量再按下計算鈕之後，即會顯示結帳總金額。按「清除」按鈕，再輸入數量，並點選「POWERVIP打對折」，再按下「計算」鈕，得到打對折後的那一筆總金額資料。

  5. 版面簡介 機台(Label4)： 圖片： PictureBox1 PictureBox2 PictureBox3 文字： Label1 Label2 Label3 價錢(Label5)： TextBoxpirice1 TextBoxpirice1 TextBoxpirice1 數量(Label6)： TextBoxQty1 TextBoxQty2 TextBoxQty3 促銷(GroupBox1)： RadioButton1 RadioButton2 Button1 Button2 金額： Label7 Label8 價錢計算： ListBox1

  6. 物件說明及功能-1 物件 屬性 說明 PictureBox1text 圖片 PictureBox2text 圖片 PictureBox3 text 圖片 TextBoxPrice1 text XBOX360價錢 TextBoxPrice2 textPSVITA價錢 TextBoxPrice3 textPS3價錢

  7. 物件說明及功能-2 物件 屬性 說明 TextBox1QtytextXBOX360數量 TextBox2QtytextPSVITA數量 TextBox3Qty textPS3數量 GroupBox1 text 在周圍顯示框架 RadioButton1 text VIP 打六折 RadioButton2 text Power Vip打對折

  8. 物件說明及功能-3 物件 屬性 說明 ListBox1 由程式控制 Button1 text 清除 Button2 test 計算

  9. 程式碼設計-1 • 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 • Label7.Text = "$" & total & "元﹐" • Label8.Text = "累O計p：G$" & accTotal & "元﹐" • Label7.Font = New Font("標D楷P￠體e", 24) • Label7.ForeColor = Color.Red • total = 0 • accTotal = 0 • End Sub

  10. 程式碼設計-2 • Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click • total = Val(TextBoxprice1.Text) * Val(TextBoxQty1.Text) + Val(TextBoxprice2.Text) * Val(TextBoxQty2.Text) + Val(TextBoxprice3.Text) * Val(TextBoxQty3.Text) • If RadioButton1.Checked = True Then total = total * 0.6 • If RadioButton2.Checked = True Then total = total * 0.5 • ListBox1.Items.Add("總`價u" & total & "-->" & "XBOX360" & TextBoxprice1.Text & "*" & TextBoxQty1.Text & "PSVITA" & TextBoxprice2.Text & "*" & TextBoxQty2.Text & "PS3" & TextBoxprice3.Text & "*" & TextBoxQty3.Text) • accTotal = accTotal + total • Label7.Text = "$" & total & "元﹐" • Label8.Text = "累O計p：G$" & accTotal & "元﹐" • End Sub

  11. 程式碼設計-3 • Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click • TextBoxQty1.Text = 0 • TextBoxQty2.Text = 0 • TextBoxQty3.Text = 0 • ListBox1.Items.Clear() • total = 0 • accTotal = 0 • Label7.Text = "$" & "0" & "元﹐" • Label8.Text = "累O計p：G$" & "0" & "元﹐" • End Sub • End Class

  12. 程式碼說明-1 第1 定義總金額及累計金額的參數。 第2 定義總價錢的算法 第3 點選VIP享有六折優惠 第4Power VIP 享有對折優惠 第5 在ListBox1顯示出計算過程 第6 累計算法 第7 顯示總價錢的方法 第8 顯示累計價錢的方法 第10 為清除數量之框格 第11 累計歸零 第12 總價顯示歸零 第13 計積顯示歸零

  13. 心得 • Visual Basic是剛接觸到的科目，所以難免會覺得很難明白意思，可是只要多看多讀，多少還是會懂一些東西，身旁的同學也會互相幫忙，所以這門課學得還算可以。

  14. 參考文獻 • Visual Basic2010 基礎必修課 • 購物天堂 日本遊戲機台 • YAHOO奇摩拍賣 • 老師的用心教導與上課經驗 • END

More Related