計算機程式及實習 期末報告 題目:超級猜一猜

Presentation on theme: "計算機程式及實習 期末報告 題目:超級猜一猜"— Presentation transcript:

1 計算機程式及實習 期末報告 題目:超級猜一猜
南台科技大學 機械工程系 車輛一乙 4A115040周秉君 指導老師:謝慶存

2 超級猜一猜遊戲操作說明 按下級別按鈕選出兩個一樣的圖片 全翻出來就會顯示你贏了 如果翻出一對不同的牌就會顯示你翻錯了。

3 開始畫面

4 檢視畫面

5 過關畫面

6 遊戲圖片檔

7 程式說明 Public Class Form1 '宣告n(0)~n(8)整數陣列，用來表示8個圖片方塊所表示的值
Dim n() As Integer = {0, 1, 2, 4, 3, 3, 1, 4, 2} '宣告p(0)~p(8)圖片方塊控制項陣列，p(0)省略不用，p(1)~p(8)用來代表pic1~pic8 Dim p(8) As PictureBox '宣告hitPic表示第一次翻牌的圖片方塊、hitPic2表示第二次翻牌的圖片方塊 Dim hitPic1, hitPic2 As PictureBox 't1字串存放第一次翻牌圖片所取得的值 't2字串存放第二次翻牌圖片所取得的值 Dim t1, t2 As String Dim isFirst As Boolean = True 'isFirst表示第一次按下圖片的旗標 Dim timer1Tot As Integer '表示timer1計時器執行的次數 Dim timer2Tot As Integer '表示timer2計時器執行的次數 Dim level As Integer '表示等級，2為高級,5為中級,10為初級 Dim tot As Integer '答對的組數，若tot為4表示過關

8 程式說明 'Form1表單載入時，即觸發Form1_Load事件處理函式
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink lblShow.Text = "請按 [開始] 鈕進行遊戲" lblTime.Text = "" '指定Timer1每一秒執行Timer1_Tick事件處理程序一次 Timer1.Interval = 1000 '指定Timer2每一秒執行Timer1_Tick事件處理程序一次 Timer2.Interval = 1000 '分別將pic1~pic8指定給p(1)~p(8)，表示p(1)~p(8)可以操作pic1~pic8控制項 p(1) = pic1 p(2) = pic2 p(3) = pic3 p(4) = pic4 p(5) = pic5 p(6) = pic6 p(7) = pic7 p(8) = pic8

9 程式說明 For i = 1 To n.GetUpperBound(0)
p(i).Image = New Bitmap("q.jpg") '使pic1~pic8顯示q.jpg p(i).Tag = n(i) 'pic1~pic8的Tag屬性皆設為n(1)~n(8) '使圖片隨pic1~pic8的大小做縮放 p(i).SizeMode = PictureBoxSizeMode.StretchImage '使pic1~pic8的框線樣式以3D框線顯示 p(i).BorderStyle = BorderStyle.Fixed3D p(i).Enabled = False 'pic1~pic8失效 Next End Sub

10 程式說明 '定義pic1_Click事件處理函式，以提供給pic1~pic8的Click事件使用
Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic8.Click, pic7.Click, pic6.Click, pic5.Click, pic4.Click, pic3.Click, pic2.Click, pic1.Click '第一次翻牌 If isFirst Then hitPic1 = CType(sender, PictureBox) '將第一次翻牌的圖片方塊指定給hitPic1 t1 = hitPic1.Tag.ToString '將目前翻牌圖片的值指定給t1 '顯示目前翻牌的圖示 hitPic1.Image = New Bitmap(hitPic1.Tag.ToString & ".jpg") isFirst = False '將isFirst設為False表示目前己結束第二次翻牌 Else '第二次翻牌 hitPic2 = CType(sender, PictureBox) '將第二次翻牌的圖片方塊指定給hitPic t2 = hitPic2.Tag.ToString '將目前翻牌圖片的值指定給t2 hitPic2.Image = New Bitmap(hitPic2.Tag.ToString & ".jpg") isFirst = True '將isFirst設為True表示目前已結束第二次翻牌 '若t1等於t2，表示所翻牌兩個圖片的Tag屬性相同，即兩者的圖示相同 If t1 = t2 Then '使目前翻牌兩個圖片失效 hitPic1.Enabled = False hitPic2.Enabled = False tot += 1 '答對組數加1 My.Computer.Audio.Play("CHIMES1.WAV", AudioPlayMode.Background) End If

11 記憶大考驗程式說明 '若t1不等於t2，表示所翻牌兩個圖片的Tag屬性不同，即兩者的圖示不相同 If t1 <> t2 Then
MsgBox("答錯了^_|||") '將第一次和第二次翻牌的圖示以q.jpg顯示 hitPic1.Image = New Bitmap("q.jpg") hitPic2.Image = New Bitmap("q.jpg") End If '若答對組數為4，即表示過關 If tot = 4 Then 'btn1. btn2. btn3鈕啟用 btn1.Enabled = True btn2.Enabled = True btn3.Enabled = True Timer1.Enabled = False 'Timer1計時器停止 Timer2.Enabled = False 'Timer2計時器停止 If level = 1.5 Then MsgBox("過關了...果然是記憶高手") ElseIf level = 3Then MsgBox("過關了...你的記憶力還不錯") ElseIf level = 5 Then MsgBox("過關了...你的記憶力還馬馬乎乎") My.Computer.Audio.Play(“APPLAUSE.WAV”, AudioPlayMode.Background) '播放股掌聲 End Sub

12 記憶大考驗程式說明 '進行遊戲的GameStart()程序 Private Sub GameStart()
My.Computer.Audio.Stop() '停止播放聲音 level = timer1Tot btn1.Enabled = False 'btn1鈕失效 btn2.Enabled = False 'btn2鈕失效 btn3.Enabled = False 'btn3鈕失效 Timer1.Enabled = True '啟動Timer1計時器 timer2Tot = 'timer2Tot的計時遊戲時間 t1 = "" '將t1第一次翻牌圖片所取得的值設為空白 t2 = "" '將t2第二次翻牌圖片所取得的值設為空白 tot = '將答對的組數設為0，若tot為4表示過關 hitPic1 = Nothing '將hitPic1第一次翻牌的圖片方塊設為Nothing hitPic2 = Nothing '將hitPic2第一次翻牌的圖片方塊設為Nothing lblShow.Text = "你可以檢視的時間還有 " & timer1Tot & "秒" lblTime.Text = "" '使pic1~pic8顯示1~4.jpg四個圖示 For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap(n(i) & ".jpg") Next End Sub

13 程式說明 Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click timer1Tot = '設定timer1Tot的倒數時間為1.5秒 GameStart() End Sub Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click timer1Tot = '設定timer1Tot的倒數時間為3秒 Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click timer1Tot = '設定timer1Tot的倒數時間為5秒

14 程式說明 'Timer1計時器啟動時會觸發Timer1_Tick事件
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick timer1Tot -= 1 'timer1Tot減1即倒數秒數 lblShow.Text = "你可以檢視的時間還有 " & timer1Tot & "秒" If timer1Tot = 0 Then '若timer1Tot倒數秒數為0則執行下面敘述 Timer1.Enabled = False 'Timer1失效 lblShow.Text = "" Timer2.Enabled = True 'Timer2啟動 For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap("q.jpg") 'pic1~pic8顯示q.jpg 'pic1~pic8圖片啟用 p(i).Enabled = True Next End If End Sub

15 程式說明 'Timer2計時器啟動時會觸發Timer2_Tick事件
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick timer2Tot += 1 'timer2Tot加1即遊戲時間加1 lblTime.Text = "遊戲時間：" & timer2Tot & " 秒" 'timer2Tot遊戲時間到30時，即執行下面敘述馬上停止遊戲 If timer2Tot = 30 Then Timer2.Enabled = False 'Timer2失效 'btn1, btn2, btm3啟用 btn1.Enabled = True btn2.Enabled = True btn3.Enabled = True MsgBox("時間到，闖關失敗") lblShow.Text = "請按 [開始] 鈕進行遊戲" lblTime.Text = "" For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap("q.jpg") 'pic1~pic8顯示q.jpg p(i).Enabled = False 'pic1~pic8圖片失效 Next End If End Sub

16 心得 這次做遊戲程式讓我印象深刻，因為我自己剛開始的遊戲程式有很多問題，還好有很多人幫助，我這個報告才能完成程式也才能順利製作，但是我也明白我還有很多要學習的並且要多利用手邊資源才能摸清處程式的寫法，或是多看看網路上跟老師所提供的參考，這些資源只要有心都是可以找到的! 報告讓我了解到有些事情要靠大家通力合作來執行地，所以我還要變得更強去幫助他們才行，團結合作的學習絕對比一個人自己摸索的快!

17 參考文獻 Visual basic 2010基礎必修課 碁峰出版 GOOGLE 收尋引擎