vb課程設(shè)計(jì)拼圖游戲

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

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

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

4、始時(shí)加載圖片） ：Dim i As IntegerDim n As Integer CD.Filter = “圖片文件(*.JPG,*.BMP)|*.jpg;*.bmp“CD.DialogTitle = “打開(kāi)圖片“CD.InitDir = App.Path & “\pics“CD.ShowOpen （顯示指定圖片對(duì)話框）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 ' （顯示指定行列