【正文】 Visual Basic 技術(shù) 游戲開發(fā)軟件的介紹 目前可 以說進(jìn)行游戲開發(fā)的 軟件很多， 可 以說每種軟件都有其自身的優(yōu)點(diǎn)，但是 Visual Basic 卻因 其許多優(yōu)點(diǎn)越來越受到游戲開發(fā)程序員們的青睞 。 沒有一種 開發(fā) 環(huán)境能像 Visual Basic(及 Visual Studio)一樣提供數(shù)暈龐大、種類繁多的功能 。 Visual Basic 能使使用者樹立面向?qū)ο蟮木幊?思想，否 則開發(fā)出的程序只能停留在幾年前的水平上 ，雖 然許多人聲稱 BASIC 語言不 是面向?qū)ο蟮木幊陶Z 言，或者至少不如其他語言 那樣純粹，但無庸 置疑 ，使用其他 工 具的編程效率都低于 Visual Basic。 這樣的程序當(dāng)然也能夠運(yùn)行，但絕對屬于一種 比較不 完善的 設(shè)計(jì) 方法 。 提 高 編程技巧的一個(gè)關(guān)鍵在于盡 量 多地掌握 Visual Basic 用于創(chuàng)建類和 ActiveX 組件的功能，這種架構(gòu)能使程序員進(jìn)一步以面向?qū)ο蟮姆绞絹硭伎紗栴} 。 3 Visual Basic 的編程環(huán)境 Windows 下的 Visual Basic 編程環(huán)境 在 Windows 環(huán)境下，用戶只需移動(dòng)鼠標(biāo)，單擊一些按鈕，或者選擇菜單中的某些命令來實(shí)現(xiàn)某些操作，在程序運(yùn)行過程中還會出現(xiàn)一些“對話框”，引導(dǎo)用戶進(jìn)行某些選擇 和操作。 Microsoft 于 1991 年推出了 Visual Basic 版本。 Microsoft 的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮墓ぞ摺９识?，?shí)現(xiàn)本系統(tǒng) VB是一個(gè)相對好的選擇。對象的性質(zhì)和狀態(tài)特征稱為“屬性”，同類型的對象具有相同的屬性。 不同對象的不同屬性值描述了對象的特征。同類對象的抽象稱為“類”。這種請求對象執(zhí)行某一操作或回答某些信息的要求稱為“消息 ”或“事件”。 VB 的事件驅(qū)動(dòng)程序都表示為“過程”。 4 VB 的工具箱為程序員提供了一套界面設(shè)計(jì)常用的對象模子類，它們的屬性沒有具體數(shù)值。這些屬性值可以由用戶修改。 程序員在 VB平臺上開發(fā)一個(gè)應(yīng)用程序，要完成的工作就是： 需求分析：對要解決的問題進(jìn)行數(shù)據(jù)描述和功能描述。包括建立窗體、在窗體上建立各種圖形對象并設(shè)計(jì)他們的屬性值。 測試： 一個(gè)應(yīng)用程序往往要經(jīng)過反復(fù)的測試、修改才能交付使用。覆蓋了應(yīng)用程序的設(shè)計(jì)、編輯、編譯和調(diào)試的所有功能。一個(gè)程序一般由若干窗體、標(biāo)準(zhǔn)模塊以及應(yīng)用環(huán)境組成。系統(tǒng)允許同時(shí)打開和管理多個(gè)工程。 實(shí)現(xiàn)工具欄 ： 快捷工具欄以圖標(biāo)形式提供了部分常用的菜單命令的功能，用鼠標(biāo)指向它時(shí)顯示工具按鈕的名稱和功能。 幫助 ： VB 的聯(lián)機(jī)幫助是一個(gè)較為完善的幫助系統(tǒng)，幫助菜單的各個(gè)命令用于啟動(dòng)這個(gè)系統(tǒng)，同時(shí)還具有通 向 Inter 上有關(guān) VB站點(diǎn)的菜單選項(xiàng)。 VB 聯(lián)機(jī)幫助系統(tǒng)可以進(jìn)行上下文相關(guān)查詢，即用戶可以在任何時(shí)候按下 F1 鍵，查看與當(dāng)前進(jìn)行的工作相關(guān)的幫助。 關(guān)于系統(tǒng) ： 由以上關(guān)于 VB 的介紹我們可以了解到：應(yīng)用 VB 幫助我們實(shí)現(xiàn)教師排課和教室安排優(yōu)化管理系統(tǒng)是非常方便、可靠、有效的方案。根據(jù)程序的功能要求和用戶與程序之間的信息交流的需要，來確定需要哪些對象，規(guī)劃界面的布局。 大多數(shù)屬性取值既可以在設(shè)計(jì)時(shí)通過屬性窗口設(shè)定，也可以在程序代碼中通過編程早程序運(yùn)行時(shí)修改。 （ 4） 保存工程 一個(gè) VB 程序就是一個(gè)工程，在設(shè)計(jì)一個(gè)應(yīng)用程序時(shí)，系統(tǒng)會建立一個(gè)擴(kuò)展名為 .vbp 的工程文件，工程文件包含了該工程所建立的所有文件的相關(guān)信息，保存工程就同時(shí)保存了該工程的所有相關(guān)文件。在打開一個(gè)工程時(shí)，在工程中的所有相關(guān)文件同時(shí)被裝載。 （ 6） 生成可執(zhí)行程序 6 為了使程序可以脫離 VB 環(huán)境來運(yùn)行程序，通過“文件”菜單中的“生成工程 ” 命令來生成可執(zhí)行（ .exe）。在生成執(zhí)行文件后，再通過安裝向?qū)⑺邢嚓P(guān)文件打包，就可以生成一個(gè)軟件產(chǎn)品在Windows 環(huán)境下安裝獨(dú)立運(yùn)行。 VB 是一種面向?qū)ο蟮木幊陶Z言，通過對屬性、方法和事件的編程來實(shí)現(xiàn) 各種功能。屬性有屬性值，改變對象的屬性值就可以改變對象的狀態(tài)。 語法： 對象名 .屬性名 =表達(dá)式 如果省略對象名則對象為當(dāng)前的窗體 （ 3） 對象的方法 對象的方法決定了對象要執(zhí)行的動(dòng)作，方法中的代碼是看不見的，可通過調(diào)用來使用某個(gè)對象的方法 語法： [對象名 ].方法名 [（參數(shù) 1，參數(shù) 2,? ） ] （ 4） 對象的事件 時(shí)間是對象的 響應(yīng)， VB 的應(yīng)用程序是由事件驅(qū)動(dòng)的。如果沒有事件的發(fā)生，則整個(gè)程序就處于停滯狀態(tài)。 VB 編程的核心就是為每個(gè)要處理的事件編寫相應(yīng)事件的過程代碼。設(shè)計(jì)窗體的第一步是設(shè)置它的屬性。 窗體最常用的是 Show 方法，用于顯示窗體。 ①內(nèi)部控件 內(nèi)部控件是又 VB 本身提供的控件，也稱常用控件，這些控件通常顯示在控件箱中。 ③可插入對象 可插入對象是由其他應(yīng)用程序創(chuàng)建的對象，利用可插入對象，就可以在 VB程序中使用其他應(yīng)用程序的對象。一個(gè)控件數(shù)組至少應(yīng)有一個(gè)元素，元素的個(gè)數(shù)最多可達(dá) 32767。 在設(shè)計(jì)時(shí)，控件數(shù)組比直接向窗體添加多個(gè)同類型的控件占用的資源少，控件數(shù)組中的控件元素可以共享代碼。 小結(jié) 本章主要介紹了此次游戲開發(fā)所用的 技術(shù)軟件 Visual Basic 進(jìn)行了一定的介紹 。還說明了這 次游戲設(shè)計(jì)中 Visual Basic 的編程環(huán)境是在 Windows，主要是面向?qū)ο蟮木幊獭? 9 第三 章 系統(tǒng)總體規(guī)劃 系統(tǒng)功能簡介 24 點(diǎn)紙牌簡介 任意給的四張撲克牌（不包括大小王），只能夠用加、減、乘、除以及適當(dāng)?shù)睦ㄌ栠B接著四張牌使得結(jié)果為 24，或者宣布根本就是無解的。 使用本程序其實(shí)很簡單，按 [Start]后，程序會任意給出四張牌，在左邊的按鈕中也能看 到相應(yīng)的數(shù)值，只要輸入相應(yīng)的表達(dá)式就可以了。如果輸入的數(shù)據(jù)有錯(cuò)，那么程序會自動(dòng)定位到出錯(cuò)的地方，以方便用戶修改。即：可以自己任意給出四個(gè)（ 113）的整數(shù)，按 [OK]鍵后由程序自動(dòng)算出答案。按 [新游戲 ]鍵重新開始游戲，按 [設(shè)置 ]鍵出現(xiàn)設(shè)置游戲界面。點(diǎn)擊 [確定 ]即完成游戲設(shè)置。主要說明版權(quán)所有。如： 1 這四個(gè)數(shù)，輸入表達(dá)式為： 6/（ 5/41）即可；如果你認(rèn)為本題無解，那么你不必輸入任何數(shù)值直接按回車就可以，程序會驗(yàn)算答題是否準(zhǔn)確。 主要代碼如下： Private Sub AnswerButton_Click() Dim iAnswer As Integer iAnswer=() 39。operater函數(shù)能返回 24的值說有解 = + =24 Else 39。進(jìn)程停止走動(dòng) If Trim$() Then 39。調(diào)用表達(dá)式 OperatorFunction 如果表達(dá)式?jīng)]錯(cuò)則執(zhí)行下面的步驟 If OperatorFunction() = 24 Then 39。答題錯(cuò)誤所要做的動(dòng)作 a = MsgBox(對不起！你答錯(cuò)了 , 0 + 16 + 0, 錯(cuò)誤 ) = False = False = False = True = amp。 39。無論答題對與否都要做的動(dòng)作 = + = + OperatorFunction() Else 39。由于是用戶輸入出錯(cuò)所以進(jìn)程續(xù)繼走動(dòng) a = MsgBox(操作符出錯(cuò)，請檢查后重試 , 0 + 16 + 0, 錯(cuò)誤 ) = Len() 39。將焦點(diǎn)定位在文本框上的錯(cuò)誤位置上，使用戶能夠方便地修改輸入上的錯(cuò)誤 Exit Sub 14 39。由于是用戶輸入出錯(cuò)所以進(jìn)程續(xù)繼走動(dòng) If InputOperator() = True Then 39。將焦點(diǎn)定位在文 本框上的錯(cuò)誤位置上，使用戶能夠方便地修改輸入上的錯(cuò)誤 Exit Sub End If Else 39。調(diào)用 24 點(diǎn)表達(dá)式計(jì)算函數(shù) If iAnswer = 24 Then 39。HFFamp。使字體變成紅色 Else 39。在該界面中，可以自己任意給出四個(gè)（ 113）的整數(shù)，按 [OK]鍵后由程序自動(dòng)算出答案。 該界面中程序自動(dòng)給出答案的主要代碼如下： Private Sub TestCards(Num As Integer) 39。用戶已經(jīng)選夠了牌數(shù) If TestNumberFour Then = True Else = False End If Randomize 39。產(chǎn)生一個(gè)隨機(jī)數(shù) Select Case tt 39。將數(shù)值裝入數(shù)組以便計(jì)算時(shí)使用 = (iCount).Picture Dim a