壹前言使用 VB.NET 模擬傳統暗棋遊戲一研究動機暗棋是隱藏著訊息的中國象棋變體, 它是一款老少咸宜的遊戲為何我們會想製作此款遊戲? 因為每當放學經過阿公家時, 總會看見鄰居圍在旁邊觀棋, 有感於洗棋與排棋過程麻煩, 為了加速遊戲時間與增加其方便性, 所以我們想撰寫能在電腦中輕鬆下暗

Size: px

Start display at page:

Download "壹前言使用 VB.NET 模擬傳統暗棋遊戲一研究動機暗棋是隱藏著訊息的中國象棋變體, 它是一款老少咸宜的遊戲為何我們會想製作此款遊戲? 因為每當放學經過阿公家時, 總會看見鄰居圍在旁邊觀棋, 有感於洗棋與排棋過程麻煩, 為了加速遊戲時間與增加其方便性, 所以我們想撰寫能在電腦中輕鬆下暗"

电浦
5 years ago
Views:

1 投稿類別 : 資訊類篇名 : 使用 VB.NET 模擬傳統暗棋遊戲作者 : 梁盛維高雄市立高級工業職業學校綜高三甲陳昱安高雄市立高級工業職業學校綜高三甲陳昱均高雄市立高級工業職業學校綜高三甲指導老師 : 王志偉老師 1

2 壹前言使用 VB.NET 模擬傳統暗棋遊戲一研究動機暗棋是隱藏著訊息的中國象棋變體, 它是一款老少咸宜的遊戲為何我們會想製作此款遊戲? 因為每當放學經過阿公家時, 總會看見鄰居圍在旁邊觀棋, 有感於洗棋與排棋過程麻煩, 為了加速遊戲時間與增加其方便性, 所以我們想撰寫能在電腦中輕鬆下暗棋的程式, 而且若能自行設計遊戲出來想必定很有新鮮感在現今網路發達的時代, 於是我們以暗棋這款小遊戲作為專題製作的題目, 將它以 VB.NET 語言撰寫出來二研究目的 1. 討論傳統暗棋的演算法 2. 透過傳統暗棋的遊戲規則來了解 VB.NET 語法的使用 3. 使用 VB.NET 實際模擬出傳統暗棋的遊戲三研究方法 1. 設計準備 : 繪製所需棋子圖片 2. 棋子使用方式 : 上網搜尋傳統暗棋的規則 3. 程式設計 : 利用自行設計的棋子圖片和搜尋到的暗棋規則, 模擬出傳統暗棋小遊戲貳正文一暗棋簡介暗棋的棋子不是放在黑線上, 而是放在格子內, 共 4X8 格, 黑棋紅棋各 16 顆 ( 表一 ) 遊戲開始時, 將所有棋子背面朝上洗亂再放置棋盤上未翻開的棋子稱為暗棋, 已翻開的棋子則稱為明棋, 雙方選擇一人為先手, 一人為後手先手須翻開三十二隻棋子之一, 若翻出黑色則先手為黑方, 後手為紅方 ; 反之, 翻出紅色則先手為紅方, 後手為黑方雙方輪流, 每次可選擇翻開隨機一個暗棋或移動自己一個明棋 ( 圖一 ) 勝負辦定如下 : 1. 若某方十六隻棋子均被吃完, 稱為輸棋, 該方判敗 2. 若雙方無法分出勝負, 雙方判和 2

3 表一棋子圖片種類棋子使用 VB.NET 模擬傳統暗棋遊戲數量黑紅各 1 黑紅各 2 黑紅各 2 黑紅各 2 黑紅各 2 黑紅各 2 黑紅各 5 圖一開局畫面二程式碼 ( 一 ) 棋子開局擺放棋子處理的方面, 我們使用了 PictureBox 這個物件來表示, 而用 Location 這個屬性來放置棋子的位子我們用取亂數的方式模擬棋子隨機擺放, 讓每次開局的旗子位置都不一樣 ( 圖二 ) 3

$Ran_Chess.Next(32) 'x 表示 Random 物件所取之亂數 For n As Integer = 0 To 31 ' 偵測 x 是否已在 r 中出現, 有則重新取亂數 If x = r(n) Then GoTo abc Next r(i) = x If i Mod 2 = 0 Then Black(i \ 2).$

4 圖二隨機擺放 abc: ' 擺放 Dim Ran_Chess As New Random( ) ' 產生 Random 物件 Dim x, r(31) As Integer 'r 表示存取每顆棋子之亂數 For i As Integer = 0 To 31 ' 此處 For 迴圈表示預設 r=-1 r(i) = -1 Next For i As Integer = 0 To 31 x = Ran_Chess.Next(32) 'x 表示 Random 物件所取之亂數 For n As Integer = 0 To 31 ' 偵測 x 是否已在 r 中出現, 有則重新取亂數 If x = r(n) Then GoTo abc Next r(i) = x If i Mod 2 = 0 Then Black(i \ 2).Location = New Point(5 + (x Mod 8) * 70, 5 + (x \ 8) * 70) ElseIf i Mod 2 = 1 Red(i \ 2).Location = New Point(5 + (x Mod 8) * 70, 5 + (x \ 8) * 70) Next 4

5 ( 二 ) 翻棋移動與吃棋判定 ( 以黑棋舉例 ) 1 翻棋 : 利用改變 PictureBox 物件的 Image 屬性的方式來產生翻棋的效果 ( 圖三 ) 圖三翻棋 If ChessColor = 0 Then 'ChessColor=0 表示棋子黑色 ;ChessColor=1 表示棋子紅色 If BlackShow(n) = False Then BlackShow(n) = True If n = 0 Then : Black(n).Image = My.Resources. 黑將 'n=0~10 表示將 ~ 砲, 其餘則表示卒 ElseIf n = 1 Or n = 2 Then : Black(n).Image = My.Resources. 黑士 ElseIf n = 3 Or n = 4 Then : Black(n).Image = My.Resources. 黑象 ElseIf n = 5 Or n = 6 Then : Black(n).Image = My.Resources. 黑馬 ElseIf n = 7 Or n = 8 Then : Black(n).Image = My.Resources. 黑車 ElseIf n = 9 Or n = 10 Then : Black(n).Image = My.Resources. 黑砲 Else : Black(n).Image = My.Resources. 黑卒 sender.borderstyle = BorderStyle.None If FirstStep = True Then StartTime_Red = Date.UtcNow 紅方下棋 () ElseIf FirstStep = False Then 換方下棋 () 5

2 移動 : 為了能讓棋子準確的移動位子, 所以我們用了 For 迴圈的方式來讓棋子判斷能否移動, 如果遇到阻礙則取消該綠點 ( 綠點表示棋子可移動的位子 ) (0,0) (320,160) 圖四移動表二棋子移動規則物件可吃棋子 PictureBox 將帥士象車馬砲士士象車馬砲兵象象車馬砲兵車車馬砲兵馬馬砲兵卒帥兵移動移動時改變 Locatoin

6 2 移動 : 為了能讓棋子準確的移動位子, 所以我們用了 For 迴圈的方式來讓棋子判斷能否移動, 如果遇到阻礙則取消該綠點 ( 綠點表示棋子可移動的位子 ) (0,0) (320,160) 圖四移動表二棋子移動規則物件可吃棋子 PictureBox 將帥士象車馬砲士士象車馬砲兵象象車馬砲兵車車馬砲兵馬馬砲兵卒帥兵移動移動時改變 Locatoin 屬性的 X 項或 Y 項一次只能加上 (±30,±30), 因為每個棋格為 30*30 大小砲帥士象車馬砲兵中間需隔一隻棋子才可吃子, 不論其位階, 但是需異色 ' 存取座標 Dim x, y, xc, yc As Integer x = Chess.Location.X : y = Chess.Location.Y 'x y xc yc 表示棋子位置 xc = x + 30 : yc = y + 30 Dim a, b As Integer a = Integer.Parse(Chess.Tag) For i As Integer = 0 To 3 m(i) = True Next ' 判斷阻礙 If ChessColor = 0 Then For i As Integer = 0 To 15 ' 此處 For 迴圈存取棋子移動是否阻礙 If Black(i).Location.X = x And Black(i).Location.Y = y - 70 Then m(0) = False If Black(i).Location.X = x And Black(i).Location.Y = y + 70 Then m(1) = False If Black(i).Location.X = x - 70 And Black(i).Location.Y = y Then m(2) = False If Black(i).Location.X = x + 70 And Black(i).Location.Y = y Then m(3) = False 6

利用 PictureBox 物件中的 Tag 屬性存取數字 1~7 來判定棋子的大小順序, 讓

7 Next If Red(i).Location.X = x And Red(i).Location.Y = y - 70 Then If RedShow(i) = False Then m(0) = False ElseIf RedShow(i) = True Then m(0) = 判定棋子大小 (i, a, b) 3 吃棋 : 利用 PictureBox 物件中的 Tag 屬性存取數字 1~7 來判定棋子的大小順序, 讓數字大的棋子可吃數字小的棋子圖五吃棋表三棋子吃棋規則物件屬性 PictureBox Tag 例外將 7 程式碼中設定 1 可吃掉 7 士 6 無象 5 無車 4 無馬 3 無砲 2 程式碼中設定 2 皆可吃任何棋 ( 但須隔一顆棋子 ) 卒 1 程式碼中設定 1 可吃掉 7 7

8 Private Function 判定棋子大小 (i, a, b) As Boolean If ChessColor = 0 Then 'a 表示紅棋大小 ;b 表示黑棋大小 a = Integer.Parse(Red(i).Tag) ElseIf ChessColor = 1 Then b = Integer.Parse(Black(i).Tag) If a = 7 Then If b = 1 Then Return False Else Return True ElseIf a = 1 Then If b = 7 Then Return True ElseIf a = b Then Return True ElseIf a < b Then Return False ElseIf a >= 2 And a <= 6 Then If a >= b Then Return True ElseIf a < b Then Return False End Function 8

( 三 ) 死亡判定在死亡判定上面, 我們使用 Label 物件讓結果顯示輸棋的一是哪一方, 並用 ToString 屬性來將輸棋時間記錄下來並顯示出來圖六遊戲結束 If BlackDeath = 16 Then '

= Drawing.Color.Black ElseIf RedDeath = 16 Then ' 紅方旗子全部死亡判定黑方獲勝並顯示紅方輸棋 Label_Message.Text = " 紅方輸棋 " : Label_Message.

9 ( 三 ) 死亡判定在死亡判定上面, 我們使用 Label 物件讓結果顯示輸棋的一是哪一方, 並用 ToString 屬性來將輸棋時間記錄下來並顯示出來圖六遊戲結束 If BlackDeath = 16 Then ' 黑方棋子全部死亡判定紅方獲勝並顯示黑方輸棋 Label_Message.Text = " 黑方輸棋 " : Label_Message.ForeColor = Drawing.Color.Black ElseIf RedDeath = 16 Then ' 紅方旗子全部死亡判定黑方獲勝並顯示紅方輸棋 Label_Message.Text = " 紅方輸棋 " : Label_Message.ForeColor = Drawing.Color.Red 参結論一研究結果首次接觸 Visual Basic 遊戲設計, 我們就以暗棋做為此次研究主題, 此遊戲的撰寫門檻不算太高, 而且所使用之物件不算太多, 幾乎都是較常用的物件, 至於演算法也不算太過複雜, 蠻適合初學 Visaul Basic 語言的開發者來做撰寫二未來展望未來我們可改進許多地方, 例如 : 利用動畫加入特效, 或是加上背景音樂, 再進階一點則是增加電腦對戰功能, 也可以撰寫 Server 模式利用網路連線讓玩家們能夠雙人對戰, 更可以設計 SDK 方式將電腦的程式轉換至手機的程式中讓玩家們能夠隨時隨地盡情玩但是上述構想目前距離我們還相當遙遠, 不過我們已經邁出了第一步, 相信之後我們一定能更精進程式設計三研究心得利用此次的小論文製作, 從裡面學到了不少事物, 首先是分工合作, 例如 : 擅於撰寫程式的負責製作程式, 擅於撰寫文章的則負責論文寫作當然撰寫程式設計類型的小論文總是會遇到許多問題, 例如 : 暗棋的物件運算法與繪製棋盤等, 亦或是撰寫出 9

10 來後的遊戲需要偵錯避免有 BUG 使程式有漏洞, 經由本組組員充分的合作與指導老師最後的校稿, 我們均能克服這些問題, 過程中一定都會有遇到窘境的時候, 此時會經由詢問老師以及觀看相關書籍或是網路來尋求協助, 在日常生活中找尋題材, 讓生活更便利更有趣, 培養人們更多的想法和思考的方法, 將會使生活變得更不一樣終於完成製作此項專題, 不管是團隊合作方面亦或是撰寫程式方面都有許多的進步, 期許下次如果再有機會還能做出更高階的遊戲感謝這段時間一路辛苦陪伴著我們並且教導著我們的老師們以及同學們, 希望進入大學後能撰寫更多程式來培養我們的軟實力肆引註資料一江家頡李長沛 (2009) Visual Basic 2008 網路遊戲程式設計台北縣 : 博碩文化二江家頡 (2009) Visual Basic D 與 3D 遊戲設計必修課台北縣 : 碁峯資訊三鄧文淵 (2011) Visual Basic 2010 程式設計速學對策台北市 : 碁峯資訊四 (1998) Visual Basic 程式設計實務第三波,196, 五劉志國 (2007) VisualBasic 程式設計之迷思概念研究 - 以高職資料處理科學生為例國立屏東科技大學技術及職業教育研究所六維基百科 2017 年 1 月 23 日, 取自暗棋七維基百科 2017 年 1 月 23 日, 取自台灣暗棋 10

任務二 : 產生 20 個有炸彈的磚塊, 放在隨機的位置編輯 Block 類別的程式碼 import greenfoot.; // (World, Actor, GreenfootImage, Greenfoot and MouseInfo) Write a description of class

任務二 : 產生 20 個有炸彈的磚塊, 放在隨機的位置編輯 Block 類別的程式碼 import greenfoot.; // (World, Actor, GreenfootImage, Greenfoot and MouseInfo) Write a description of class 踩地雷遊戲高慧君南港高中開啟專案 MineSweep 任務一 : 產生 30X20 個磚塊編輯 Table 類別的程式碼 import greenfoot.; // (World, Actor, GreenfootImage, Greenfoot and MouseInfo) import java.util.arraylist; Write a description of class MyWorld