vb版記憶游戲程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告

（2010-2011學(xué)年第二學(xué)期）系(部)機(jī)械系專(zhuān)業(yè)班級(jí)機(jī)電專(zhuān)60904班學(xué)生姓名諶前學(xué)號(hào)/序200962143/5指導(dǎo)教師張國(guó)英完成時(shí)間第19周記憶游戲設(shè)計(jì)一、設(shè)計(jì)目標(biāo)記憶游戲：兩套一樣的圖片隱藏在一個(gè)方陣內(nèi)，用鼠標(biāo)去點(diǎn)擊可看到所隱藏的圖片，并將上一次所看到的圖片重新隱藏起來(lái)，如果相鄰兩次所點(diǎn)擊的圖片是一樣的，那么這兩個(gè)圖片所在的按鈕會(huì)消失。游戲得分可以用總點(diǎn)擊數(shù)或計(jì)時(shí)數(shù)來(lái)計(jì)算。程序設(shè)計(jì)界面如圖1所示。圖1:記憶游戲界面

二、概要設(shè)計(jì)1.功能模塊（見(jiàn)圖2）記憶游戲控制計(jì)時(shí)記憶游戲控制計(jì)時(shí)選項(xiàng)選項(xiàng)退出開(kāi)始結(jié)束退出開(kāi)始結(jié)束圖2記憶游戲功能模2.界面設(shè)計(jì) 在窗口左邊的工具箱中，單擊一下框架控件，在窗體上繪出兩個(gè)大小合適的框架，將其中大的框架名稱(chēng)改為gamearea,并將caption屬性分別改為空格、難度。用同樣的方法在框架中添加一個(gè)命令按鈕，并將其名稱(chēng)改為command,visible屬性改為false,在小的框架里面添加三個(gè)optionbutton,將其名稱(chēng)都改為option1，option屬性分別改為初級(jí)、中級(jí)、高級(jí)。然后用同樣的方法在框架的右邊添加三個(gè)命令按鈕，將其名稱(chēng)分別改為start,endthis,close,并將caption屬性分別改為開(kāi)始、結(jié)束、退出。用同樣的方法添加兩個(gè)label控件，同時(shí)在兩個(gè)label控件的下面分別添加一個(gè)文本框，將其名稱(chēng)分別改為consumed、totalclick三、詳細(xì)設(shè)計(jì)加載窗體時(shí)利用隨機(jī)函數(shù)初始化使每次運(yùn)行均不一樣PrivateSubForm_Load()RandomizetheWidth=Command(0).WidththeHeight=Command(0).Heightcur_radix=elementaryEndSub利用一個(gè)框架一個(gè)單選按鈕組和SelectCase語(yǔ)句來(lái)實(shí)現(xiàn)難度級(jí)別的不同PrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0cur_radix=elementaryCase1cur_radix=intermediateCase2cur_radix=seniorEndSelectEndSub利用時(shí)鐘控件Timer和text控件來(lái)實(shí)現(xiàn)計(jì)時(shí)功能PrivateSubTimer1_Timer()timeconsumed.Text=timeconsumed.Text+1EndSub注意：時(shí)鐘控件的interval值應(yīng)設(shè)置為1000，即為每秒鐘計(jì)一次時(shí)當(dāng)Enable=true時(shí)時(shí)鐘控件才能使用利用text控件和If語(yǔ)句來(lái)實(shí)現(xiàn)點(diǎn)擊次數(shù)的計(jì)算，并將該按鈕的tag屬性中的字符取出作為圖片名進(jìn)行加載PrivateSubcommand_click(IndexAsInteger)IfIndex=lastindexThenExitSubtotalclick.Text=totalclick.Text+1Command(Index).Picture=LoadPicture(App.Path+"\tupian\"&Command(Index).Tag&".gif")'加載圖片IfCommand(lastindex).Tag=Command(Index).TagThenCommand(lastindex).Tag=""Command(Index).Tag=""CallsndPlaySound("goal",1)Command(lastindex).Visible=FalseCommand(Index).Visible=Falselastindex=0totalcmdbtn=totalcmdbtn-2ElseCommand(lastIndex).Picture=LoadPicture("")'隱藏圖片lastindex=IndexEndIfIftotalcmdbtn=0Thenendthis_ClickEndSub如果兩個(gè)連續(xù)單擊的按鈕tag屬性中的字符相同，則兩個(gè)按鈕同時(shí)消失，如果按鈕全部消失，則這個(gè)級(jí)別的游戲結(jié)束，結(jié)束后可以重新選擇級(jí)別利用Int函數(shù)和For···Next語(yǔ)句實(shí)現(xiàn)按鈕的動(dòng)態(tài)加載CurTop=Int((gamearea.Height-theHeight*cur_radix)/2)Fori=1Tocur_radixcurLeft=Int((gamearea.Width-theWidth*cur_radix)/2)-theWidthForj=1Tocur_radixcount=count+1LoadCommand(count)SetCommand(count).Container=gameareacurLeft=curLeft+theWidthCommand(count).Left=curLeftCommand(count).Top=CurTopCommand(count).Visible=TrueNextjCurTop=CurTop+theHeightNexti6.利用For循環(huán)語(yǔ)句、Do···While語(yǔ)句、If語(yǔ)句和For···Next語(yǔ)句來(lái)實(shí)現(xiàn)對(duì)按鈕的屬性tag的賦值totalCmdBtn=Cur_Radix^2Forcount=1TototalcmdbtnIfCommand(count).Tag=""ThenDimCharacter,theReserveAsIntegerDoCharacter=97+Int(18*Rnd)FortheReserve=1Tocount-1IfCommand(theReserve).Tag=CharacterThenExitForNextLoopWhiletheReserve<countCommand(count).Tag=Chr(Character)DimcorrespondposAsIntegerDocorrespondpos=count+1+Int((totalcmdbtn-count)*Rnd)LoopWhileCommand(correspondpos).Tag<>""Command(correspondpos).Tag=Command(count).TagEndIfNext7.利用For循環(huán)語(yǔ)句和Unload來(lái)實(shí)現(xiàn)按鈕的卸載PrivateSubendthis_Click()DimcountAsIntegerForcount=Command.count-1To1Step-1UnloadCommand(count)NextOption1(1).Enabled=TrueOption1(2).Enabled=TrueOption1(0).Enabled=Trueendthis.Enabled=Falsestart.Enabled=TrueTimer1.Enabled=False8.利用Unload實(shí)現(xiàn)程序的卸載PrivateSubclose_Click()UnloadMeEndSub四．效果分析以及設(shè)計(jì)方案的完善游戲開(kāi)始界面圖2開(kāi)始界面游戲初級(jí)界面圖3初級(jí)界面游戲中級(jí)界面圖4中級(jí)界面游戲高級(jí)界面圖5高級(jí)界面心得體會(huì)通過(guò)這次的課程設(shè)計(jì)，我收獲頗大。在程序設(shè)計(jì)過(guò)程中，我們需要注意程序的每一條語(yǔ)句是否正確，變量是否定義以及定義類(lèi)型是否匹配，這是寫(xiě)程時(shí)常見(jiàn)的錯(cuò)誤，所以我們?cè)趯?xiě)程序時(shí)應(yīng)該認(rèn)真，細(xì)心，不能馬虎。遇到程序不能運(yùn)行時(shí)，我們應(yīng)該有耐心的進(jìn)行調(diào)試，分析其不能運(yùn)行的原因，解決問(wèn)題。在程序設(shè)計(jì)時(shí)，我們更應(yīng)該不斷的提出新的設(shè)想，大膽的創(chuàng)新，用新的算法實(shí)現(xiàn)某一功能，不能局限于別人的思想。參考文獻(xiàn)邵潔主編的visualbasic實(shí)驗(yàn)與測(cè)試（第四版）東南出版社，2008年甘雷，（中文Access2002標(biāo)準(zhǔn)教程），北京希望電子出版社何旭洪，VisualBasic程序庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航10-174頁(yè)，北京人民郵件出版社甘刃初，（信息系統(tǒng)開(kāi)發(fā)），北京經(jīng)濟(jì)科學(xué)出版社附錄程序源代碼OptionExplicitPrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongDimlastIndexAsByte,totalCmdBtnAsIntegerDimtheWidth,theHeight,Cur_RadixAsIntegerConstelementaryAsByte=2,intermediateAsByte=4,seniorAsByte=6PrivateSubCommand_Click(IndexAsInteger)IfIndex=lastIndexThenExitSub'計(jì)數(shù)點(diǎn)擊數(shù)totalclick.Text=totalclick.Text+1Command(Index).Picture=LoadPicture(App.Path+"\tupian\"&Command(Index).Tag&".gif")'加載圖片IfCommand(lastIndex).Tag=Command(Index).TagThenCommand(lastIndex).Tag=""Command(Index).Tag=""'播放聲音CallsndPlaySound("goal",1)Command(lastIndex).Visible=FalseCommand(Index).Visible=FalselastIndex=0totalCmdBtn=totalCmdBtn-2ElseCommand(lastIndex).Picture=LoadPicture("")'隱藏圖片lastIndex=IndexEndIfIftotalCmdBtn=0Thenendthis_ClickEndSubPrivateSubForm_Load()'隨機(jī)函數(shù)初始化以使每次運(yùn)行均不一樣RandomizetheWidth=Command(0).WidththeHeight=Command(0).HeightCur_Radix=4EndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0Cur_Radix=elementaryCase1Cur_Radix=intermediateCase2Cur_Radix=seniorEndSelectEndSubPrivateSubstart_Click()Dimcount,i,j,curLeft,CurTopAsIntegerOption1(1).Enabled=FalseOption1(2).Enabled=FalseOption1(0).Enabled=Falsestart.Enabled=Falseendthis.Enabled=True'動(dòng)態(tài)加載Cur_Radix*Cur_radix個(gè)命令按鈕，并設(shè)置位置和容器，然后使其可見(jiàn)CurTop=Int((gamearea.Height-theHeight*Cur_Radix)/2)Fori=1ToCur_RadixcurLeft=Int((gamearea.Width-theWidth*Cur_Radix)/2)-theWidthForj=1ToCur_Radixcount=count+1LoadCommand(count)SetCommand(count).Container=gamearea'計(jì)算當(dāng)前加載命令按鈕的Left屬性值curLeft=curLeft+theWidthCommand(count).Left=curLeftCommand(count).Top=CurTopCommand(count).Visible=TrueNextj'計(jì)算下一行加載命令按鈕的Top屬性值CurTop=CurTop+theHeightNexti'為每個(gè)按鈕分配字符totalCmdBtn=Cur_Radix^2Forcount=1TototalCmdBtnIfCommand(count).Tag=""Then'變量theReserve和Correspondpos可以合二為一DimCharacter,theReserveAsInteger'隨機(jī)產(chǎn)生一個(gè)未被分配的字母Do'隨機(jī)字符ASCII碼在33到126之間RandomizeCharacter=97+Int(21*Rnd)'判斷是否隨機(jī)字符是否已被分配FortheReserve=1Tocount-1IfCommand(theReserve).Tag=Chr(Character)ThenExitForNextLoopWhiletheReserve<count'將隨