1 / 15

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

計算機程式及實習 期末報告 PPT 製作. 題目 :league of legends 南台科技大學 機械工程學系 車輛一乙 學號 :4A115093 姓名 : 鄭哲明 教師 : 謝慶存. ＬｏＬ遊戲 : 主題說明與背景. 先按下 電腦會隨機亂數發放二張 LOL 牌，由玩家選擇一張卡牌，電腦會由卡牌大小來判定玩家是贏還輸，設定卡牌大小依序如下 : 若所選的牌大，會顯示 “ 你贏了 ! 按發牌鈕 重玩 ...." 若所選的牌大小相同，會顯示 “ 平手 ! 按發牌鈕重玩 ...." 若所選的牌小，會顯示 “ 你輸了 ! 按發牌鈕 重玩 ....".

rhoda-odonnell
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製作 題目:league of legends 南台科技大學 機械工程學系 車輛一乙 學號:4A115093 姓名:鄭哲明 教師:謝慶存

  2. ＬｏＬ遊戲:主題說明與背景 • 先按下 電腦會隨機亂數發放二張LOL牌，由玩家選擇一張卡牌，電腦會由卡牌大小來判定玩家是贏還輸，設定卡牌大小依序如下: • 若所選的牌大，會顯示“ 你贏了!按發牌鈕 重玩...." • 若所選的牌大小相同，會顯示“ 平手 ! 按發牌鈕重玩...." • 若所選的牌小，會顯示“ 你輸了! 按發牌鈕 重玩...."

  3. 表單設計~建立介面 btnShuffle Pic 2 Pic1 btnEnd Name=lblShow AutoSize=False

  4. 卡牌圖片檔

  5. 程式碼撰寫部分~語言操作實作 • 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

  6. 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

  7. 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結束副程式

  8. 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結束副程式

  9. 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 Sub • End Class

  10. 實際執行程式(開始遊玩) • 若所選的牌大，會顯示“ 你贏了 ! 按發牌鈕重玩 ...." • 若所選的牌大小相同，會顯示“ 平手 ! 按發牌鈕重玩...." • 若所選的牌小，會顯示“ 你輸了 ! 按發牌鈕重玩...."

  11. 如果你選到的ＬＯＬ卡太攻擊力太小，會顯示:你輸了!請按發牌鈕重玩．．．!如果你選到的ＬＯＬ卡太攻擊力太小，會顯示:你輸了!請按發牌鈕重玩．．．! 如果你選到的式神卡太攻擊力大，會顯示:你的式神贏了!請按發牌鈕 再戰!

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

  13. 攻擊力排行 威力9999 威力9998 威力9997 威力9996 威力9993 威力9991 威力1 威力99 威力98 威力97 威力96 威力10 威力3

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

  15. 參考文獻 • 1.Visual Basic2010 基礎必修課 碁峰 林義証.蔡文龍、張傑瑞.何叡.吳明哲著 • 2.Visual Basic2010 基礎必修課 CH5 教學範例題目 • 3.Google圖片 • 4.網路遊戲league of legends

More Related