vb課程設(shè)計(jì)報(bào)告--拼圖游戲

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：9 大小：58.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩8頁(yè)未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡(jiǎn)介

1、　　VB課程設(shè)計(jì)報(bào)告　　—拼圖游戲　　知識(shí)點(diǎn)：控件數(shù)組，公共對(duì)話框控件，PictureClip控件，多模塊程序設(shè)計(jì)，圖片的應(yīng)用。　　題目介紹

2、　　“拼圖”是一種老少皆宜、容易上手的益智類小游戲，本題目要求編制一個(gè)拼圖游戲程序。使用方法如下：　?。?）指定一幅圖片，將其分割成m × n 個(gè)小圖塊并且打亂順序后重新排列，其中有一塊沒有圖塊的“空擋”。　?。?）使用鼠標(biāo)單擊與空擋相鄰的圖塊使該圖塊與空擋的位置互換。　?。?）利用空擋位置移動(dòng)各圖塊，

3、最終恢復(fù)圖片原貌，完成拼圖。移動(dòng)的步數(shù)越少則說明游戲者的水平越高。游戲過程中，可以打開參考圖幫助找到正確的位置。　　2.功能要求　?。?）運(yùn)行程序，在進(jìn)入游戲之前顯示一個(gè)背景圖片。　　（2）選擇菜單中的“打開圖片”命令，顯示打開圖片對(duì)話框，“打開圖片”對(duì)話框使用公共對(duì)話框控件

4、實(shí)現(xiàn)，并且只能指定以*.jpg *.bmp　　為擴(kuò)展名的文件。可以在查看菜單中選著“縮略圖”進(jìn)行預(yù)覽。　　（3）選擇圖片之后，程序彈出“指定行列數(shù)”對(duì)話框，提示將圖片分幾行幾列。使用微調(diào)按鈕可以調(diào)節(jié)行數(shù)和列數(shù)，限制在3-7之間。　?。?）指定行列數(shù)之后，單擊確定返回主窗口，程序自動(dòng)按照指定的行列數(shù)將圖片進(jìn)分割，然

5、后隨機(jī)排列。　?。?）打亂的圖片中一空擋位置，用戶單擊與空擋相鄰的圖塊可以與其互換位置。點(diǎn)擊了空擋或者與其不相鄰的，程序不做任何操作。原圖只少右下角的圖塊。　　（6）圖片復(fù)原時(shí)，程序顯示消息框表示祝賀，同時(shí)顯示游戲共使用的步數(shù)。　　（7）游戲過程中，如果用戶希望參考原圖，可以單擊“顯示原圖”按鈕，打開“參考圖”窗

6、口。　?。?）窗體中的背景顏色可以改變，從菜單中選擇“背景顏色”命令，彈出“顏色”飛、公共對(duì)話框，用戶從中選擇一顏色即可。　?。?）在游戲過程中或在完成后，均可退出程序或選擇“打開圖片”菜單命令重新開始一個(gè)新圖片。　　（10）“參考圖”窗口應(yīng)是一個(gè)非模態(tài)窗口，在關(guān)閉主窗口時(shí)同時(shí)卸載，而不是隱藏，否則該程序不會(huì)完全

7、關(guān)閉，仍會(huì)駐留內(nèi)存。　　3.程序設(shè)計(jì) 　　概述：（1）PictureClip 控件來管理打開圖片并將其分為指定的行列圖塊，其Picture、Rows、Cols等屬性值應(yīng)在程序中設(shè)定。　?。?）使用image控件數(shù)組來顯示圖塊，設(shè)計(jì)時(shí)只需在窗體上放置一個(gè)image控件并將其的i

8、ndex設(shè)為0 ，其他的用load語(yǔ)句加載。　?。?）“打開圖片”和“顏色”對(duì)話框commondialog控件實(shí)現(xiàn)。設(shè)置其filter屬性使之只能打開bmp和jpg類型的圖片文件。　　（4）將image控件的stretch屬性設(shè)計(jì)為TRUE。　　重點(diǎn)：

9、　　隨機(jī)排列圖片 　　Private Sub Rnd_Arrange() '隨機(jī)排列圖塊　　Dim i As Integer, j As Integer　　Dim n As Integer

10、;　　n = Rows * Cols　　ReDim Arrange(0 To n - 1)　　For i = 0 To n - 1　　Arrange(i) = -1 '用-1標(biāo)記未賦值的元素　　Next

11、　　i = 0　　Do '給數(shù)組Arrange隨機(jī)賦值　　j = Int(Rnd * n) '產(chǎn)生0～n-1的隨機(jī)數(shù)　　If Arran

12、ge(j) = -1 Then　　Arrange(j) = i　　i = i + 1　　If i = n Then Exit Do　　End If<

13、b>　　Loop　　For i = 1 To n - 1 '加載控件數(shù)組元素　　Load imgPT(i)　　Next　　For i = 0 To n - 1</p&g

14、t;　　If Arrange(i) <> n - 1 Then　　imgPT(i).Picture = PC.GraphicCell(Arrange(i)) '將圖塊賦給控件數(shù)組元素　　Else　　imgPT(i).Picture

15、= LoadPicture() '將“打亂”前圖片右下角的圖塊設(shè)為空　　space = i　　End If　　Next<b

16、>　　End Sub　　判斷被單擊的圖片是否與空擋相鄰，　　Private Sub imgPT_Click(Index As Integer)　　Dim r1 As Integer, c1 As Integer　　Dim r2 As Intege

17、r, c2 As Integer　　Dim n As Integer　　Dim i As Integer　　If Not started Then Exit Sub　　c1 = space Mod Cols '計(jì)算空檔的行列

18、　　r1 = space \ Cols　　c2 = Index Mod Cols '計(jì)算點(diǎn)擊的行列　　r2 = Index \ Cols　　If Abs(c1 - c2) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And A

19、bs(r1 - r2) = 1 Then '判斷是否相鄰　　n = Arrange(Index)　　Arrange(Index) = Arrange(space)　　Arrange(space) = n　　imgPT(space) = PC.Graphi

20、cCell(Arrange(space))　　imgPT(Index) = LoadPicture()　　space = Index　　steps = steps + 1　　txtStep.Text = steps　　If isO

21、K() Then　　MsgBox "恭喜，完成拼圖！共用了" & steps & "步。", vbInformation '判斷是否拼完，如果已完成　　For i = 1 To Rows * Cols - 1　　imgPT(i).E

22、nabled = False '拼圖完成時(shí)，使鼠標(biāo)點(diǎn)擊失效　　Next　　End If　　End If&l

23、t;/p>　　End Sub　　判斷是否已經(jīng)拼完 　　Private Function isOK() As Boolean '判斷是否拼完　　Dim i As Integer<

24、/p>　　For i = 0 To Cols * Rows - 1　　If Arrange(i) <> i Then Exit For　　Next　　If i = Cols * Rows Then isOK = True</p&g

25、t;　　End Function 　　附：完整代碼　　Option Explicit　　Public Rows As Integer, Cols As Integer '圖塊的行列數(shù)　　Const GAP

26、 As Integer = 2 '行列圖塊的間距　　Private Arrange() As Integer '圖象控件與數(shù)組的對(duì)應(yīng)關(guān)系　　Private space As Integer '空檔的位置　　P

27、rivate started As Boolean '是否已開始　　Private steps As Integer '步數(shù)　　Public showref As Boolean '是否顯示參考圖　　Pri

28、vate Sub cmdShowRef_Click()　　showref = Not showref　　If showref Then　　Load frmRef　　frmRef.Image1.Picture = PC.Picture

29、;　　frmRef.Top = Me.Top　　frmRef.Left = Me.Left + Me.Width　　frmRef.Show　　cmdShowRef.Caption = "關(guān)閉參考圖"　　Else&l

30、t;/p>　　Unload frmRef　　cmdShowRef.Caption = "顯示參考圖"　　End If　　End Sub<b&g

31、t;　　'　　'Private Sub Form_Click()　　' Dim i As Integer　　' For i = 0 To Rows * Cols - 3　　' Arran

32、ge(i) = i　　' Next　　' Arrange(Rows * Cols - 1) = Rows * Cols - 2　　' Arrange(Rows * Cols - 2) = Rows * Cols - 1</p&g

33、t;　　' For i = 0 To Rows * Cols - 1　　' imgPT(i) = PC.GraphicCell(Arrange(i))　　' Next　　' imgPT(Ro

34、ws * Cols - 2) = LoadPicture　　' space = Rows * Cols - 2　　'　　'End Sub　　Private Sub F

35、orm_Unload(Cancel As Integer)　　Unload frmRef　　End Sub　　Private Sub imgPT_Click(Index As Integer)　　Dim r1 As Integer,

36、c1 As Integer　　Dim r2 As Integer, c2 As Integer　　Dim n As Integer　　Dim i As Integer　　If Not started Then Exit Sub

37、c1 = space Mod Cols '計(jì)算空檔的行列　　r1 = space \ Cols　　c2 = Index Mod Cols '計(jì)算點(diǎn)擊的行列　　r2 = Index \ Cols　　If Abs(c1 - c2

38、) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And Abs(r1 - r2) = 1 Then '判斷是否相鄰　　n = Arrange(Index)　　Arrange(Index) = Arrange(space)　　Arrange(space

39、) = n　　imgPT(space) = PC.GraphicCell(Arrange(space))　　imgPT(Index) = LoadPicture()　　space = Index　　steps = steps + 1

40、;　　txtStep.Text = steps　　If isOK() Then　　MsgBox "恭喜，完成拼圖！共用了" & steps & "步。", vbInformation '判斷是否拼完，如果已完成　　For i = 1

41、 To Rows * Cols - 1　　imgPT(i).Enabled = False '拼圖完成時(shí)，使鼠標(biāo)點(diǎn)擊失效　　Next　　End If</b&g

42、t;　　End If　　End Sub　　Private Sub mnuBackColor_Click()　　CD.Color = Me.BackColor

43、;　　CD.ShowColor　　Me.BackColor = CD.Color　　End Sub　　Private Sub mnuExit_Click()　　Unload Me

44、;　　End Sub　　Private Sub mnuOpen_Click()　　Dim i As Integer　　Dim n As Integer　　CD.Filter = "圖片文件(*.JPG,

45、*.BMP)|*.jpg;*.bmp"　　CD.DialogTitle = "打開圖片"　　CD.InitDir = App.Path & "\pics"　　CD.ShowOpen '

46、顯示指定圖片對(duì)話框　　If CD.FileName = "" Then Exit Sub　　If started Then　　For i = 1 To Rows * Cols - 1 '清除已有的控件數(shù)組元素　　Unload imgPT(

47、i)　　Next　　imgPT(0).Picture = LoadPicture()　　If showref Then frmRef.Image1.Picture = LoadPicture()　　Else</

48、b>　　Me.Picture = LoadPicture()　　End If　　frmDivide.Show 1, Me ' 顯示指定行列對(duì)話框　　PC.Picture = LoadPict

49、ure(CD.FileName)　　PC.Rows = Rows　　PC.Cols = Cols　　n = Rows * Cols　　imgPT(0).Width = 320 / Cols '窗體以像素為單位

50、;　　imgPT(0).Height = 240 / Rows　　Call Rnd_Arrange '隨機(jī)排列　　For i = 0 To n - 1 '排列圖象控件　　imgPT(i).Top = (i \ Cols) * (240 /

51、Rows + GAP)　　imgPT(i).Left = (i Mod Cols) * (320 / Cols + GAP)　　imgPT(i).Visible = True　　Next　　If showref Then frmRef

52、.Image1.Picture = PC.Picture　　started = True　　cmdShowRef.Enabled = True　　steps = 0　　txtStep.Text = "0"</

53、p>　　End Sub　　Private Sub Rnd_Arrange() '隨機(jī)排列圖塊　　Dim i As Integer, j As Integer　　Dim n As Integer&l

54、t;p>　　n = Rows * Cols　　ReDim Arrange(0 To n - 1)　　For i = 0 To n - 1　　Arrange(i) = -1 '用-1標(biāo)記未賦值的元素　　Next<

55、/b>　　i = 0　　Do '給數(shù)組Arrange隨機(jī)賦值　　j = Int(Rnd * n) '產(chǎn)生0～n-1的隨機(jī)數(shù)　　If

56、 Arrange(j) = -1 Then　　Arrange(j) = i　　i = i + 1　　If i = n Then Exit Do　　End If<p&g

57、t;　　Loop　　For i = 1 To n - 1 '加載控件數(shù)組元素　　Load imgPT(i)　　Next　　For i = 0 To n - 1&l

58、t;/p>　　If Arrange(i) <> n - 1 Then　　imgPT(i).Picture = PC.GraphicCell(Arrange(i)) '將圖塊賦給控件數(shù)組元素　　Else　　imgPT(i).Pi

59、cture = LoadPicture() '將“打亂”前圖片右下角的圖塊設(shè)為空　　space = i　　End If　　Next

60、;　　End Sub　　Private Function isOK() As Boolean '判斷是否拼完　　Dim i As Integer　　For i = 0 To Cols * Rows - 1

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

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

vb課程設(shè)計(jì)報(bào)告--拼圖游戲

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

vb課程設(shè)計(jì)報(bào)告--拼圖游戲

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載