【正文】 態(tài)表情及地雷區(qū)方塊圖形等，都利用 Image 組件作為顯示組件，再搭配 ImageList 組件所存儲的圖形，便可在執(zhí)行階段在同一個 Image 組件上變換不同的圖片。其中第二種的行為，可以通過Timer 組件來加以控制。 7. PictureBox 組件 PictureBox 為容器類型的組件，可以加入其它組件在內(nèi) [3]。分述如下： ●容器特性：只要容器本身顯示的行為改變，在容器內(nèi)的組件也會跟著改變。 ●立體框架：通過組件本身立體框線的屬性設定，可以為游戲畫面的顯示上營造出層次感。在游戲過程中，當使用者按下非地雷方塊時，方塊會沿四周八個方向向外翻開非地雷的方塊。檢查周圍八個方塊是否為非地雷方塊，若其中一個方塊是非地雷方塊時，則又以其為中心，向外檢查周圍八個方塊是否為非地雷方塊，如此反復的行為即構(gòu)成了遞歸的使用條件。 畢業(yè)設計（論文）報告紙 10 3 可行性分析 可行性研究的目的是用最小的代價在盡可能短的時間內(nèi)確定問題是否能夠解決。 一般說來，應從經(jīng)濟可行性、技術(shù)可行性、運行可行性、和開發(fā)方案可行性等方面研 究可行性。都是對掃雷游戲的喜好者 . 畢業(yè)設計（論文）報告紙 11 4 總體設計 設計構(gòu)想 本游戲的 功能 類似于 Windows 操作系統(tǒng)自帶掃雷游戲 ，設計之前，先了解這款游戲的規(guī)則。如果在掀開方塊的過程中，不小心翻開（踩到）藏有地雷的方塊，則宣告失敗（死亡），惟有將所有不含地雷的方 塊掀開，游戲才算成功（存活）。使用者可以通過地雷區(qū)內(nèi)的數(shù)表示以其為中心的周邊八個方塊內(nèi)所含的地雷數(shù)。 流程規(guī)劃 流程規(guī)劃分為三個部分，分別為：畫面初始、使用者按下第一個方塊和為非地雷方塊時展開。當使用者按下第一個方塊時產(chǎn)生地雷并啟動定時器，主要為了不讓使用者第一次就踩到地雷，這樣在某種程度上提高了游玩的氣氛。 流程規(guī)劃如圖 2所示： 畢業(yè)設計（論文）報告紙 12 圖 2 流程規(guī)劃圖 開始 依照使用者設定初始 等待按鍵 右鍵？ 第一次按下方塊？ 顯示方塊 按下方塊是否為地圖 左鍵？ 顯示分數(shù) 是否再玩 結(jié)束 計時器 時間到？ 延按下方塊周圍展開非地雷方塊 是 是 是 否 否 否 否 否 是 否 畢業(yè)設計（論文）報告紙 13 5 詳細設計 畫面規(guī)劃 畫面規(guī)劃如圖 3所示： 圖 3 畫面規(guī)劃圖 說明如下： ● ○ 1 ：游戲窗口（ Form）。 ● ○ 2 ：計數(shù)區(qū)（ PictureBox）。 ● ○ 4 ：游戲時間顯示區(qū)（ PictureBox）。 ● ○ 6 ～ ○ 8 ：地雷數(shù) (Image)。 ● ○10 ～ ○12:經(jīng)過秒數(shù) (Image)。 ● ○14 ：游戲狀態(tài)圖片 (ImageList)。 1 2 7 6 4 3 8 9 150 140 130 10 12 11 5 160 17 畢業(yè)設計（論文）報告紙 14 ● ○16 ：地雷數(shù)及秒數(shù)數(shù)字圖片 (ImageList)。 設計過程 添加菜單 使用菜單編輯器編輯游戲的主菜單，點擊“工具”菜單上的“菜單編輯器”命令選項，即可打開菜單編輯器。對于一些常用的菜單命令，可以設置“ Alt+快捷鍵”組合來快速打開菜單。 圖 4 菜單編輯器 自定義窗體設計 打開主菜單 游戲→自定義，可以顯示窗體，如圖 5所示。 圖 5 自定義窗體 39。幫助使用者了解相關(guān)信息。窗體加載 Private Sub Form_Load() Randomize 39。加載為地雷區(qū)方塊圖片 Set iMine(0).Picture = (9).Picture 39。計數(shù)區(qū)配置 Call setCounterInit 39。 Call setFormSize End Sub 畢業(yè)設計（論文）報告紙 17 6 系統(tǒng)測試 掃雷游戲是 WINDOWS 系統(tǒng)自帶的一個娛樂性的小游戲，為了確保本游戲能夠正常運行，需要在發(fā)布之后做一次較全面的測試。如果挖開的是地雷，您將輸?shù)粲螒颉? 在游戲菜單上，單擊開局。通過單擊即可挖開方塊。如果方塊上出現(xiàn)數(shù)字，則表示在其周圍的八個方塊中共有多少顆地雷。 游戲區(qū)包括雷區(qū)、地雷計數(shù)器和計時器。 畢業(yè)設計（論文）報告紙 18 結(jié)束語 經(jīng)過一個星期的設計和開發(fā)，以 Visual 為開發(fā)工具 ， 掃雷小游戲基本開發(fā)完畢，基本功能能夠?qū)崿F(xiàn)。 在游戲的設計過程中，學習了很多知識包括設計思想和對所學語言的應用，加深了對 Visual 的理解，還使我對各個控件有了更好的掌握。同時深深地體會到進行軟件開發(fā)不是一件簡單的事情，它需要設計 者具有全面的專業(yè)知識、縝密的思維、嚴謹?shù)墓ぷ鲬B(tài)度以及較高的分析問題解決問題的能力，而我在很多方面還有欠缺。 畢業(yè)設計（論文）報告紙 19 參考文獻 [1] 柴欣，武優(yōu)西． Visual Basic程序設計基礎．中國鐵道出版社， 2021， 8（ 3） ： 7379 [2] 劉瑞新，汪遠佂． Visual Basic程序設計教程．機械工業(yè)出版社， 2021， 5： 209223 [3] 譚浩強． Visual Basic程序設計案 例教程．清華大學出版社， 2021， 2（ 2）： 3237 [4] 管麗娜 ， 白海波 .實用 Visual Basic6 教程 .北京 :清華大學出版社 ,2021 [5] 段興 . Visual Basic數(shù)據(jù)庫實用程序設計 100例 . 人民郵電出版社 ,2021 [6] 王運堅 . VISUAL BASIC 應用指南 . 北京 : 人民郵電出版社 , 1998 畢業(yè)設計（論文）報告紙 20 致謝 經(jīng)過一周的努力，我做的掃雷游戲終于完成。 由于學識疏淺，文中難免有失當之處，敬請老師不吝賜教，以使本文能夠更加完善 ! 在此，對老師和同學表示衷心的感謝！ 畢業(yè)設計（論文）報告紙 21 附錄 附上本程序完整代碼： Dim MAP_X As Integer 39。地圖的 Y軸長 Dim MINE_NUM As Integer 39。地雷標記數(shù) Dim MINE_NUM_CLEAR As Integer 39。時間計數(shù) Dim isStart As Boolean 39。游戲是否呈結(jié)束狀態(tài) Dim isFinal As Boolean 39。地雷區(qū)地雷分布情形 Dim mapFaceArr() As Integer 39。窗體加載 Private Sub Form_Load() Randomize 39。加載為地雷區(qū)方塊圖片 Set iMine(0).Picture = (9).Picture 39。計數(shù)區(qū)配置 Call setCounterInit 39。 Call setFormSize End Sub 畢業(yè)設計（論文）報告紙 22 39。換算組件所代表的坐標值 Dim yyy As Integer If isFinal = False And isDie = False Then xxx = index Mod MAP_X 39。鼠標左鍵 If mapFaceArr(xxx, yyy) = 1 Then Call setMineImage(index, 10) Set = (3).Picture End If ElseIf Button = 2 Then 39。未探測 mapFaceArr(xxx, yyy) = 2 MINE_NUM_LABEL = MINE_NUM_LABEL + 1 Call setMineImage(index, 13) Call setNowMines ElseIf mapFaceArr(xxx, yyy) = 2 Then 39。疑似 mapFaceArr(xxx, yyy) = 1 Call setMineImage(index, 9) End If 畢業(yè)設計（論文）報告紙 23 End If End If End Sub 39。 Dim yyy As Integer Dim rX As Integer 39。地雷數(shù)暫存值 39。標示動作圖片的坐標 yyy = index \ MAP_X 39。判斷游戲是否等待啟動 If isStart = False Then cMINE_NUM = MINE_NUM isStart = True = True 39。判斷數(shù)組中 (rX,rY)為非地雷及 畢業(yè)設計（論文）報告紙 24 39。地雷外圍數(shù)字各加一 For xx = rX 1 To rX + 1 For yy = rY 1 To rY + 1 If xx = 0 And xx = MAP_X And _ yy = 0 And yy = MAP_Y Then If mapArr(xx, yy) 9 And _ Not (xx = rX And yy = rY) Then mapArr(xx, yy) = mapArr(xx, yy) + 1 End If End If Next yy Next xx End If Loop End If 39。選擇地雷區(qū)數(shù)組判斷該坐標 Select Case mapArr(xxx, yyy) Case 0 39。數(shù)字 MINE_NUM_CLEAR = MINE_NUM_CLEAR + 1 Call setMineImage(index, mapArr(xxx, yyy)) Case 9 39。檢查是否只剩下地雷未探測 If MAP_X * MAP_Y MINE_NUM_CLEAR = MINE_NUM Then isFinal = True