計算機程式及實習
This presentation is the property of its rightful owner.
Sponsored Links
1 / 15

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


  • 128 Views
  • Uploaded on
  • Presentation posted in: General

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

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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


Ppt

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

題目:league of legends

南台科技大學

機械工程學系

車輛一乙

學號:4A115093

姓名:鄭哲明

教師:謝慶存


Ppt

LoL遊戲:主題說明與背景

  • 先按下 電腦會隨機亂數發放二張LOL牌,由玩家選擇一張卡牌,電腦會由卡牌大小來判定玩家是贏還輸,設定卡牌大小依序如下:

  • 若所選的牌大,會顯示“ 你贏了!按發牌鈕 重玩...."

  • 若所選的牌大小相同,會顯示“ 平手 ! 按發牌鈕重玩...."

  • 若所選的牌小,會顯示“ 你輸了! 按發牌鈕 重玩...."


Ppt

表單設計~建立介面

btnShuffle

Pic 2

Pic1

btnEnd

Name=lblShow

AutoSize=False


Ppt

卡牌圖片檔


Ppt

程式碼撰寫部分~語言操作實作

  • 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


Ppt

  • 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


Ppt

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


Ppt

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


Ppt

  • 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


Ppt

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

  • 若所選的牌大,會顯示“ 你贏了 ! 按發牌鈕重玩 ...."

  • 若所選的牌大小相同,會顯示“ 平手 ! 按發牌鈕重玩...."

  • 若所選的牌小,會顯示“ 你輸了 ! 按發牌鈕重玩...."


Ppt

如果你選到的LOL卡太攻擊力太小,會顯示:你輸了!請按發牌鈕重玩...!

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


Ppt

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


Ppt

攻擊力排行

威力9999

威力9998

威力9997

威力9996

威力9993

威力9991

威力1

威力99

威力98

威力97

威力96

威力10

威力3


Ppt

心得感言

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

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


Ppt

參考文獻

  • 1.Visual Basic2010 基礎必修課 碁峰

    林義証.蔡文龍、張傑瑞.何叡.吳明哲著

  • 2.Visual Basic2010 基礎必修課 CH5 教學範例題目

  • 3.Google圖片

  • 4.網路遊戲league of legends


  • Login