【正文】 e Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click PrI End Sub 以上的程序代碼實現(xiàn)“速度級別的增加 /減少”功能 47. 課程設(shè)計是培養(yǎng)學(xué)生綜合運用所學(xué)知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實際問題 ,鍛煉實踐能力的重要環(huán)節(jié) ,是對學(xué)生實際工作能力的具體 訓(xùn)練和考察過程 .隨著科學(xué)技術(shù)發(fā)展的日新日異，單片機已經(jīng)成為當(dāng)今計算機應(yīng)用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。Custom Picture = 方塊 .frx:C3B6 ToolTipText = 續(xù)繼 CTRL+J Top = 2475 Visible = 0 39。 業(yè)報告內(nèi)容 界面是以自己的照片為背景然后一個游戲方框和一個游戲輔助方框 ,再加上一些游戲所需的開始、暫停、退出等按鈕 1） Enabled = 0 39。 （ 8）游戲得分的計算。 （ 6）游戲級別的自由選擇。 （ 4）俄羅斯方塊的運動情況（包括向左，向右和向下）。 （ 2）俄羅斯方塊的造型。 從游戲的基本玩法出發(fā)，主要就是俄羅斯方塊的形狀和旋 轉(zhuǎn)，我們在設(shè)計中在一個圖片框中構(gòu)造了一個 4*4的網(wǎng)狀小塊，由這些小塊組合成新的形狀，每四個小塊連接在一起就可以構(gòu)造出一種造型，因此我們總共設(shè)計了 7中造型，每種造型又可以通過旋轉(zhuǎn)而變化出 2到 4種形狀，利用隨機函數(shù)在一個欲覽窗體中提前展示形狀供用戶參考，然后將展示的形狀復(fù)制到游戲窗體中進(jìn)行擺放，在游戲窗體中用戶就可以使用鍵盤的方向鍵來控制方塊的運動，然后利用遞歸語句對每一行進(jìn)行判斷，如果有某行的方塊是滿的，則消除這行的方塊，并且使上面的方塊自由下落，其中，方塊向下的速度是有時鐘控件控制的，在游戲中，用戶也可以使 用向下鍵加快下落速度，定義一個變量，對消除的函數(shù)進(jìn)行記錄，最后就可以得出用戶的分?jǐn)?shù)，用 if 語句對分?jǐn)?shù)判斷，達(dá)到一定的積分就可以升級到下一個檔次。通過課程 設(shè)計，學(xué)生能達(dá)到具備設(shè)計功能較為復(fù)雜的 Windows應(yīng)用程序的能力。同時，在汪老師的身上我學(xué)得到很多實用的知識，在次我表示感謝！同時，對給過我?guī)椭乃型瑢W(xué)再次表示忠心的感謝！都是很有意義的。 這次課程設(shè)計終于順利完成了，在設(shè)計中遇到了很多編程問題，通過老師和同學(xué)的幫住都順利解決了。通過這次課程設(shè)計使我懂得了理論與實際相結(jié)合是很重要的，只有理論知識是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識與實踐相結(jié)合起來，從理論中得出結(jié)論，才能真正為社會服務(wù)，從而提高自己的實際動手能力和獨立思考的能力。因此作為二十一世紀(jì)的大學(xué)來說掌握 VB的開發(fā)技術(shù)是十分重要的。False Width = 480 End 以上的代碼來實現(xiàn) 繼續(xù) 功能 2） Begin Image9 Height = 480 Left = 5880 MouseIcon = 方塊 .frx:B960 MousePointer = 99 39。False Height = 480 Left = 4680 MouseIcon = 方塊 .frx:BF74 MousePointer = 99 39。 （ 9）游戲菜單選項的設(shè)計及功能實現(xiàn)。 （ 7）游戲速度的自由選擇。 （ 5）俄羅斯方塊的自動消行功能。 （ 3）俄羅斯方塊的旋轉(zhuǎn)。 俄羅斯方塊游戲設(shè)計的主要步驟為以下幾個方面： （ 1）游戲界面的設(shè)計。同時，通過課程設(shè)計，培養(yǎng)學(xué)生自主學(xué)習(xí)和獨立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要的一環(huán) VB在實際生活中的應(yīng)用 Visual Basic(簡稱 VB)程序設(shè)計語言的基本概 念和語法結(jié)構(gòu)以及常用控件的使用 ,并通過大量的例子介紹 VB程序設(shè)計的方法和技巧 ,內(nèi)容包括 :VB程序設(shè)計基礎(chǔ)、對象及 VB應(yīng)用程序的建立、數(shù)據(jù)的輸入與輸出、基本的控制結(jié)構(gòu)、數(shù)組和過程的程序設(shè)計、常用控件的使用、界面設(shè)計、圖形操作、文件、數(shù)據(jù)庫技術(shù)等 .在這些內(nèi)容的講解中 ,堅持語言為程序設(shè)計服務(wù)的原則 ,注重實用性 . 在教學(xué)的安排上 ,采用由淺到深、循序漸進(jìn)的結(jié)構(gòu) ,做到通俗易懂 ,既有針對初學(xué)者的基本知識的介紹 ,也有針對已經(jīng)掌握 VB程序基本設(shè)計方法的學(xué)生對高層次內(nèi)容的要求 ,將程序設(shè)計語言、可視化的面向?qū)ο缶幊碳夹g(shù)、 上機訓(xùn)練有機地融為一體 .突出 VB的基本語法、編程方法的訓(xùn)練 ,讓學(xué)生學(xué)會分析問題并快速掌握面向?qū)ο蟮某绦?、界面設(shè)計、數(shù)據(jù)庫技術(shù)的設(shè)計技巧 ,培養(yǎng)學(xué)生的動手能力和開發(fā)應(yīng)用程序的能力 1. 運行游戲時 .界面隨機的產(chǎn)生不同形狀的方塊 ,游戲者通過自己的操作使方塊進(jìn)行合理的堆積 .如果每層達(dá)到飽合狀態(tài)的時候會自動消除 .然后游戲有規(guī)則的進(jìn)行加分 .分?jǐn)?shù)達(dá)到一定的階段 .游戲的級別也會越來越高 .然后方塊下降的速度也會隨之慢慢加快 .以迎合游戲者的挑戰(zhàn) ,達(dá)到最加有 趣的游戲 ! 游戲是用來給大家娛樂的，所以要能在使用的過程中給大家?guī)砜鞓?，消除大家的疲勞，所以我們在游戲中添加了漂亮的場景和動聽的音樂，設(shè)置了過關(guān)升級的功能，激發(fā)大家的娛樂激情。 參考文獻(xiàn)： （若有，請附?。? ［數(shù)字］作者 1，作者 2. 文獻(xiàn)名稱［ J］ . 期刊名，時間，卷（期）：初始頁碼 結(jié)束頁碼 . ［數(shù)字］作者 1，作者 2. 書名［ M］ . 地點：出版社，出版年份，月 . ［ 1］羅偉其，姚國祥，羅勇輝，等 . 信息大系統(tǒng)的信息集成結(jié)構(gòu)模型實習(xí)與實現(xiàn) [J]. 計算機工程與應(yīng)用， 2020， 37(2)： 911. ［ 2］方陸明 . 森林資源信息管理網(wǎng)絡(luò)化 [M]. 北京：科學(xué)出版社， 2020， 12： 6982. 信息工程學(xué)院 課 程 大 作 業(yè) 報 告 課程名稱： vb程序設(shè)計 課程編號： 作業(yè)內(nèi)容： VB制作俄羅斯方塊 目 錄 ............................................... 1 課程大作業(yè)設(shè)計的目的 .............................................. 1 VB在實際生活的應(yīng)用 ................................................ 1 ................................... 1 俄羅斯方塊的題目描述 .............................................. 1 俄羅斯方塊設(shè)計思想 ................................................ 1 ........................................... 2 界面設(shè)計 .......................................................... 3 俄羅斯方塊的功能實現(xiàn) .............................................. 3 ............................................................ 6 VB課程大作業(yè)設(shè)計的目的 本課程設(shè)計以《程序設(shè)計簡明教程》課程為基礎(chǔ)，目的是進(jìn)一步培養(yǎng)學(xué)生綜合應(yīng)用 VB的各種編程知識和技巧進(jìn)行程序設(shè)計的能力。在此感謝汪老師的平日辛勤指導(dǎo)。在設(shè)計的過程中遇到問題，可以說得是困難重重，這畢竟第一次做的，難免會遇到過各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學(xué)過的知識理解得不夠深刻，掌握得不夠牢固，比如說控件的一些問題，通過這次課程設(shè)計之后，一定把以前所學(xué)過的知識重新溫故。 回顧起此次俄羅斯方塊課程設(shè)計，我感慨頗多，的確，從選題到定稿，從理論到實踐，在整整兩星期的日子里，可以說得是苦多于甜，但是可以學(xué)到很多很多的的東西，同時不僅可以鞏固了之前所學(xué)過的知識，而且學(xué)到了很多在書本上所沒有學(xué)到過的知識。Custom Picture = 方塊 .frx:BC6A ToolTipText = 退出 CTRL+X Top = 2475 Width = 480 以上的程序代碼實現(xiàn) 退出 功能 3） Private Sub Image3_Click() OPE_Click End Sub 以上的程序代碼實現(xiàn) “ 開始 ” 功能 4） Private Sub Image8_Click() Gotog_Click End Sub 以上的程序代碼實現(xiàn) “ 暫停 /繼續(xù) ” 功能 5） Private Sub Image7_Click() ENDG_Click End Sub 以上的程序代碼實現(xiàn) “ 停止 ” 功能 6） Private Sub Image9_Click() Exite_Click End Sub 以上的程序代碼實現(xiàn) “ 退出 ” 功能 7） Private Sub Image5_Click() If jB 40 Then jB = jB + 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click End Sub Private Sub Image6_Click() If jB 1 Then jB = jB 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click PrI End Sub 以上的程序代碼實現(xiàn)“速度級別的增加 /減少”功能 45. 課程設(shè)計是培養(yǎng)學(xué)生綜合運用所學(xué)知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實際問題 ,鍛煉實踐能力的重要環(huán)節(jié) ,是 對學(xué)生實際工作能力的具體訓(xùn)練和考察過程 .隨著科學(xué)技術(shù)發(fā)展的日新日異，單片機已經(jīng)成為當(dāng)今計算機應(yīng)用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。Custom Picture = 方塊 .frx:C3B6 ToolTipText = 續(xù)繼 CTRL+J Top = 2475 Visible = 0 39。 界面是以自己的照片為背景然后一個游戲方框和一個游戲輔助方框 ,再加上一些游戲所需的開始、暫停、退出等按鈕 1） Enabled = 0 39。 （ 8）游戲得分的計算。 （ 6）游戲級別的自由選擇。 （ 4）俄羅