vb課程設(shè)計拼圖游戲_第1頁
已閱讀1頁,還剩8頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、Visual Basic 課程設(shè)計報告題目 題目 1: 拼圖游戲 拼圖游戲 難度: 難度: *** ***指導(dǎo)教師: 指導(dǎo)教師:姓 名:學(xué) 號:專 業(yè):班 級:學(xué) 院:日 期:22、設(shè)計思路與總體方案 、設(shè)計思路與總體方案本程序包含五個窗體模塊 五個窗體模塊,其中以窗體 窗體 frmMain 的作用最為主要,該模塊負(fù)責(zé)加載選定的圖片并按所選的行列數(shù)分割, 進行隨機排列并加載空當(dāng), 實現(xiàn)鼠標(biāo)點擊時其中的圖塊時與相鄰的空當(dāng)進行替換,實現(xiàn)拼圖

2、完成這個結(jié)束動作。該模塊中主要的變量有 Rows , Cols ,Arrange() ,space,started,stepsshowref Function isOK()其中,Rows , Cols ,showref 這三個為全局變量 全局變量,分別表示行數(shù) ,列數(shù),以及是否顯示參考圖(因此 showref 為邏輯型變量)其余變量為模塊級變量,started 也為邏輯變量,負(fù)責(zé)顯示游戲是否已開始,Arrange()數(shù)組表示聯(lián)系圖像控件

3、與數(shù)組的關(guān)系, space 顯示空當(dāng)?shù)奈恢茫?steps 來記錄玩家所走的步數(shù), FunctionisOK()用來檢驗拼圖是否已經(jīng)完成的函數(shù),為邏輯性變量。除外,過程變量 tt(0to2) , b(0 to 2) ,s , r , c 用來寫入或讀取排行榜中的記錄。其中,還設(shè)有菜單欄,通過 CommonDialog 控件負(fù)責(zé)實現(xiàn)“打開圖片”與“配置顏色”對話框,并同時還擁有打開 frmRecod(排行榜窗體模塊)的工能。主要代碼(游戲初

4、始時加載圖片) :Dim i As IntegerDim n As Integer CD.Filter = “圖片文件(*.JPG,*.BMP)|*.jpg;*.bmp“CD.DialogTitle = “打開圖片“CD.InitDir = App.Path & “\pics“CD.ShowOpen (顯示指定圖片對話框)If CD.FileName = ““ Then Exit SubIf started Then For i

5、 = 1 To Rows * Cols - 1 '(清除已有的控件數(shù)組元素)Unload imgPT(i) NextimgPT(0).Picture = LoadPicture() If showref Then frmRef.Image1.Picture = LoadPicture()Else Me.Picture = LoadPicture() End IffrmDivide.Show 1, Me ' (顯示指定行列

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論