畢業(yè)設(shè)計(jì)---游戲開(kāi)發(fā)實(shí)現(xiàn)與設(shè)計(jì)-畢業(yè)設(shè)計(jì)(參考版)
2025-01-23 04:37本頁(yè)面
【正文】 。清空最后單元 End Sub 29 小結(jié) 在這章中，闡述了游戲系統(tǒng)的主要功能模塊的設(shè)計(jì) ，在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)、全局變量等。0 單元 設(shè) 固 定 圖 片 及 索 引 標(biāo) 識(shí)GSppt!ImageElement(0).Picture = GSppt!(elementNum 1) GSppt!ImageElement(0).Tag = Str(elementNum 1) GSppt! = GSppt! 39。分割圖片 For i = 1 To elementNum 1 39。定義單元序號(hào)數(shù)組 For i = 1 To elementNum 1 39。ops(ops_top) 與 symb 比較返回一個(gè)空值 那么執(zhí)行下面的步驟 OperatorFunction = 表達(dá)式出錯(cuò) Exit Function End Select End If Wend If opds_top = 0 Then 39。數(shù)值數(shù)組棧頂指針向上移一位 opds(opds_top) = operate(a, sy, b) 39。從數(shù)值數(shù)組棧頂獲得一數(shù)字賦值給變量 b a = pop_opds() 39。從運(yùn)算符數(shù)組棧頂中獲得一運(yùn)算符 If sy = Then 27 39。獲得一下關(guān) 鍵 字 Case 39。再獲得一下關(guān) 鍵 字 Case = 39。將新獲得的運(yùn)算符跟運(yùn)算符數(shù)組棧頂?shù)南啾容^ Case 39。再獲得一下關(guān) 鍵 字 Else 39。如果獲得的關(guān)健字不是表達(dá)式的結(jié)束符 或 從運(yùn)算符數(shù)組得到的字符不是 則執(zhí)行下面的循環(huán)步驟 If ((symb +) And (symb ) And (symb *) And (symb /) And (symb () And (symb )) And (symb ) And (symb )) Then push_opds (symb) 39。整個(gè)工程項(xiàng)目中任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。并對(duì)這次游戲系統(tǒng)的開(kāi)發(fā)平臺(tái)，運(yùn)行平臺(tái)以及輸入輸出 設(shè)計(jì)做了介紹。在該章節(jié)中主要對(duì)這兩個(gè)游戲的運(yùn)行方式，規(guī)則做了簡(jiǎn)單介紹。 25 小結(jié) 本章主要對(duì)這次設(shè)計(jì)的游戲系統(tǒng)的總體規(guī)劃做了闡述。兩種風(fēng)格都設(shè)置了靈活多樣的錄入方式，可通過(guò)數(shù)字或漢字的快速檢索數(shù)據(jù)并提供列表框和表單方式輔助數(shù)據(jù)信息輸入。 3. 錄入方式有兩種：文本式和表單式。 漢字輸入法：拼音輸入法、五筆輸入法等。 24 系統(tǒng)開(kāi)發(fā)環(huán)境 開(kāi)發(fā)平臺(tái) 系統(tǒng)開(kāi)發(fā)平臺(tái)： Windows2021 數(shù)據(jù)庫(kù)管理系統(tǒng)： Microsoft Access 2021 數(shù)據(jù)庫(kù)和普通二進(jìn)制文件作為數(shù)據(jù)加載模塊 運(yùn)行平臺(tái) 操作系統(tǒng)： WindowsMe and Windows2021(sp1\sp2\sp3\sp4) and WindowsXp CPU:p2mx266 以上 內(nèi)存： 64MB 以上 顯示卡：兼容 16位色顯 卡 輸入輸出設(shè)計(jì) （ 1）輸入設(shè)計(jì) 1．與人工錄入有關(guān)的設(shè)備 鍵盤：標(biāo)準(zhǔn)鍵盤，具有 Windows功能鍵。顯示載入圖片 GSppt! = 39。取消選擇框時(shí) ,顯示選項(xiàng)按鈕選擇的圖片 = GSppt!(i + 1).Picture = Str(i) End If Private Sub cmnLP_Click() 39。 23 主要代碼如下： If = 1 Then = GSppt! 39。已移動(dòng)標(biāo)志設(shè)為真 End If End If End Sub （ 2） 游戲 設(shè)置界面 圖 313 拼拼圖游戲設(shè)置界面 在該界面中，可以從已有的圖片中選出自己喜歡的圖片進(jìn)行游戲，也可以使用載入圖片，到其他文檔中挑自己喜歡的圖片加載 進(jìn)去。判斷源單元 ,目標(biāo)單元是否符合移動(dòng)條件 If ImageElement(Target).Picture = 0 And ImageElement(Source).Picture 0 Then 39。移動(dòng)圖片子過(guò)程 If Target = 0 And Target = elementNum Then 39。移動(dòng)左列單元圖片 If (Index + 1) Mod ColNum = 0 And Not moveFlags Then moveImage Index, Index 1 moveImage Index, Index + ColNum moveImage Index, Index ColNum RLflags = True End If 39。圖片移入最后單元 moveImage 0, elementNum End If 39。圖片移出最后單元 moveImage Index, 0 Gamewin 39。 圖 312 拼拼圖主界面 21 主要代碼如下： Private Sub ImageElement_Click(Index As Integer) Dim RLflags As Boolean If ImageElement(0).BorderStyle = 0 Then Exit Sub moveFlags = False 39。按 [設(shè)置 ]鍵出現(xiàn)設(shè)置游戲界面 。 按 [新游戲 ]鍵重新開(kāi)始游戲。 其主要代碼為： Private Sub Form_Load() = = 0 = 0 = 100 = 25 = 2040 = 360 = True = 2150 = 360 = False = 2100 = 360 = False = 2040 = 360 = False = 2040 = 360 = False 18 = False End Sub 39。隨機(jī)產(chǎn)生一種特殊顯示模式 17 a = px(CardsPicture(iCardsNumber), CardsPictureClip, W) CardsPicture(iCardsNumber).Picture = (iCount).Picture iCardsNumber = iCardsNumber + 1 End Sub （ 3）使用說(shuō)明界面設(shè)計(jì) 這幾個(gè)界面主要用于向用戶說(shuō)明如何玩這個(gè)游戲，各界面上的按鈕如何使用。用于顯示四種不同種類的牌 Case 1 iCount = 0 + Num Case 2 iCount = 13 + Num Case 3 iCount = 26 + Num Case 4 iCount = 39 + Num End Select = iRndCardsNumber(iCardsNumber + 1) = Num 39。初始化隨機(jī) tt = Int(Rnd() * 4 + 1) 39。參數(shù) num 是用戶選擇的數(shù)值 16 Dim iCount As Integer If iCardsNumber = 4 Then iCardsNumber = 0 If iCardsNumber = 3 Then TestNumberFour = True 39。按 [Clear]鍵可以重新再測(cè)試，按 [Return]可以回到主界面。答題錯(cuò)誤所要做的動(dòng)作 15 a = MsgBox(恭喜！你答對(duì)了 本題無(wú)解 ^_^, 0 + 64 + 0, 正確 ) = 本題無(wú)解 = True = True = True End If End If End Sub （ 2） Test 界面設(shè)計(jì) 圖 35 24點(diǎn)紙牌測(cè)試界面 在主界面中，按 [Test]鍵就會(huì)出現(xiàn)該界面。 39。operater
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1