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

学院材料学院班级材料074 学号 072007 姓名李璐成绩
一、设计思路

①能够打开已有的迷宫文件并进行游戏。
②游戏者使用光标键移动目标
③可对游戏者进行时间计时
④移动目标只能在通道中移动
⑤可以自定义使用移动键

⑴程序分为设计和游戏两种状态。
⑵可以自己设置迷宫路线图,设计时同时指定入口和出口(入口用S表示,出口用F表示,通道用#表示,墙用空格表示,全用半角字符)。
⑶被移动目标可以使用提供的图片,或者自行安排其他控件。
⑷支持显示的背景设置,可以设置成任意色彩或者图案。
⑸可以设置迷宫的大小。
退出
调用
退出
调用
GAMESTART模块
二..程序流程图
调用
调用
自定义设置
选择路线并开始游戏
继续游戏
三、部分程序关键源代码及注释
初始化设置.
up = 0
down = 0
left5 = 0
right = 0
ScaleMode = vbPixels
AutoRedraw = True
= False
SQUARE_WID = 20
SQUARE_HGT = 20
bcolor = &HFF0000
自定义使用光标键
m = PlayerM
n = PlayerN
If up <> 0 And down <> 0 And left5 <> 0 And right <> 0 Then
Select Case KeyCode
Case left5
n = PlayerN - 1
Case right
n = PlayerN + 1
Case down
m = PlayerM + 1
Case up
m = PlayerM - 1
Case Else
Exit Sub
End Select
Else
Select Case KeyCode
Case vbKeyLeft
n = PlayerN - 1
Case vbKeyRight
n = PlayerN + 1
Case vbKeyDown
m = PlayerM + 1
Case vbKeyUp
m = PlayerM - 1
Case Else
Exit Sub
End Select
End If
If LegalMove(m, n) Then PositionPlayer m, n
建立二维数组
On Error GoTo errhandler

fnum = FreeFile
For Input As #fnum
Input #fnum, NumRows, NumCols
ReDim LegalMove(1 To NumRows, 1 To NumCols)
For m = 1 To NumRows
Line Input #fnum, row_info
For n = 1 To NumCols
ch = Mid$(row_info, n, 1)
LegalMove(m