下載/瀏覽

Transcript 下載/瀏覽

期末報告
計算機程式及實習
題目:試試手氣
學校：南臺科技大學
系所：機械工程系
班級：自控一甲
學號：4A212064
姓名：林伯瑋
指導老師：謝慶存
題目說明:主題說明與背景
先按Start鈕電腦即亂數洗牌，接著在圖片按一下選取，電腦會自
動比較所選的牌
若所選的牌不同，會顯示 “繼續加油"
若所選的牌相同，會顯示 “真的太棒了"
若所選的牌不同，會顯示 “繼續加油"
表單(form)設計:建立輸出入介面
btn2
label1
pic2
LlblMsg
btn1
pic1
程式碼撰寫:語言程式之實作方法-1
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 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
'使用者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() * 8) + 1 ‘產生亂數1-8
num2 = Int(Rnd() * 8) + 1 ‘產生亂數1-8
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 ‘設定圖片方塊屬性.執行為非
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 num2 > num1 Then
lblMsg.Text = “繼續加油”
Else
If num2 = num1 Then
lblMsg.Text =“真的太棒了"
Else
lblMsg.Text = “繼續加油"
End If
End If
pic1.Enabled = False
pic2.Enabled = False
btnShuffle.Enabled = True
End Sub
使用者btnQuit_Click離開按鈕事件私用副程式
Private Sub (ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnQuit.Click
End
End Sub
End Class ‘結束 Form1公用類別程式
實際執行程式
若所選的牌不同，會顯示 “ 繼續加油 ”
若所選的牌相同，會顯示 “ 真的太棒了 ”
若所選的牌不同，會顯示 “ 繼續加油 ”
心得感言
從不懂程式一直到現在可以自己作出一個
小遊戲真的不容易，可見外面所設計的遊戲及
網頁是花了多大的工夫，作遊戲時常常碰到瓶
頸，所以跟同學自己組成一小組來討論，經過
一番努力後終於做出一個可以玩的遊戲，雖然
遊戲很陽春不比外面的遊戲，但還是讓我們很
有成就感，這也要感謝老師這一年教了我們那
麼多。
參考文獻
1.Visual Basic 2008實力養成暨評量解題秘笈桂思
強編碁峰 2010
2.Visual Basic 2008教學範本古頤榛編著碁峰資訊
2009
3.Visual Basic 6中文版教學手冊古頤榛碁峰 2006
4.學會寫程式Visual Basic 2008( Idea 3小組碁峰
2010
5.Visual Basic 2008 程式設計作者：葉倍宏全華
2008
6.Visual Basic程式設計余忠潔全華2008
7.Visual Basic 2005程式設計許華菁普林斯頓2008
8.Visual Basic 2008基礎必修課(第二版 )