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

二、概要設計1.功能模塊（見圖2）記憶游戲控制計時記憶游戲控制計時選項選項退出開始結束退出開始結束圖2記憶游戲功能模2.界面設計 在窗口左邊的工具箱中，單擊一下框架控件，在窗體上繪出兩個大小合適的框架，將其中大的框架名稱改為gamearea,并將caption屬性分別改為空格、難度。用同樣的方法在框架中添加一個命令按鈕，并將其名稱改為command,visible屬性改為false,在小的框架里面添加三個optionbutton,將其名稱都改為option1，option屬性分別改為初級、中級、高級。然后用同樣的方法在框架的右邊添加三個命令按鈕，將其名稱分別改為start,endthis,close,并將caption屬性分別改為開始、結束、退出。用同樣的方法添加兩個label控件，同時在兩個label控件的下面分別添加一個文本框，將其名稱分別改為consumed、totalclick三、詳細設計加載窗體時利用隨機函數(shù)初始化使每次運行均不一樣PrivateSubForm_Load()RandomizetheWidth=Command(0).WidththeHeight=Command(0).Heightcur_radix=elementaryEndSub利用一個框架一個單選按鈕組和SelectCase語句來實現(xiàn)難度級別的不同PrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0cur_radix=elementaryCase1cur_radix=intermediateCase2cur_radix=seniorEndSelectEndSub利用時鐘控件Timer和text控件來實現(xiàn)計時功能PrivateSubTimer1_Timer()timeconsumed.Text=timeconsumed.Text+1EndSub注意：時鐘控件的interval值應設置為1000，即為每秒鐘計一次時當Enable=true時時鐘控件才能使用利用text控件和If語句來實現(xiàn)點擊次數(shù)的計算，并將該按鈕的tag屬性中的字符取出作為圖片名進行加載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如果兩個連續(xù)單擊的按鈕tag屬性中的字符相同，則兩個按鈕同時消失，如果按鈕全部消失，則這個級別的游戲結束，結束后可以重新選擇級別利用Int函數(shù)和For···Next語句實現(xiàn)按鈕的動態(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)語句、Do···While語句、If語句和For···Next語句來實現(xiàn)對按鈕的屬性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)語句和Unload來實現(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實現(xiàn)程序的卸載PrivateSubclose_Click()UnloadMeEndSub四．效果分析以及設計方案的完善游戲開始界面圖2開始界面游戲初級界面圖3初級界面游戲中級界面圖4中級界面游戲高級界面圖5高級界面心得體會通過這次的課程設計，我收獲頗大。在程序設計過程中，我們需要注意程序的每一條語句是否正確，變量是否定義以及定義類型是否匹配，這是寫程時常見的錯誤，所以我們在寫程序時應該認真，細心，不能馬虎。遇到程序不能運行時，我們應該有耐心的進行調試，分析其不能運行的原因，解決問題。在程序設計時，我們更應該不斷的提出新的設想，大膽的創(chuàng)新，用新的算法實現(xiàn)某一功能，不能局限于別人的思想。參考文獻邵潔主編的visualbasic實驗與測試（第四版）東南出版社，2008年甘雷，（中文Access2002標準教程），北京希望電子出版社何旭洪，VisualBasic程序庫開發(fā)實例導航10-174頁，北京人民郵件出版社甘刃初，（信息系統(tǒng)開發(fā)），北京經(jīng)濟科學出版社附錄程序源代碼OptionExplicitPrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongDimlastIndexAsByte,totalCmdBtnAsIntegerDimtheWidth,theHeight,Cur_RadixAsIntegerConstelementaryAsByte=2,intermediateAsByte=4,seniorAsByte=6PrivateSubCommand_Click(IndexAsInteger)IfIndex=lastIndexThenExitSub'計數(shù)點擊數(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()'隨機函數(shù)初始化以使每次運行均不一樣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'動態(tài)加載Cur_Radix*Cur_radix個命令按鈕，并設置位置和容器，然后使其可見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'計算當前加載命令按鈕的Left屬性值curLeft=curLeft+theWidthCommand(count).Left=curLeftCommand(count).Top=CurTopCommand(count).Visible=TrueNextj'計算下一行加載命令按鈕的Top屬性值CurTop=CurTop+theHeightNexti'為每個按鈕分配字符totalCmdBtn=Cur_Radix^2Forcount=1TototalCmdBtnIfCommand(count).Tag=""Then'變量theReserve和Correspondpos可以合二為一DimCharacter,theReserveAsInteger'隨機產生一個未被分配的字母Do'隨機字符ASCII碼在33到126之間RandomizeCharacter=97+Int(21*Rnd)'判斷是否隨機字符是否已被分配FortheReserve=1Tocount-1IfCommand(theReserve).Tag=Chr(Character)ThenExitForNextLoopWhiletheReserve<count'將隨