推箱子设计报告书.doc

推箱子设计报告书
2
推箱子游戏设计使用说明书
一、项目背景
本实训要求对“推箱子游戏”进行分析、设计及编程实现。
本实训对实训项目已经作了较为详细的分析及相关知识讲解，通过实训，促使专业技能得到综合训练，让我s Integer = 3 '控制小人向下运动
6
Private Const B_GROUND As Integer = &H0 '定义空白
Private Const B_DEST As Integer = &H1 '定义小人
Private Const B_BOX As Integer = &H2 '定义盒子
Private Const B_WALL As Integer = &H4 '定义墙
Private Const B_BACK As Integer = &H8 '定义背景
' 全局变量
'private 指只在只在推箱子的窗口可用
Private Map(MAXX, MAXY) As Integer '定义地图的大小
Private ScenesCount As Integer, CurrScene As Integer '定义场景和当前场景
Private BoxCount As Integer, Completed As Integer
Private X As Integer, Y As Integer, Dir As Integer '定义当前的位置
Private FileNum As Integer
Private MapLoading As Boolean '定义地图下载为逻辑变量
Private Playing As Boolean '定义为逻辑变量
' 游戏开始
Private Sub Form_Load()

Playing = False '游戏开始
MapLoading = False '地图下载

InitGame '定义一个过程名
End Sub
' 游戏初始化
Private Sub InitGame() '定义一个过程名

FileNum = FreeFile '一个整型函数,把文件赋给一个变量,下一个OPEN可以供文件使用的文件序号
Open "" For Binary Access Read As FileNum '文件以二进制形式记录打开

ScenesCount = LOF(FileNum) / SIZE '文件尾函数/每关地图长度

If ScenesCount = 0 Then '如果输出的场景为错,则输出没有可用的地图文件或文件格式出错，""请把可用的 文件和游戏放在同一目录。 "文件读取错误"
MsgBox "没有可用的地图文件或文件格式出错，" & vbCrLf & _
"请把可用的 文件和游戏放在同一目录。", _
vbOKOnly Or vbExclamation, "文件读取错误"
End
End If

7
LoadMap 1 '地图下载成功

Playing = True '玩游戏
End Sub
' 读取关卡数据
Private Function LoadMap(Scene As Integer) As Boolean

If MapLoading Then Exit Function '系统推出功能

If Scene < 1 Or Scene > ScenesCount Then '如果场景是1或当前场景
LoadMap = False '加载失败
Exit Function '则退出功能
End If

MapLoading = True '地图下载正确

CurrScene = Scene '运行当前场景
Caption = "推箱子 第" & CurrScene & "关" '显示推箱子在第几关

BoxCount = 0: Completed = 0

Dir = 0 '定义方向键

Dim D