vb課程設(shè)計(jì)--制作小游戲

1、<p>　　課 程 大 作 業(yè) 報(bào) 告</p><p>　　課程名稱： vb程序設(shè)計(jì)（自學(xué)） </p><p>　　課程編號(hào)： 0533006 </p><p>　　作業(yè)內(nèi)容： 制作小游戲（排排看） </p><p>　　專 業(yè)

2、： 計(jì)算機(jī)科學(xué)與技術(shù) </p><p>　　班 級(jí)： </p><p>　　學(xué) 號(hào)： </p><p>　　姓 名： </p><

3、p>　　指導(dǎo)教師： </p><p>　　20 年 月 日</p><p>　　目 錄</p><p>　　1.課程大作業(yè)目的1</p><p>　　1.1加深對(duì)VB的運(yùn)用1</p><p>　　運(yùn)用所學(xué)VB知識(shí)自行設(shè)計(jì)一個(gè)小游戲，加

4、深對(duì)VB的相關(guān)了解，熟練掌握其操作過程。1</p><p>　　2.課程大作業(yè)題目描述和要求1</p><p>　　2.1 課程設(shè)計(jì)該小游戲的描述1</p><p>　　2.2課程設(shè)計(jì)小游戲要求</p><p>　　3.課程大作業(yè)報(bào)告內(nèi)容1</p><p>　　3.1 在VB應(yīng)用程序里設(shè)計(jì)好小游戲（排排看）窗口

5、。共有控件如下：1</p><p>　　3.2 設(shè)計(jì)好界面后，打開“代碼”窗口，編寫如下代碼：2</p><p><b>　　4.總結(jié)5</b></p><p><b>　　1.課程大作業(yè)目的</b></p><p>　　1.1加深對(duì)VB的運(yùn)用</p><p>　　運(yùn)用

6、所學(xué)VB知識(shí)自行設(shè)計(jì)一個(gè)小游戲，加深對(duì)VB的相關(guān)了解，熟練掌握其操作過程。</p><p><b>　　1.2 提高興趣</b></p><p>　　通過所做的課程設(shè)計(jì)來提高學(xué)習(xí)VB的個(gè)人興趣。</p><p>　　2.課程大作業(yè)題目描述和要求</p><p>　　2.1 課程設(shè)計(jì)該小游戲的描述</p>&

7、lt;p>　　游戲者打開以設(shè)計(jì)好的該款exe格式的游戲，會(huì)彈出一個(gè)游戲界面。點(diǎn)擊游戲菜單項(xiàng)里的開局項(xiàng)，游戲開始。</p><p>　　通過單擊鼠標(biāo)來移動(dòng)數(shù)字，直到數(shù)字按首行１，２，３，次行４，５，６，第三行排列７，８時(shí)，游戲者勝利。</p><p>　　期間游戲者可以通過菜單項(xiàng)進(jìn)行“重玩”、“退出”及“幫助”操作。</p><p>　　2.2課程設(shè)計(jì)小游戲要求

8、</p><p>　　要在對(duì)游戲的原理進(jìn)行深入分析的基礎(chǔ)上，利用標(biāo)簽控件數(shù)組和鼠標(biāo)事件來設(shè)計(jì)該款游戲。</p><p>　　3.課程大作業(yè)報(bào)告內(nèi)容</p><p>　　3.1 在VB應(yīng)用程序里設(shè)計(jì)好小游戲（排排看）窗口。共有控件如下：</p><p>　　設(shè)計(jì)界面如下圖所示：</p><p>　　3.2 設(shè)計(jì)好界面后，

9、打開“代碼”窗口，編寫如下代碼：</p><p>　　Private Sub Form_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub lbl_DragDrop(Index As Integer, Source As Control, x As Single, Y As Single

10、)</p><p>　　If (Abs(Source.Index - Index) = 1 Or Abs(Source.Index - Index) = 3) And lbl(Index) = "" Then</p><p>　　term = Source.Caption</p><p>　　Source.Caption = lbl(Index)

11、.Caption</p><p>　　lbl(Index) = term</p><p>　　flag = True</p><p>　　For i = 0 To 7</p><p>　　If Val(lbl(i)) <> i + 1 Then flag = False</p><p><b>　

12、　Next</b></p><p>　　If flag Then MsgBox "你贏了!", 48, "排排看"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Priva

13、te Sub Mabout_Click()</p><p>　　MsgBox "程序設(shè)計(jì): " & vbCrLf & "2009年6月", 48, "排排看"</p><p><b>　　End Sub</b></p><p>　　Private Sub Mexit_

14、Click()</p><p><b>　　Dim x%</b></p><p>　　x = MsgBox("結(jié)束游戲嗎？", vbYesNo + 48, "排排看")</p><p>　　If x = vbYes Then Unload GameForm</p><p><

15、b>　　End Sub</b></p><p>　　Private Sub Mnew_Click()</p><p>　　Dim i%, j%, k%</p><p>　　Randomize Timer</p><p>　　For i = 0 To 8</p><p>　　lbl(i) = "

16、;"</p><p><b>　　Next i</b></p><p>　　For i = 1 To 8</p><p>　　k = Int(Rnd * 9)</p><p>　　If Val(lbl(k)) = 0 Then</p><p>　　lbl(k) = i</p>

17、<p><b>　　Else</b></p><p>　　For j = 0 To 8</p><p>　　If Val(lbl(j)) = 0 Then</p><p>　　lbl(j) = i</p><p><b>　　Exit For</b></p><p&

18、gt;<b>　　End If</b></p><p><b>　　Next j</b></p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p><b>　　End Sub</b&

19、gt;</p><p>　　Private Sub Mreplay_Click()</p><p><b>　　Dim i%</b></p><p>　　For i = 0 To 7</p><p>　　lbl(i) = ""</p><p><b>　　Next&l

20、t;/b></p><p>　　Mnew_Click</p><p><b>　　End Sub</b></p><p>　　3.3 編寫好代碼后，執(zhí)行操作，結(jié)果如下：</p><p>　　窗口內(nèi)設(shè)有游戲、幫助兩個(gè)菜單項(xiàng)。游戲項(xiàng)又包含三個(gè)子菜單項(xiàng)，依次為：開局(F2)、重玩（F3）、退出（X）。</p>

21、<p>　　點(diǎn)擊“開局”子菜單項(xiàng)可彈出如下界面（注：數(shù)字是隨機(jī)排列的，即每點(diǎn)擊一次，彈出界面的排列順序會(huì)不一樣的，下圖只是其中的一例）</p><p>　　使用時(shí)可以單擊鼠標(biāo)來移動(dòng)數(shù)字，當(dāng)數(shù)字按首行１，２，３，次行４，５，６，第三行７，８排列時(shí)，游戲者勝利。</p><p>　　點(diǎn)擊“幫助”選項(xiàng)，彈出如下界面：</p><p><b>　　4