Transcript 下載/瀏覽

計算機程式及實習
課堂作業之期末報告ppt製作
題目:桌遊卡牌對決
學校:南台科技大學
班級:機械工程系車輛一乙
學號:4A115008
學生:李振豪
老師:謝慶存
大綱
 題目說明:主題說明與背景
 表單(form)設計:解題分析
 程式碼撰寫:語言程式之實作方法
 實際展示程式
 心得
 資料出處
題目說明:主題說明與背景

先按發牌鈕電腦即亂數洗牌，接著在卡牌按一
下選取，電腦會自動比較所選的牌是否比未選
的牌大或小。

若所選的牌大，會顯示“贏家!! 按發牌
在開始一次~~~"

若所選的牌大小相同，會顯示“ 打
平!! 按發牌在挑戰一次~~~"

若所選的牌小，會顯示"輸家!! 按發牌
在挑戰一次~~~"
表單(form)設計:解題分析
Label1
pic1
btnShuffle
pic2
btnQuit
lblMsg
 卡牌圖片檔
程式碼撰寫:語言程式之實作方法









Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
pic1.Enabled = False
pic2.Enabled = False
pic1.SizeMode =
PictureBoxSizeMode.AutoSize
pic2.SizeMode =
PictureBoxSizeMode.AutoSize
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
pic1.Enabled = True
pic2.Enabled = True
btnShuffle.Enabled = False
pic1.Image = New Bitmap("Pokerbk.jpg")
pic2.Image = New Bitmap("Pokerbk.jpg")
Randomize()
num1 = Int(Rnd() * 13) + 1
num2 = Int(Rnd() * 13) + 1
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
lblMsg.Text = " 贏家!! 按發牌在開始"


Else
If num1 = num2 Then

lblMsg.Text = " 打平!! 按發牌在挑戰一次~~~"

Else

lblMsg.Text = "輸家!! 按發牌在挑戰一次~~~"

End If


End If

pic1.Enabled = False

pic2.Enabled = False

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 num1 > num2 Then
lblMsg.Text = " 贏家!! 按發牌在開始"


Else
If num1 = num2 Then

lblMsg.Text = " 打平!! 按發牌在挑戰一次~~~"

Else

lblMsg.Text = "輸家!! 按發牌在挑戰一次~~~"

End If


End If

pic1.Enabled = False

pic2.Enabled = False

btnShuffle.Enabled = True

End Sub
實際展示程式

各執行畫面
進入畫面
按發牌時畫面
輸家畫面
打平畫面
贏家畫面
心得

這次做得跟上學期有所不同，要設
計一個遊戲，一開始要找尋題材來做，
再來完成遊戲程式的執行。過程中我找
尋大家愛玩的桌遊卡牌來當作題材，截
圖下來一一做修改，開始打程式碼，雖
然有時常失敗，但是能夠自己寫出一個
遊戲程式就很不簡單了。這就是學習的
意義!
資料出處
Visual Basic 2010 基礎必修課 (碁峰)
 Yahoo.google圖片
 桌遊網
