投稿類別 : 資訊類篇名 : Visual Basic 2008 記憶翻牌遊戲作者 : 蔣鎧駿國立沙鹿高級工業職業學校資處處理科二年甲班賴柏臻國立沙鹿高級工業職業學校資處處理科二年甲班李嘉峻國立沙鹿高級工業職業學校資處處理科二年甲班指導老師 : 謝若湘老師

Size: px

Start display at page:

Download "投稿類別 : 資訊類篇名 : Visual Basic 2008 記憶翻牌遊戲作者 : 蔣鎧駿國立沙鹿高級工業職業學校資處處理科二年甲班賴柏臻國立沙鹿高級工業職業學校資處處理科二年甲班李嘉峻國立沙鹿高級工業職業學校資處處理科二年甲班指導老師 : 謝若湘老師"

兄僪
5 years ago
Views:

1 投稿類別 : 資訊類篇名 : 作者 : 蔣鎧駿國立沙鹿高級工業職業學校資處處理科二年甲班賴柏臻國立沙鹿高級工業職業學校資處處理科二年甲班李嘉峻國立沙鹿高級工業職業學校資處處理科二年甲班指導老師 : 謝若湘老師

2 壹前言本團隊在專題中使用 Visual Basic 2008 程式, 設計了一款為記憶翻牌的益智遊戲, 這款遊戲分為自我訓練大富翁搶救人質數學問與答四部分, 以記憶遊戲為主軸延伸其他許多不同的玩法, 主要是利用在程式設計課程中所學的知識, 來完成這個遊戲除了考驗玩家的記憶力, 也考驗玩家的數學程度, 讓玩家可以在遊戲中與藉著與電腦對決學習到許多東西, 是一項有趣又刺激的遊戲! 遊戲關卡介紹 : 自我訓練 : 玩家可以透過此一關卡提升能力, 以應付下面的三個關卡大富翁 : 玩家必須和電腦對戰, 採回合制, 有初階中階高階, 三種難度, 翻對牌即可前進一格, 隨著難度的不同, 將會有許多的變化搶救人質 : 大魔王攻占地球了, 玩家必須靠著自己的智慧與勇氣, 打倒邪惡的杰哥大魔王, 救出一個個被杰哥所擄的人質, 拯救地球數學問與答 : 本關考驗玩家的數學能力及應變能力, 玩家必須在短時間內算出數學題的答案, 並翻出正確的牌一研究動機程式語言是高職資料處理科的專業科目之一, 一年級剛開始學的時候, 覺得程式語言是相當困難的科目, 不僅語法繁雜, 還需要好的邏輯推理能力, 許多人剛開始學便吃足了苦頭, 後來老師改變了考試的方式, 以分組製作專題取代了傳統死板的紙筆測驗和上機的指定語法測驗, 老師給我們幾個月的時間, 小組間互相討論, 彼此互相幫忙, 每個人都有拿手和不拿手的部分, 分組就是希望小組間可以互補, 最後交出一個作品, 這樣的作法使更多人對程式設計這門課程不再感到恐懼, 甚至是更有興趣了, 就是這樣的原因讓我們隊絞盡腦汁, 想要創作出不一樣的東西然後盡心盡力的投注在上面, 最後完成了這一個作品作品的主軸老師一開始便訂好了, 所以我們三個人便努力想著如何才能讓我們的作品很不一樣, 經過幾天的思考後, 便決定用玩法取勝, 既然大家的題目都一樣, 只好透過多樣化的玩法來突圍了, 其中的兩個人負責想遊戲題材, 另一個人則負責美工, 我們透過分工合作, 和頻繁的彼此討論, 非得要得出最好的方案不可! 找圖片也是一門學問, 網路上的百百種, 連找圖片這種細節, 我們都非得作到完美不可, 之後程式的編排, 動畫的設計, 還有把漏洞 Bug 一一找出, 這些可都是大工程啊! 二研究目的 1

3 本團隊以 Visual Basic 2008 程式語言, 搭配小畫家來美化圖片, 並透過多次與玩家討論, 積極改善缺失的部分, 就是希望給玩家最美好的遊戲經驗, 而且透過多次的反覆思考, 找出每一個小程式最適合的寫法, 組員們也都積極參與其中, 彼此都希望能增進自己的邏輯能力, 並熟練程式的各種語法, 另外也能學到一些關於美工修圖的技能遊戲多樣化一直是本團隊追求的目標, 希望來體驗遊戲的每個人, 都能有不可思議的體驗, 說到記憶翻牌遊戲, 不再是死板一種玩法, 而是有許多刺激有趣的玩法, 讓玩家顛覆對記憶翻牌遊戲的刻版印象, 讓記憶翻牌不再是單純的一種遊戲, 肯定能讓玩家們意猶未盡, 玩了還想再玩最後, 玩家在遊玩的同時, 當然也得有些收穫, 不能只是單純的玩樂, 我們強調的是可以在玩中學習, 這是最為有效率的學習, 人如果在放鬆的狀態中學習, 不但事半功倍, 且又能輕鬆久記, 本遊戲也融入此一概念, 縱合高職範圍的的數學題目, 讓玩家在玩中學習, 藉由時間限制, 玩家不僅要算得對, 更要翻得對, 訓練玩家的數學能力, 達到快狠準的境界, 真可謂是一舉兩得啊! 三研究方法本團隊利用實作的方式, 並透過分組討論來完成此一遊戲藉由 Visual Basic 以及小畫家的實作來設計記憶翻牌專題遊戲貳正文一概念我們是如何判斷使用者翻牌對錯與否的呢? 我們抓出使用者所點 PictureBox 的數字, 判斷兩個 PictureBox 各自所存的圖片如 ( 圖 1) 所示是否一樣, 一樣即隱藏並把圖片鎖住, 讓使用者無法點擊已隱藏的圖片如 ( 圖 2) 所示, 才不至於讓使用者誤解此外, 我們也利用宣告陣列的方式將圖片存入 PictureBox 裡, 利用這個方法讓程式簡便了許多, 看起來也更清楚明瞭如 ( 圖 1) 所示 Public Class _8 張 Dim road, ans1, road1 As String Dim pic(10) As PictureBox ' 宣告 10 個 pic, 後面用來存放各自的 PictureBox Dim gamelist() As Integer = {0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5} Dim temp(1), o As Integer ' 宣告陣列 Private Sub _8 張 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label12.BackColor = Color.Transparent Me.Controls.Add(Label12) Label3.BackColor = Color.Transparent Me.Controls.Add(Label3) Label4.BackColor = Color.Transparent Me.Controls.Add(Label4) road1 = My.Computer.FileSystem.CurrentDirectory & "\ 背景 \" 2

4 Me.BackgroundImage = Image.FromFile(road1 & "3" & ".jpg") Me.BackgroundImageLayout = ImageLayout.Stretch Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Label3.Text = 時間設定.TextBox2.Text road = My.Computer.FileSystem.CurrentDirectory & "\pic6\" pic(1) = PictureBox1 pic(2) = PictureBox2 pic(3) = PictureBox3 pic(4) = PictureBox4 pic(5) = PictureBox5 pic(6) = PictureBox6 pic(7) = PictureBox7 pic(8) = PictureBox8 ' 把圖片存在各自的 PictureBox pic(9) = PictureBox9 pic(10) = PictureBox10 For i = 1 To 10 pic(i).enabled = False Next pic(1).image = Image.FromFile(road & "co" & ".jpg") pic(2).image = Image.FromFile(road & "co" & ".jpg") pic(3).image = Image.FromFile(road & "co" & ".jpg") pic(4).image = Image.FromFile(road & "co" & ".jpg") pic(5).image = Image.FromFile(road & "co" & ".jpg") pic(6).image = Image.FromFile(road & "co" & ".jpg") pic(7).image = Image.FromFile(road & "co" & ".jpg") pic(8).image = Image.FromFile(road & "co" & ".jpg") pic(9).image = Image.FromFile(road & "co" & ".jpg") pic(10).image = Image.FromFile(road & "co" & ".jpg") 圖 1 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click, PictureBox5.Click, PictureBox6.Click, PictureBox7.Click, PictureBox8.Click, PictureBox9.Click, PictureBox10.Click Dim k, ans2 As Integer ' 把 PictureBox 點擊事件都寫在一起, 就不必重複寫 ans1 = DirectCast(sender, PictureBox).Name k = Len(ans1) ' 抓出 PictureBox2 的數字 If k = 12 Then ans2 = Val(Strings.Right(DirectCast(sender, PictureBox).Name, 2)) Else ans2 = Val(Strings.Right(DirectCast(sender, PictureBox).Name, 1)) temp(o) = ans2 ' 翻出第 1 第 2 張牌 o = o + 1 pic(ans2).image = Image.FromFile(road & gamelist(ans2) & ".jpg") pic(ans2).enabled = False If o = 2 Then o = 0 If gamelist(temp(1)) = gamelist(temp(0)) Then pic(temp(1)).enabled = False pic(temp(0)).enabled = False ' 判斷兩張牌是否一樣, 兩張牌一樣隱藏, pic(temp(1)).hide() ' 不一樣則蓋回讓使用者繼續翻 ( 如 Timer4 程式所示 ) pic(temp(0)).hide() Else Timer4.Enabled = True pic(temp(1)).enabled = True pic(temp(0)).enabled = True If pic(1).enabled = False And pic(2).enabled = False And pic(3).enabled = False And pic(4).enabled = False And pic(5).enabled = False And pic(6).enabled = False And pic(7).enabled = False And pic(8).enabled = False And pic(9).enabled = False And pic(10).enabled = False Then Timer1.Enabled = False MsgBox(" 你贏了 ") ' 全翻完即勝利 3

5 Label12.Text = "" For i = 1 To 10 pic(i).image = Image.FromFile(road & "co" & ".jpg") Next For i = 1 To 10 pic(i).show() Next 時間設定.TextBox2.Text = "" 時間設定.TextBox1.Text = "" 圖 2 二分工賴柏臻 : 程式碼撰寫美工蔣鎧駿 : 程式碼撰寫小論文撰寫遊戲構思美工李嘉峻 : 程式碼撰寫遊戲構思美工三遊戲及程式介紹遊戲架構流程圖登入遊戲目錄自我訓練大富翁數學問與答搶救人質離開遊戲圖 3 ( 一 ) 自我訓練 4

遊戲畫面如圖 4 圖 5 所示圖 4 圖 5 本關可以設定翻牌時間和現牌時間, 也可以選擇張數, 使用者可以依照自己的需求選擇不同的關卡另外本關具有計時器如 ( 圖 6) 所示的功能, 隨著時間一分一秒的倒數, 增添遊戲的刺激度及困難度 Private Sub Timer1_Tick(ByVal

Text - 1) ' 倒數計時, 讓 Label3 的數字逐次遞減 If Label3.Text = 0 Then ' 當數字為 0 時,, 計時器就會停下來 Timer1.Enabled = False MsgBox(" 你輸了 ") Label12.

6 遊戲畫面如圖 4 圖 5 所示圖 4 圖 5 本關可以設定翻牌時間和現牌時間, 也可以選擇張數, 使用者可以依照自己的需求選擇不同的關卡另外本關具有計時器如 ( 圖 6) 所示的功能, 隨著時間一分一秒的倒數, 增添遊戲的刺激度及困難度 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label12.Text = " 請翻牌 " Label3.Text = Val(Label3.Text - 1) ' 倒數計時, 讓 Label3 的數字逐次遞減 If Label3.Text = 0 Then ' 當數字為 0 時,, 計時器就會停下來 Timer1.Enabled = False MsgBox(" 你輸了 ") Label12.Text = "" For i = 1 To 10 pic(i).image = Image.FromFile(road & "co" & ".jpg") Next For i = 1 To 10 pic(i).show() Next 時間設定.TextBox2.Text = "" 時間設定.TextBox1.Text = "" ( 二 ) 大富翁圖 6 遊戲畫面如圖 7 圖 8 所示本關可以享受到與電腦對戰的樂趣, 使用者必須盡可能的快速到達終點 5

如此一來即可做出好像還有另一個人陪你玩的效果了 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.

Tick p = 1 Randomize() b = Int(Rnd() * 12) + 1 ' 隨機亂數 c = Int(Rnd() * 12) + 1 Do While b = a(1) Or b = a(2) Or

a(11) Or b = a(12) Randomize() b = Int(Rnd() * 12) + 1 ' 判斷兩數字是否一樣 Loop Do While c = a(1) Or c = a(2) Or c =

7 圖 7 圖 8 與電腦對戰, 電腦是怎麼自己翻牌的呢? 本團隊利用 Randomize Int Rnd 的語法先亂數出兩個數字, 並用 Do While Loop 的語法判斷兩個翻出的數字是否一樣, 如果一樣就讓它再亂數一次如圖 9 所示, 如此一來即可做出好像還有另一個人陪你玩的效果了 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick p = 1 Randomize() b = Int(Rnd() * 12) + 1 ' 隨機亂數 c = Int(Rnd() * 12) + 1 Do While b = a(1) Or b = a(2) Or b = a(3) Or b = a(4) Or b = a(5) Or b = a(6) Or c = b Or b = a(7) Or b = a(8) Or b = a(9) Or b = a(10) Or b = a(11) Or b = a(12) Randomize() b = Int(Rnd() * 12) + 1 ' 判斷兩數字是否一樣 Loop Do While c = a(1) Or c = a(2) Or c = a(3) Or c = a(4) Or c = a(5) Or c = a(6) Or c = b Or c = a(7) Or c = a(8) Or c = a(9) Or c = a(10) Or c = a(11) Or c = a(12) Randomize() c = Int(Rnd() * 12) + 1 Loop 圖 9 ( 三 ) 搶救人質遊戲畫面如圖 10 圖 11 所示本關為娛樂性質, 使用者必須在杰哥大魔王壓過可愛的娃娃之前, 趕快把牌都配對完成, 才能夠拯救地球圖 10 圖 11 我們是如何讓圖片移動的呢? 這就是利用 Timer 來控制的啦! 宣告 a 為數值, 且用亂數 6

產生,a 就是每次圖片移動的距離如 ( 圖 12) 所示, 所以每次的時間限制都不同, 非常刺激喔! Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label3.Text = " 請翻牌 " PictureBox7.

enabled = False pic(2).enabled = False pic(3).enabled = False pic(4).enabled = False pic(5).enabled = False pic(6).enabled = False Form1.Button7.Enabled = False Form1.Label5.

8 產生,a 就是每次圖片移動的距離如 ( 圖 12) 所示, 所以每次的時間限制都不同, 非常刺激喔! Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label3.Text = " 請翻牌 " PictureBox7.Left = PictureBox7.Left + a 'a 為圖片每次移動的距離 Label1.Text = " 救救我啊! 杰哥不要 " If PictureBox7.Left > 550 Then ' 蓋過另一張圖片即失敗 Timer1.Enabled = False MsgBox(" 你輸了地球已經滅亡 ") 選擇關卡.Button4.Enabled = False pic(1).enabled = False pic(2).enabled = False pic(3).enabled = False pic(4).enabled = False pic(5).enabled = False pic(6).enabled = False Form1.Button7.Enabled = False Form1.Label5.Text = " 無法重來 " ( 四 ) 數學問與答圖 12 遊戲畫面如圖 13 圖 14 所示圖 13 圖 14 本關就要考驗使用者的數學能力了, 不僅要算數學還要翻牌, 按下開始鍵便會有數學題目等著使用者, 使用者得要多多加油才能通過考驗數學題目是一開始在程式就寫好了的如 ( 圖 15) 所示 Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Label1.Text = "( 60 * 5) / =?" ' 寫在 Timer 裡就可以決定出現的時間 ' 因為題目要按開始後才能讓玩家知道圖 15 在程式中不僅要判斷牌有沒有翻到兩張一樣如 ( 圖 16) 所示, 還要判斷翻的數字是不是 7

9 正確的如 ( 圖 17) 所示 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Timer4.Enabled = False Timer2.Enabled = False MsgBox(" 真可惜你翻錯了 ") Label12.Text = "" ' 翻的牌並沒有兩張一樣數學問與答關卡.Button1.Enabled = False pic(temp(1)).enabled = True pic(temp(0)).enabled = True 圖 16 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click, PictureBox5.Click, PictureBox6.Click, PictureBox7.Click, PictureBox8.Click, PictureBox9.Click, PictureBox10.Click, PictureBox11.Click, PictureBox12.Click, PictureBox13.Click, PictureBox14.Click, PictureBox15.Click, PictureBox16.Click Dim k, ans2 As Integer ans1 = DirectCast(sender, PictureBox).Name k = Len(ans1) If k = 12 Then ans2 = Val(Strings.Right(DirectCast(sender, PictureBox).Name, 2)) Else ans2 = Val(Strings.Right(DirectCast(sender, PictureBox).Name, 1)) temp(o) = ans2 o = o + 1 pic(ans2).image = Image.FromFile(road & gamelist(ans2) & ".jpg") pic(ans2).enabled = False If o = 2 Then o = 0 If gamelist(temp(1)) = gamelist(temp(0)) Then If gamelist(temp(1)) = 1 Then pic(temp(1)).enabled = False pic(temp(0)).enabled = False pic(temp(1)).hide() pic(temp(0)).hide() Timer4.Enabled = False MsgBox(" 恭喜你獲勝 ") Label12.Text = "" 數學問與答關卡.Button1.Enabled = False Else Timer4.Enabled = False MsgBox(" 真可惜你算錯了 ") ' 數字與題目答案不符 Label12.Text = "" 數學問與答關卡.Button1.Enabled = False pic(temp(1)).enabled = True pic(temp(0)).enabled = True Else Timer2.Enabled = True Timer4.Enabled = False 圖 17 開場動畫及目錄如圖 18 圖 19 所示 8

圖 18 圖 19 参結論一收穫及探討在這次的活動中, 小組的每一個人都對程式有了更深刻的了解並更加熟練, 在活動的尾聲, 我們發現新的使用者來使用我們程式會有不知道怎麼進行的疑惑, 於是我們在每個遊戲都特別加上附註, 讓使用者更明瞭且又容易上手在反覆試驗的過程中, 我們也有發現一些錯誤, 例如 :

一再的修改和美化, 我也要特別感謝幫我修改程式的另外兩位小組成員, 都是有大家的互相合作才能完成這個作品, 雖然我覺得我以後不會走程式設計這條路, 不過我覺得在求學的過程能多方嘗試是不錯的, 再次感謝大家, 也謝謝老師給我這次的機會李嘉峻 : 這次很榮幸可以參加小論文的比賽, 是一個珍貴的經驗,

10 圖 18 圖 19 参結論一收穫及探討在這次的活動中, 小組的每一個人都對程式有了更深刻的了解並更加熟練, 在活動的尾聲, 我們發現新的使用者來使用我們程式會有不知道怎麼進行的疑惑, 於是我們在每個遊戲都特別加上附註, 讓使用者更明瞭且又容易上手在反覆試驗的過程中, 我們也有發現一些錯誤, 例如 : 使用者如果點很快連點三張, 會有三張牌同時被翻開來, 經過再三的討論後, 我們決定把 Timer 執行時間調快, 最後問題便得以解決二成員心得蔣鎧駿 : 這次的活動真的讓我學到很多, 直到活動的最後, 我都不敢相信我寫出了這些東西, 當然這並不是我一個人完成的, 經過老師和許多熱心同學的幫忙, 一再的修改和美化, 我也要特別感謝幫我修改程式的另外兩位小組成員, 都是有大家的互相合作才能完成這個作品, 雖然我覺得我以後不會走程式設計這條路, 不過我覺得在求學的過程能多方嘗試是不錯的, 再次感謝大家, 也謝謝老師給我這次的機會李嘉峻 : 這次很榮幸可以參加小論文的比賽, 是一個珍貴的經驗, 過去都沒有類似的經驗, 這次的小論文也讓我學到在課堂上所不學到的東西, 也讓我意識到團隊合作的重要性, 透過團隊間的溝通討論才有辦法製作出這次的小論文, 如果光靠我一個人肯定內容會是非常無趣又單調, 雖然寫程式非常的累人, 但是可以訓練我們的邏輯能力, 對未來的求學或是就業都是有幫助的, 再次感謝大家, 也謝謝老師給我這次的機會 9

11 賴柏臻 : 這次分組作品製作的過程中遇到了一些困難和阻礙, 但一次又一次的討論和改善, 終於得到了一個最令人滿意的成果, 而其中一起研究修正的經驗真是非常的難得且寶貴, 感謝我的另外兩位隊友一起互相求進求精的參與和投注心力的製作, 也感謝老師給我們能夠一起參加這次小論文的機會! 肆引註資料一參考資料黃建庭 (2011) 程式設計使用 Visual Basic 2010 新北市 : 全華吳明哲張志成 (2008) Visual Basic 2008 學習範本台北市 : 松崗張俊欽 (2010) Visual Basic 2008 程式設計實務台北市 : 台科大二引用素材 VB 範例網 2015 年 1 月 25 日, 取自妖怪翻牌小遊戲天堂 2014 年 12 月 12 日, 取自 10

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1