1、 能源与动力工程学院能源与动力工程学院 VB 课程设计报告课程设计报告 题目题目 1 1： 贪吃蛇游戏贪吃蛇游戏 题目题目 2 2： 列车时刻查询列车时刻查询 指导老师：指导老师： 学生姓名：学生姓名： 学学 号号: : 专专 业：业： 班班 级：级： 2011 年 3 月 20 日 VB 程序设计课程设计报告 - 1 - 贪贪 吃吃 蛇蛇 游游 戏戏 第一章第一章 课程设计目的课程设计目的 随着学习内容的不断增多，各专业知识也不断增长，为了有效地提高学习效 率， 更有效的掌握所学知识， 利用所学知识设计贪吃蛇游戏， 熟练运用专业知识。 本课题主要锻炼了对于控件数组，绘图，键盘事件处理，文本文
2、件的读写，多模 块程序设计，定时器控件，菜单的使用等知识的运用能力。 第第二章二章 课程设计的要求课程设计的要求 题目介绍：题目介绍： “贪吃蛇”是一款很流行的电子游戏。一条蛇在棋盘状的格子上爬行，由键 盘控制其转弯；格子上随机地出现 5 个数字（15） ，当蛇的头部碰到数字时会 将数字“吃掉” ，蛇的身体会变长。当蛇的头撞到障碍物（深色部分）或碰到自 己身体时，游戏结束。游戏结束时，蛇身越长得分越高。 课程设计功能要求：课程设计功能要求： （1）程序启动界面由 20*20 个方格构成。开始时，蛇静止不动，蛇身由一串共 5 个圆圈表示，身体黄色，代表头部的圆圈为红色，且有两只绿眼睛。 （2）按
3、回车键开始游戏，蛇自动向前爬行，用户使用“”4 个方向键 使其拐弯不至于碰到障碍物或自己。蛇只能向前走或向左右转 90 度的弯， 不能后退。吃掉一个数字后，蛇的身体的幅度与数字的大小相同。例如， 吃掉“3”后，蛇身伸长 3 个圆圈。蛇身体的伸长不是一下子完成的，而是 在吃掉数字后一边爬行一边伸长的，这样是为了避免蛇的“尾巴”突然伸 长撞到障碍物或蛇自己。 （3）5 个数字（1 -5）的位置是随机的，互不重叠的，且不能出现在障碍物和 蛇的身上。当蛇吃掉一个数字时，同样的数字随机的出现在其他位置上， 即格子上总保持有“1-5”5 个数字。 课程设计题目： - 2 - （4）游戏进行时，窗口标题栏上
4、显示出已使用的时间和得分，得分是当前蛇身 体的长度。使用回车键可以暂停或继续游戏。 （5）蛇在爬行到边界时，如果未遇到障碍物，会从一侧爬出再从对面一侧爬入。 如果运行过程中，其头部碰到障碍物或自己的身体，则被撞死，游戏结束。 如果该用户的成绩超过了记录成绩，则显示对话框，提示输入用户名，以 供记录成绩由“排行榜”功能显示。 （6）通过程序菜单的“开始/暂停（回车） ”命令，也可以暂停或继续游戏（与 回车键功能相同） 。选择“新开局”菜单项可以从头开始游戏。 （7）选择“设置”菜单命令，打开设置对话框。在该对话框中可以选择不同的 障碍物形状，也可以指定背景和障碍物的颜色。单击“设置”对话框底部
5、的“背景颜色”和“障碍物颜色”后面的颜色区，弹出“颜色”公共对话 框来指定颜色。设置完毕后，单击“确定”按钮关闭“设置”对话框，游 戏将按所选形状从头开始游戏。下一次启动程序，自动使用上次的设置。 （8）选择“排行榜”菜单命令打开“排行榜”对话框，显示每种障碍物下的最 好成绩。选择“清除所有记录”按钮可将记录清零。 第三章第三章 课程设计报告内容课程设计报告内容 一贪吃蛇游戏界面一贪吃蛇游戏界面 主窗体界面：主窗体界面： VB 程序设计课程设计报告 - 3 - “帮助”窗体界面：“帮助”窗体界面： “设置”窗体界面：“设置”窗体界面： “排行榜”窗体界面：“排行榜”窗体界面： 课程设计题目： - 4 - “关于”窗体界面：“关于”窗体界面： 二贪吃蛇游戏部分代码二贪吃蛇游戏部分代码 主窗体的部分代码：主窗体的部分代码： 为所有随机出现的的数字定位：为所有随机出现的的数字定位： Sub ShowNumberAll() Dim i As Integer, j As Integer Dim k As Integer, m As Integer, l As Integer Dim f As Boolean R
