【正文】 le) Dim xxx As Integer 39。標(biāo)示 mapFaceArr(xxx, yyy) = 3 MINE_NUM_LABEL = MINE_NUM_LABEL 1 Call setMineImage(index, 14) Call setNowMines ElseIf mapFaceArr(xxx, yyy) = 3 Then 39。鼠標(biāo)右鍵 If mapFaceArr(xxx, yyy) = 1 Then 39。標(biāo)示動(dòng)作圖片的坐標(biāo) yyy = index \ MAP_X If Button = 1 Then 39。地雷區(qū)方塊按下事件 Private Sub iMine_MouseDown(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Dim xxx As Integer 39。地雷區(qū)配置 Call setMapInit 39。參數(shù)初始設(shè)定 Call setInit(GetSetting(Mine, Level, 1, 0)) 39。初始化隨機(jī)數(shù)產(chǎn)生器 39。地雷區(qū)方塊探測情形 39。游戲是否完成 Dim mapArr() As Integer 39。游戲是否已進(jìn)行 Dim isDie As Boolean 39。方塊清除數(shù) Dim TIME_COUNTER As Integer 39。地雷數(shù) Dim MINE_NUM_LABEL As Integer 39。地圖的 X軸長 Dim MAP_Y As Integer 39。在課設(shè)的過程中遇到了很多問題，在老師的指導(dǎo)下和同學(xué)的幫助下，把這些問題一一解決了， 按時(shí)的順利的完成了任務(wù)。今后還要努力學(xué)習(xí)這方面的專業(yè)知識(shí) ,虛心請(qǐng)教他人的工作經(jīng)驗(yàn) ,來提高自身的分析問題、解決問題的能力。能把所學(xué)的運(yùn)用到實(shí)踐中，提高了獨(dú)立思考和動(dòng)手能力。但是由于設(shè)計(jì)時(shí)間較短，所以該游戲還有許多不盡如人意的地方，有待進(jìn)一步改善。 經(jīng)過一些簡單的步驟的測試，證明本游戲具有相當(dāng)?shù)姆€(wěn)定性 。要標(biāo)記您認(rèn)為可能有地雷的方塊，請(qǐng)右鍵單擊它。如果挖開的是地雷，則您輸?shù)粲螒颉螕粲螒騾^(qū)中的任何方塊 ， 要啟動(dòng)計(jì)時(shí)器。 掃雷游戲在程序運(yùn)行后生成指定的地雷，在鼠標(biāo)左鍵點(diǎn)擊下尋找地雷，右鍵點(diǎn)擊下標(biāo)記地雷，點(diǎn)擊笑臉的標(biāo)記開始重新游戲，并給出勝利和失敗的條件：標(biāo)出所有的地雷和左鍵點(diǎn)中地雷。 掃雷游戲 的目標(biāo)是盡快找到雷區(qū)中的所有地雷，而不許踩到地雷。地雷區(qū)配置 Call setMapInit 39。參數(shù)初始設(shè)定 Call setInit(GetSetting(Mine, Level, 1, 0)) 39。初始化隨機(jī)數(shù)產(chǎn)生器 39。 Private Sub about_Click() End Sub 運(yùn)行界面 執(zhí)行窗體時(shí)的界面如圖 6所示： 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 17 圖 6 窗體運(yùn)行界面 39。設(shè)置參數(shù) Private Sub Command1_Click() 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 16 If 50 Or 0 Then = 24 End If If 50 Or 0 Then = 30 End If If ( * ) Or 0 Then = ( 1) * ( 1) End If SaveSetting Mine, SET, 1, SaveSetting Mine, SET, 2, SaveSetting Mine, SET, 3, Unload Me End Sub 關(guān)于窗體設(shè)計(jì) 打開主菜單幫助→關(guān)于掃雷，可以顯示如圖 6 所示。通過這個(gè)窗體使用者可以自己設(shè)定行數(shù)、列數(shù)和地雷數(shù)。方法是在菜單編輯器中的 Caption后面添加“（ ＆ R）”就可以了。菜單控件在列表框中的位置決定了該控件是菜單標(biāo)題、菜單項(xiàng)、子菜單標(biāo)題，還是子菜單項(xiàng)。 ● ○17 ：秒數(shù)控制（ Timer）。 ● ○15 ：地雷區(qū)圖片 (ImageList)。 ● ○13 ：地雷區(qū)圖樣 (Image)。 ● ○ 9 ：游戲狀態(tài) (Image)。 ● ○ 5 ：地雷區(qū)（ PictureBox）。 ● ○ 3 ：地雷數(shù)顯示區(qū)（ PictureBox）。為了避免因改變窗口大小而造成畫面呈現(xiàn)不美觀，將 BorderStyle 屬性值設(shè)定為 3（雙線固定對(duì)話框），即無法以窗口邊緣進(jìn)行窗口大小調(diào)整。接著就是如何判斷按下的方塊為非地雷時(shí)的處理，這也是整個(gè)游戲的技術(shù)核心，可以通過遞歸的觀念來檢查周邊是否含有地雷及是否繼續(xù)往外翻開。 畫面初始時(shí)，以使用者最 后一次設(shè)定的地雷區(qū)大小為范圍畫出地雷區(qū)，但此時(shí)并未產(chǎn)生地雷。當(dāng)按下的方塊不是地雷，且周邊也沒有地雷時(shí)，方塊會(huì)以被翻開的八個(gè)方向?qū)⒖瞻追綁K翻開。 游戲的操作方面主要以鼠標(biāo)為主，當(dāng)鼠標(biāo)指針對(duì)準(zhǔn)未翻開的方塊按下左鍵時(shí)即表示翻開方塊，當(dāng)鼠標(biāo)指針對(duì)準(zhǔn)未翻開的方塊按下右鍵時(shí)即表示標(biāo)示或疑似地雷，反復(fù)按下右鍵則方塊會(huì)依未標(biāo)示 →標(biāo)示 →疑似 三者關(guān)系不斷循環(huán)。 在不掀開任何的情況下，以最快的速度找出所有的地雷。 可行性 分析 ： 1. 對(duì)于當(dāng)前條件下，完全可以達(dá)到該系統(tǒng)功能目標(biāo) ； 2. 該系統(tǒng)功能在現(xiàn)有技術(shù)下，完全可以實(shí)現(xiàn)； 3 目標(biāo) ： 實(shí)現(xiàn)游戲的各類功能，如：初、中、高（自定義）各個(gè)游戲等級(jí) . 4 用戶的特點(diǎn) 。也就是說可行性研究的目的不是解決問題，而是確定問題是否值得去解，研究在當(dāng)前的具體條件下，是否具備必要的資源和其它條件。當(dāng)判斷方塊內(nèi)容為數(shù)字時(shí)（即在非地雷方塊周圍），即停止遞歸執(zhí)行。程序執(zhí)行時(shí)必 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 10 須判斷：以按下方塊為中 心。 遞歸就是一個(gè)程序能被自己所定義的語句調(diào)用。當(dāng)游戲初始時(shí)，地雷區(qū)的顯示組件 會(huì)循環(huán)執(zhí)行，逐一布置在畫面上，但由于執(zhí)行循環(huán)時(shí)多個(gè) Image 組件要顯示圖形，造成分時(shí)系統(tǒng)執(zhí)行頻率顯示上會(huì)出現(xiàn)不流暢的情形，若在循環(huán)之前，先將容器本身的 Visible 屬性設(shè)為 False，在循環(huán)執(zhí)行完成后再將 Visible 屬性設(shè)為 True，則顯示就會(huì)變得流暢許多。在游戲中利用了PictureBox 的兩個(gè)特性：容器特性和立體框架。利用 Timer 組件在固定時(shí)間即會(huì)觸發(fā)事件的特性，在事件觸發(fā)時(shí)便將計(jì)數(shù)值加 1，直到判斷計(jì)數(shù)值超過限定值時(shí)，即引爆地雷。 組件 在游戲中，地雷引爆的可能有 2 中，第一種為使 用者翻開（踩到）地雷方塊，第二種為設(shè)定時(shí)間內(nèi)未探測完所有地雷而引爆。 圖 1 ImageList組件屬性 利用 ListImage 集合對(duì)象的 Picture 方法，即可將 ListImage 組件內(nèi)的圖片指定給圖形顯示組件，語法如下： Set 圖形組件 . Picture=Imagelist. ListImage(圖片索引 ). Picture 組件 利用 Image 組件作為游戲執(zhí)行階段所有圖形的顯示。如圖 1所示。 4. ImageList 組件 利用 Imagelist 可以存儲(chǔ)顯示方塊的圖形 [2]。其意義如下： 1：左鍵 2：右鍵 4：中央鍵 若同時(shí)按下不止一個(gè)按鍵時(shí)，則傳回?cái)?shù)值為按鍵數(shù)相加。在 MouseDown 與 MouseUp 事件中，可以捕捉鼠標(biāo)所按下或放開的按鍵為何、鼠標(biāo)光標(biāo)在該組件上的坐標(biāo)及是否同時(shí)按下輔助鍵等。 Move 函數(shù)的原型如下： 組件 . Move X 坐標(biāo)， [Y 坐標(biāo) ],[組件寬度 ][組件高度 ] 再配合雙循環(huán)的變量值，可以控制組件布置于窗體的方向及方式。在游戲的雷區(qū)，依照使用者自定義的地圖類型，布置未探測的地雷方塊。利用數(shù)據(jù)循環(huán)的對(duì)比，不但速度快，而且在設(shè)計(jì)階段，程序的架構(gòu)比較清楚。開發(fā)人員和利用內(nèi)置的高性能數(shù)據(jù)庫引擎 —— JET生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用 。 3 與數(shù)據(jù)庫的連接性 VISUAL BASIC提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。 2 事件驅(qū)動(dòng)編程 在使用 VB設(shè)計(jì)應(yīng)用程序是，必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互。 可以用于可以開發(fā)多媒體、數(shù)據(jù)庫、網(wǎng)絡(luò)、圖形等方面的應(yīng)用程序。 VB是極具特色和功能強(qiáng)大的軟件，主要表現(xiàn)：所見即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開發(fā)周期， 較 易維護(hù)的代碼。 本次設(shè)計(jì)只是完成了掃雷游戲的 基本功能 ,在細(xì)節(jié)方面仍有待完善 ? 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 6 2 Visual Basic 概況 VB 簡介 VISUAL BASIC是微軟公司出品的一個(gè)快速可視化程序開發(fā)工具軟件。The weakness is an ability limited, circulate the efficiency exactly some softwares is used as a reason for choose the language, but some softwares is affirmative and do with the VB of a lot of VCs, the DELPHI procedure member thinks the VB in make the development not free. Really, it is simple to is strong and big with the function this both oneself is an one rightness antinomy. The mine clearance game is an operate system inside of a grows in wisdom a game primarily. The customer proceeds the operation to the rat mark, the left key in mark in rat in single shot is for trampling the thunder, the single shot rat marks the left key in marking, question, blank three kinds of appearances circulating, the single shot rat marks or so key as to trample at the same time the single shot orders the surroundings in inside nine the marking had in spaceses are alrea