下載/瀏覽

Transcript 下載/瀏覽

英雄聯盟殺人系統
南台科技大學
機械工程系
車輛一甲
學號:4A015107
姓名:金克帆
老師:謝慶存
殺人賞金計算


學習重點
ListBox、RadioButton的使用方法。
賞金計算總結
試設計賞金計算系統，填寫殺人數再按下計算鈕之
後，即會顯示獲得總金額。按「清除」按鈕，再
輸入數量，並點選「滿一百*1.2」，再按下「計
算」鈕，得到後的那一筆總金額資料。
附加練習

程式加入助攻加5元功能，每一次助攻都必
須加5元，助攻都只加5元。
程式開始畫面-改牛肉飯數量

改一殺數量為2 ，二連殺數量為1 ，三連
殺數量為1按「計算」按鈕後，得到第1筆
總結資料。
再輸入雞肉飯的數量為2

按「清除」按鈕，清除剛剛的資料後，再輸入
一殺的數量為50，並點選「滿三百*2.0」，
再按下「計算」鈕，得到打*2後的那一筆
30000元資料。

假設30000元這筆資料是錯誤的，必須刪
除掉。使用者只需直接以滑鼠點選這筆資
料，這筆資料就會自動被刪除，同時，累
計值會自動把這筆資料的30000元，從累
計金額中扣除。
版面配置
屬性設定
物件
屬性
設定
說明
TBoxPrice1 Text
“”
一殺價格
TBoxPrice2 Text
“”
二連殺價格
TBoxPrice3 Text
“”
三連殺價格
TBoxQty1 Text
一殺數量
TBoxQty2 Text
二連殺數量
TBoxQty3 Text
三連殺數量
RadioButton
1
Text
吃兵100*1.2
RadioButton2
Text
吃兵滿200*1.5
RadioButton3
Text
吃兵滿300*2.0
Button1
Text
清除
Button2
Text
計算
ListBox1
由程式控制
程式碼設計
1
Public Class Form1
2
Dim total, accTotal As Integer
3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
4
Label6.Text = "$" & total & "元"
5
Label7.Text = "累計：$" & accTotal & "元"
6
Label6.Font = New Font("新細明體", 24)
7
Label6.ForeColor = Color.Red
8
total = 0
9
accTotal = 0
10
End Sub
12
13
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text)
* Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text)
14
15
If total > 2000 Then RadioButton3.Checked = True
16
If RadioButton1.Checked = True Then total = total * 1.2
17
If RadioButton2.Checked = True Then total = total * 1.5
18
If RadioButton3.Checked = True Then total = total * 2.0
19
Label6.Text = "$" & total & "元"
20
accTotal = accTotal + total
21
Label7.Text = "累計：$" & accTotal & "元"
22
23
ListBox1.Items.Add(total & "-->" & "豬肉" & TBoxPrice1.Text & "*" &
TBoxQty1.Text & "雞肉" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "牛肉"
& TBoxPrice3.Text & "*" & TBoxQty3.Text)
End Sub
25
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
26
TBoxQty1.Text = 0
27
TBoxQty2.Text = 0
28
TBoxQty3.Text = 0
29
total = 0
30
Label6.Text = "$" & total & "元"
31
End Sub
33
Private Sub ListBox1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp
34
accTotal = accTotal - (Val(ListBox1.SelectedItem))
35
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
36
Label7.Text = "累計：$" & accTotal & "元"
37
38
End Sub
End Class
程式說明






第2行定義總金額及累計金額的參數。
第13行求出單筆交易的總金額。
第15行讓總金額滿300時RadioButton3 (
即滿300＊2.0鈕)自動選取。
第16-18行處理折扣動作。
第20行累加至累計金額。
第22行把單筆交易記錄至ListBox1中。


第25-31行為「清除」按鈕的歸零動作。
第33-38行處理利用滑鼠在ListBox1上點
選時，放開滑鼠左鍵的刪除記錄動作。
• 第34行扣除該筆記錄在累加值中的數值。
• 第35行實際於ListBox1中刪除，刪除該筆記錄。
• 第36行把更正後的累加值，再度顯示出來。
附加練習
程式加入助攻加5元功能，每一次助攻都必須加5元，助
攻都只加5元。
 程式第14行加入if statement 即可
If total <500 Then
If CheckBox1.Checked Then total1 =
(Val(TBoxPrice1.Text) + 5) * Val(TBoxQty1.Text)
If CheckBox2.Checked Then total2 =
(Val(TBoxPrice2.Text) + 5) * Val(TBoxQty2.Text)
If CheckBox3.Checked Then total3 =
(Val(TBoxPrice3.Text) + 5) * Val(TBoxQty3.Text)
total = total1 + total2 + total3
End If

心得
在謝慶存老師教導下讓我學會如
何應用VB來做屬於自己的程式
這讓我非常的有成就感
參考文獻
1.Visual Basic 2010實力養成暨評量解題
秘笈桂思強編碁峰 2010
2.Visual Basic 2010教學範本古頤榛編著
碁峰資訊2011
3.Visual Basic程式設計余忠潔全華2010
4.學會寫程式Visual Basic 2008( Idea 3
小組碁峰 2010
5.Visual Basic 2008 程式設計作者：葉倍
宏全華2008