1 / 15

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

I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.

## PowerPoint Slideshow about ' 計算機程式及實習 期末報告 PPT 製作' - rhoda-odonnell

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製作

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

btnShuffle

Pic 2

Pic1

btnEnd

Name=lblShow

AutoSize=False

• 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公用類別程式
• End Sub
• End Class

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

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

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

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