VB课程设-07-072007迷宫（完善后）.doc

走出迷宫设计报告学院材料学院班级材料074学号072007姓名李璐成绩一、①能够打开已有的迷宫文件并进行游戏。②游戏者使用光标键移动目标③可对游戏者进行时间计时④移动目标只能在通道中移动⑤⑴程序分为设计和游戏两种状态。⑵可以自己设置迷宫路线图,设计时同时指定入口和出口(入口用S表示,出口用F表示,通道用#表示,墙用空格表示,全用半角字符)。⑶被移动目标可以使用提供的图片,或者自行安排其他控件。⑷支持显示的背景设置,可以设置成任意色彩或者图案。⑸可以设置迷宫的大小。退出调用退出调用GAMESTART模块二..程序流程图调用调用自定义设置选择路线并开始游戏继续游戏三、=0down=0left5=0right=0ScaleMode=vbPixelsAutoRedraw==FalseSQUARE_WID=20SQUARE_HGT=20bcolor=&HFF0000自定义使用光标键m=PlayerMn=PlayerNIfup<>0Anddown<>0Andleft5<>0Andright<>0ThenSelectCaseKeyCodeCaseleft5n=PlayerN-1Caserightn=PlayerN+1Casedownm=PlayerM+1Caseupm=PlayerM-1CaseElseExitSubEndSelectElseSelectCaseKeyCodeCasevbKeyLeftn=PlayerN-1CasevbKeyRightn=PlayerN+1CasevbKeyDownm=PlayerM+1CasevbKeyUpm=PlayerM-1CaseElseExitSubEndSelectEndIfIfLegalMove(m,n)ThenPositionPlayerm,=#fnumInput#fnum,NumRows,NumColsReDimLegalMove(1ToNumRows,1ToNumCols)Form=1ToNumRowsLineInput#fnum,row_infoForn=1ToNumColsch=Mid$(row_info,n,1)LegalMove(m,n)=(ch<>"#")IfLCase$(ch)="s"Then'=mPlayerN=nElseIfLCase$(ch)="f"Then'=mNFinish=nEndIfNextnNextmClose#fnumWidth=ScaleX(SQUARE_WID*NumCols,ScaleMode,vbTwips)+_Width-ScaleX(ScaleWidth,ScaleMode,vbTwips)Height=ScaleY(SQUARE_HGT*NumRows,ScaleMode,vbTwips)+_Height-ScaleY(ScaleHeight,ScaleMode,vbTwips)=1ToNumRowsForn=1ToNumColsIfLegalMove(m,n)T