【正文】 定義使方塊不可見的過程 Select Case a Case 0 39。 [5]趙欣勝，亢慧娟，劉晟宏 .Vsual Basic 經(jīng)典范例 50 講 .科學(xué)出版社出版。 [3]唐凱軍，湯惠莉 .VB6編程 80 例上手 .山東電子音像出版社。 參考文獻 ： [1]龔沛曾，陸慰民，楊志強 .Vsual Basic 程序設(shè)計教程 .高等教育出版社出版 。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 致謝 在本次課程 設(shè)計中，我從指導(dǎo)老師化希耀和張兵身上學(xué)到了很多東西。而且?guī)в锌蛇x參數(shù)的過程拿到 C中，頂多變成不可選參數(shù)，也不會造成什么其他的麻煩。至于按名傳遞， VB會自動調(diào)整參數(shù)的順序，其結(jié)果與傳統(tǒng)方式的傳遞也沒有任何的不同。在調(diào)用的時候 ， VB若發(fā)現(xiàn)參數(shù)被省略，則自動讀取 .param部分的默認值，并顯式傳遞給過程。其實 VB從 ，只不過到了。 VB從 “ 可選參數(shù) ” 這一特性。 在原先的 VB6里，有一項奇特的功能 —— 默認屬性。 DirectCast運算符是不能重載的。他們的用法幾乎一樣。我一直希望 VB有這樣一個運算符。 VB中 WithEvents靜態(tài)方法是非常有用的，它可以顯著增強代碼可讀性，同時也讓 ，不像 C那樣離開了窗體設(shè)計器就必須手工綁定事件。 Handles和 WithEvents VB除了可以用 C那樣的方法來處理事件響應(yīng)以外，還有從 VB5繼承下來的獨特的事件處理方式 —— WithEvents。由于局部靜態(tài)變量的實質(zhì)是類的字段，所以它和真正的局部變量還是有所不同的。我覺得這個方法十分聰明，把靜態(tài)變量變成生命周期一樣的類字段，但是又由編譯器來控制訪問的權(quán)限，讓它成為一個局部變量。在代碼中試圖訪 問$STATIC$Test1$2020$i是不可能的，因為它不是一個有效的標識符。這就和對象封裝一個道理，本來應(yīng)該是一個方法的局部變量，現(xiàn)在我要被迫把它獨立出來，顯然是不好的設(shè)計。這樣做明顯不如 VB好。而 C的 static是不能用在過程內(nèi)部的。每調(diào)用一次 Test，計數(shù)器的數(shù)值就增加 1。 VB支持用 Static關(guān)鍵字聲明局部變量，這樣在過程結(jié)束的時候可以保持變量的數(shù)值： Public Sub Test1() Static i As Integer i += 1 39。VB和 C語言，編譯出來的是同樣的 CIL，但為什么 VB支持很多有趣的特性呢。這些都有待進一步改善，我們在游戲中還可以更換背景音樂，以適合不同 的玩家，在每通過一關(guān)可以給玩家播放一段 flash，吸引玩家去挑戰(zhàn)極限，不斷提高玩家的興趣，相信在以后的制作過程中我們將給大家?guī)硪粋€更新功能更全面的游戲。并提供游戲設(shè)置，對于一些技術(shù)性比較過硬的玩家，可以調(diào)游戲級別、以及游戲速度，使得玩家能夠充分的發(fā)揮競技游戲的特色，可以不斷的挑戰(zhàn)自我，挑戰(zhàn)極限。 用戶界面具體如圖： 圖 — 登陸界面 圖 — 游戲界面 圖 — 菜單編輯界面 圖 — 游戲幫助界面 有關(guān)說明 經(jīng)過兩個多星期的設(shè)計和開發(fā)，俄羅斯方塊游戲已經(jīng)成功。 隱藏 F6：隱藏欲覽區(qū)方塊。 選擇游戲速度。 退出 Ctrl+Q：退出游戲。 繼續(xù) F2：繼續(xù)游戲。 游戲的編輯，讀者可以參照下面的功能介紹 。 游戲級別的自由選擇是讓用戶選擇游戲開始時候，游戲區(qū)底部出現(xiàn)一定行數(shù)的隨機方塊，同樣給玩家增加了難度，功能代碼如下： For i = 19 To 20 Val() Step 1 For j = i * 10 To i * 10 + 9 If Rnd = Then cmdfang(j).Visible = True Next Next 可以根據(jù)你選擇的難度系數(shù)在底層的每一行隨機產(chǎn)生超過半數(shù)（即 5個以上）以上的小方塊，這樣適合喜歡高難度的玩家。具體程序代碼如下： For i = 190 To 10 Step 10 If cmdfang(i).Visible = True And _ cmdfang(i + 1).Visible = True And _ cmdfang(i + 2).Visible = True And _ cmdfang(i + 3).Visible = True And _ cmdfang(i + 4).Visible = True And _ cmdfang(i + 5).Visible = True And _ cmdfang(i + 6).Visible = True And _ cmdfang(i + 7).Visible = True And _ cmdfang(i + 8).Visible = True And _ cmdfang(i + 9).Visible = True Then For j = i + 4 To i Step 1 t = 1 cmdfang(j).Visible = False cmdfang(2 * i + 9 j).Visible = False For k = 1 To 4000 DoEvents Next t = 0 Next linenum = linenum + 1 For j = i 1 To 0 Step 1 If cmdfang(j).Visible = True Then cmdfang(j).Visible = False cmdfang(j + 10).Visible = True End If Next clearline 39。 方塊在下落的過程中會自動判斷每一行方塊的 visible屬性，如果全部為 true時，就會將這一行小方塊的 visible屬性全部變成 false，在將上面的小方塊向下移動，利用 for語句進行循環(huán)判斷，將所有這樣情況的行改變小方塊 visible屬性。如果長條下落到最后一行也將無法由橫著變成豎立狀態(tài)。 俄羅斯方塊的旋轉(zhuǎn)主要將方塊的位置加以變換得到的，例如上述范例，長條型有兩中樣式，根據(jù)小方塊的編號變動來實現(xiàn)整個造 型的旋轉(zhuǎn)，比如： If n(0) 18 = 2 And n(3) + 9 = 198 Then If cmdfang(n(0) 18).Visible = False And _ cmdfang(n(1) 9).Visible = False And _ 3 4 5 6 13 14 15 16 23 24 25 26 33 34 35 36 cmdfang(n(3) + 9).Visible = False Then hidefang 0 n(0) = n(0) 18 n(1) = n(1) 9 n(3) = n(3) + 9 showfang 0 situation = 1 End If End If 方塊的造型在旋轉(zhuǎn)的時候存在一個公式，當然首先要判斷是否滿足旋轉(zhuǎn)的要求，以上是一個長條型由橫著變成豎立狀態(tài)的旋轉(zhuǎn)，我們以它的造型中的第三個小方塊 n(3)為中心旋轉(zhuǎn) ，這樣，在開始運動的時候，長條形要發(fā)生旋轉(zhuǎn)最少要運動到第三行，才能由橫著變成豎立狀態(tài)，游戲區(qū)圖形框中第三行的第一個方塊的編號為 20，所以長條造型的第一個小方塊的編號 n(0)必須要大于 20。如果需要我們可以添加更多的造型。 相信朋友們都玩過俄羅斯方塊，對這個 游戲的玩法和方塊形狀都比較熟悉。 俄羅斯方塊游戲主要由兩個界面構(gòu)成，登陸界面和開始游戲界面。 正文 游戲設(shè)計的具體實現(xiàn) 在我們兩個人共同努力下，此次設(shè)計，終于能夠圓滿完成。 （ 4）游戲速度的自由選擇。 （ 2）俄羅斯方塊的造型。 （ 5）游戲菜單選項的設(shè)計及功能實現(xiàn)。 （ 3）俄羅斯方塊的自動消行功能。 開發(fā)人員與分工 組長李虎同學(xué)所做工作如下： （ 1）俄羅斯方塊的旋轉(zhuǎn)。 ，并且按照公式： 得分 = 原來分數(shù) + 100 * (2 ^ 同時消除的行數(shù) 1) 這樣，你同一時間消除的行數(shù)越多，你的得分也就越高，當游戲積分到了一定時可以自動升級，這個升級指速度升級。 ，將自動將這一行方塊消除，然后將上面所有方塊向下移動，可以支持連續(xù)消行。 主要實現(xiàn)的功能 我們開發(fā)的俄羅斯方塊游戲，主要實現(xiàn)了以下幾種功能： 。 （ 10）游戲的背景音樂。 （ 8）游戲得分的計算。 （ 6）游戲級別的自由選擇。 （ 4）俄羅斯方塊的運動情況（包括向左，向右和向下）。 （ 2）俄羅斯方塊的造型。 從游戲的基本玩法出發(fā)，主要就是俄羅斯方塊的形狀和旋轉(zhuǎn)，我們在設(shè)計中在一個圖片框中構(gòu) 造了一個 4*4的網(wǎng)狀小塊，由這些小塊組合成新的形狀，每四個小塊連接在一起就可以構(gòu)造出一種造型，因此我們總共設(shè)計了 7中造型，每種造型又可以通過旋轉(zhuǎn)而變化出 2到 4種形狀，利用隨機函數(shù)在一個預(yù)覽窗體中提前展示形狀供用戶參考，然后將展示的形狀復(fù)制到游戲窗體中進行擺放，在游戲窗體中用戶就可以使用鍵盤的方向鍵來控制方塊的運動，然后利用遞歸語句對每一行進行判斷，如果有某行的方塊是滿的，則消除這行的方塊，并且使上面的方塊自由下落，其中，方塊向下的速度是有時鐘控件控制的，在游戲中，用戶也可以使用向下鍵加快下落速度，定義一個變 量，對消除的函數(shù)進行記錄，最后就可以得出用戶的分數(shù)，用 if 語句對分數(shù)判斷，達到一定的積分就可以升級到下一個檔次。軟件：要求 windows 95以上版本。但是經(jīng)過多年的開發(fā)研究。 Vb是 microsoft公司于 1991年退出的 windows應(yīng)用程序開發(fā)工具 visual意思是“可視化的”。 為了懷念經(jīng)典，也為了能夠給大多的計算機用戶在工作之余找到一個休閑、娛樂的一個方式，我們小組開始著手用 VB語言開發(fā)一個經(jīng)典的俄羅斯方塊游戲。某些批評家也許會聲稱，《俄羅斯方塊》要比過去二十年間出現(xiàn)的任何東西都要浪費人們的時間。某些與墜落的玩具碎片和它們的形狀有關(guān)的東西，使得哪怕新手也會很自然地企圖把它們排列起來，并加以適當組合，就好似《俄羅斯方塊》觸動了我們某些內(nèi)在的感官，使得哪怕是我們當中最雜亂無章的人也要把事情整理妥當。它是永恒的娛樂經(jīng)典，但它實際上又和那些傳統(tǒng)的經(jīng)典娛樂方式不 同，因為它的本質(zhì)是電子化的，所以它的確屬于現(xiàn)代產(chǎn)物。通過這學(xué)期來 Visual Basic的學(xué)習(xí)，我初步掌握了 Visual Basic語言的最基本的知識，于是在化希耀張兵等老師的指導(dǎo)下動手用 Visual Basic編寫俄羅斯方塊游戲。隨著 21世 紀信息社會的到來 ,計算機在人們的工作和生活中的深入 ,要求我們越來越多地與計算機打交道 ,為了使用戶在繁忙的日程工作中得到放松 ,于是出現(xiàn)了各種各樣的休閑軟件 ,如聊天工具 ,游戲等等。自定義函數(shù)，確定方塊是否能左移 If n(0) Mod 10 0 And n(1) Mod 10 0 And n(2) Mod 10 0 And n(3) Mod 10 0Then If cmdfang(n(0) 1).Visible = False And _ cmdfang(n(1) 1).Visible = False And _ cmdfang(n(2) 1).Visible = False And _ cmdfang(n(3) 1).Visible = False Then leftable =