題目 :league of legends南台科技大學機械工程學系

車輛一乙學號 :4A115093姓名 : 鄭哲明教師 : 謝慶存

ＬｏＬ遊戲 : 主題說明與背景• 先按下 電腦會隨機亂數發放二張 LOL牌，由玩家選擇一張卡牌，

電腦會由卡牌大小來判定玩家是贏還輸，設定卡牌大小依序如下 :• 若所選的牌大，會顯示“ 你贏了 ! 按發牌鈕 重玩 ...."• 若所選的牌大小相同，會顯示“ 平手 ! 按發牌鈕重玩 ...."• 若所選的牌小，會顯示“ 你輸了 ! 按發牌鈕 重玩 ...."

表單設計 ~ 建立介面

Pic 1Pic 2

Name=lblShowAutoSize=False

btnShuffle

btnEnd

卡牌圖片檔

程式碼撰寫部分 ~ 語言操作實作Public Class Form1 定義 Form1提供公用類別 Dim num1, num2 As Integer 宣告 num1, num2 為整數 Private Sub Form1_Load(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles MyBase.Load pic1.Enabled = False 設定 pic1屬性 . 執行為非 pic2.Enabled = False 設定 pic2屬性 . 執行為非 pic1.SizeMode = PictureBoxSizeMode.AutoSize設定 pic1屬性 . 大小為自動 pic2.SizeMode = PictureBoxSizeMode.AutoSize設定 pic2屬性 . 大小為自動 pic1.Image = New Bitmap(“Pokerbk.jpg”) 載入圖片 pic2.Image = New Bitmap(“Pokerbk.jpg”) 載入圖片 lblMsg.Text = “ 按發牌鈕遊戲開始 ..” 設定標籤文字 End Sub

Private Sub btnShuffle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShuffle.Click

使用者 btnShuffle_Click私用副程式 pic1.Enabled = True 設定 PIC1屬性 . 執行為是 pic2.Enabled = True 設定 PIC2屬性 . 執行為是 btnShuffle.Enabled = False 設定按鈕屬性 . 執行為是 pic1.Image = New Bitmap(“Pokerbk.jpg”) 載入圖檔 pic2.Image = New Bitmap(“Pokerbk.jpg”) 載入圖檔 Randomize() 產生亂數 num1 = Int(Rnd() * 13) + 1 產生亂數 1~13 num2 = Int(Rnd() * 13) + 1 產生亂數 1~13 lblMsg.Text = “ 請在撲克牌上按一下選取 ..” 設定標籤文字 End Sub

• Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click

• pic1.Image = New Bitmap(“Poker” & num1 & “.jpg”) 載入圖檔

• pic2.Image = New Bitmap(“Poker” & num2 & “.jpg”) 載入圖檔

• If num1 > num2 Then 若 num1>num2則• lblMsg.Text = “ 你贏了 ! 按發牌鈕 重玩 ....” 設定標籤文字• Else 否則• If num1 = num2 Then 若 num1>num2則• lblMsg.Text = “ 平 手 ! 按發牌鈕 重玩 ....” 設定標籤文字• Else 否則• lblMsg.Text = “ 你輸了 ! 按發牌鈕 重玩 ...." 設定標籤文

字• End If 結束 IF區塊• End If 結束 IF區塊• pic1.Enabled = False 設定 pic1屬性. 執行為非• pic2.Enabled = False 設定 pic2屬性. 執行為非• btnShuffle.Enabled = True 設定按鈕屬性. 執行為是• End Sub 結束副程式

Private Sub pic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic2.Click

pic1.Image = New Bitmap(“Poker” & num1 & “.jpg”) 載入圖檔

pic2.Image = New Bitmap(“Poker” & num2 & “.jpg”) 載入圖檔

If num2 > num1 Then 若 num1>num2則 lblMsg.Text = “ 你贏了 ! 按發牌鈕 重玩 ....” 設定標籤文字 Else 否則 If num2 = num1 Then 若 num1>num2則 lblMsg.Text = “ 平 手 ! 按發牌鈕 重玩 ....” 設定標籤文字 Else 否則 lblMsg.Text = “ 你輸了 ! 按發牌鈕 重玩 ....” 設定標籤文

字 End If 結束 IF區塊 End If 結束 IF區塊 pic1.Enabled = False 設定 pic1屬性 . 執行為非 pic2.Enabled = False 設定 pic1屬性 . 執行為非 btnShuffle.Enabled = True 設定按鈕屬性 . 執行為是 End Sub 結束副程式

Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click

使用者 btnQuit_Click離開按鈕事件私用副程式 End End Sub結束 Form1公用類別程式

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

Process.Start(“https://play.google.com/store/apps/details?id=com.zynga.zjayakashi&hl=zh_TW”) 超連結網址

End SubEnd Class

實際執行程式 ( 開始遊玩 )

若所選的牌大，會顯示“ 你贏了 ! 按發牌鈕重玩 ...."若所選的牌大小相同，會顯示“ 平手 ! 按發牌鈕重玩 ...."若所選的牌小，會顯示“ 你輸了 ! 按發牌鈕重玩 ...."

如果你選到的ＬＯＬ卡太攻擊力太小，會顯示 : 你輸了 ! 請按發牌鈕重玩．．． !

如果你選到的式神卡太攻擊力大，會顯示 : 你的式神贏了 ! 請按發牌鈕 再戰 !

如果你選到的卡一樣，會顯示 : 平手 ! 請按發牌鈕 重玩 !

攻擊力排行

威力 9999 威力 9998 威力 9997 威力 9996 威力 9993 威力 9991

威力 1

威力 99 威力 98 威力 97 威力 96 威力 10 威力 3

心得感言ＶＢ這門課真是讓我又愛又恨，一方面覺得他好玩．以前也對寫成是有一點興趣；另一方面卻又讓我一個頭兩個大，畢竟沒有接觸過。不僅要記一些程式碼，考慮因所有可能發生的因素，才可以完完整整的寫好一個程式。尤其在偵錯程式碼錯誤的那一刻，真是讓人膽顫心驚 ...記得有一次好不容易打好的程式就因為圖片沒有把檔名改好．導致程式讀不到圖檔，花了我一節課才把問題找出來。

謝慶存老師在這ｖｂ這上面真的教了我們很多以前所學習不到的知識與技巧。

參考文獻1.Visual Basic 2010 基礎必修課 碁峰 林義証 . 蔡文龍、張傑瑞 . 何叡 . 吳明哲著

2.Visual Basic 2010 基礎必修課 CH5 教學範例題目

3.Google圖片

4.網路遊戲 league of legends