VB课程设计报告_4.doc

VB课程设计报告 课程题目： 动物管理员游戏 难度：4星 姓名：束方婷 学号：912101500202 一 题目分析 “动物管理员”是一款非常有趣的游戏，有很多的变种。本题目要求编制一个玩法相对简单，但是编程却不简单的版本。如图， 程序的界面分为三部分，左边部分是一个由8行8列动物图标组成的游戏区，使用者通过鼠标单击两个相邻的图标使之交换位置，如果交换位置之后某类动物图标在同一行或同一列上出现三个或三个以上相邻的情况，表示这些相邻的动物被“捕获”。 最右边是成绩显示区，显示出当前共捕获了每种动物个多少只以及总的数量。 游戏区和成绩显示区的交接处是时间显示区，在游戏过程中剩余时间越来越少，深色部分越来越短，直到游戏结束。游戏结束时，捕获的动物越多则水平越高。 二 具体功能 （1） 程序启动时，游戏区随机分布各类动物的图标。图标共有7种，如图 依次是长颈鹿，猩猩，大熊猫，河马，鳄鱼和大象。每种动物有两种表情，上面一行是未捕获时的表情，下面一行是被捕获时的表情。 程序启动时，有可能出现同一行或同一列上有三个以上同种动物相邻，这种情况也算成绩。 （2）用户使用鼠标单击图标时，被单击的图标变红，交换位置之后，图标的颜色变为正常。 （3）如果用户单击了不相邻的图标，程序发出“错误音”且不变换位置。如果单击的是相邻图标但交换位置之后并不能使三个以上同种图标相邻，则会交换回原来的位置同时发出“错误音”。 如果交换位置后出现相邻图标，所有满足相邻关系的图标以被捕获的表情闪烁（动物张嘴）后消失，形成的空位由上方的图标下落后填补，最上面形成的空位由随机生成的图标填补。消失的图标个数会作为成绩加到右边的成绩显示区，同时播放悦耳的“成功声”。 （4）很多情况下，往往会有多个相邻关系同时形成。交叉或在不同位置同时形成多个相邻关系。所以，程序即时判断游戏区形成的所有相邻关系，并进行处理和加分。 有时，“消掉”相邻图标，上方的图标下落后，使得原来不相邻的图标成了相邻关系，这时应判断和处理整个游戏区的图标相邻关系，直到所有的图标都不构成三三相邻的关系。 （5）程序游戏时间共2分钟，游戏过程中每秒钟发出一声时钟的滴答声，并且时间显示区的蓝条越来越短。游戏时间到时，发出闹钟的“闹铃声”，游戏区所有图标的背景变为红色，并显示出“Game over”字样。这时游戏结束，鼠标不能再单击图标。如图 （6）为了清楚的表达图标的变换，图标的消去和下落等动作，程序使用了延时。例如，单击两个相邻图标后，隔200ms才交换它们的位置，判断相邻后，隔200ms才消去，再隔200ms才将上面的图标下移……在延时过程中，用户的鼠标单击是无效的，这时鼠标指针变为；当允许单击时，鼠标指针变为。 （7）对于本游戏，要取得高分，除了应具有敏锐的洞察力和快速的反应力，还要有好运气。因为，有时一次变换位置后会引起“连锁反应”得很多分，而有时无论怎样交换位置都不能形成三三相邻关系 三 设计实现 （1）为了方便数据的管理和编程，定义三个全局数组 Option Base 0 Public Grid(7, 7) As Integer 游戏区的动物图标分布 Public Meet(7, 7) As Boolean 保存形成相邻关系的位置 Public Score(7) As Integer 已捕获的每种动物的数量 （2） 实现动物图标的产生功能 Private Sub Form_Load() Dim i As Integer, j As Integer Randomize ·’初始化随机数 For i = 0 To 7 For j = 0 To 7 Grid(i, j) = Int(Rnd * 7) 随机生产动物图标 Next Next For i = 0 To 7 For j = 0 To 7 画图标 picGrid.PaintPicture PC1.GraphicCell(Grid(i, j)), i * 34, j * 34 Next Next For i = 0 To 6 picScore.Pa