VB课程设计-- 基于VB语言的赛车小游戏

《VB课程设计-- 基于VB语言的赛车小游戏》由会员分享，可在线阅读，更多相关《VB课程设计-- 基于VB语言的赛车小游戏（29页珍藏版）》请在毕设资料网上搜索。

1、 VB 课程设计 题题 目：目： 基于 VB 语言的赛车小游戏 姓姓 名：名： 学学 号：号： 201200800031 学学 院：院： 机电与信息工程学院 专专 业：业： 测控 年年 级：级： 日日 期：期： 一一. 系统简介系统简介 1. 背景与意义 由于现在跑酷游戏非常流行，其快餐的游戏方式符合了当今人们的娱乐思 维。 简洁傻瓜的操作方式与记录系统的引入更是刺激了人们对其的热情。 基于此， 我便想用VB在PC端上做一个类似的跑酷小游戏， 并且加入一些较为有趣的元素， 使玩家能在这款小游戏中找到些许乐趣。基于此想法，我选择了以公路赛车为背 景素材，制作一款简介的跑酷小游戏。游戏中，玩家操作

2、赛车躲避途中随即出现 的车辆， 行驶的距离越长得分越高， 如若撞到途中车辆游戏结束。 在设计程序中， 为了实现车辆行驶的效果，使用了计时器，通过计时器短周期移动背景，产生车 辆在向前行驶的效果。在程序中，额外加入了不同的车辆外形供玩家选择，增加 了趣味性，并且写入了计分系统与道具系统，使游戏更有目标性与可玩性。 2. 需求分析 既然是一个游戏，首先必须能与人互动，因此程序必须引入接受键盘和鼠标 信息输入的功能。其次，游戏中总是要有动画效果的，这个可以通过 VB 中的定 时器实现。对于其他的一些额外功能，通过 VB 的一些基础功能、写与读外部文 件等方式也均能实现，如记录系统，便通过读、写外部

3、TXT 文件内容实现。 二二. .功能介绍功能介绍 程序的功能有： 赛车游戏系统：玩家可以通过键盘上的左右方向键操作赛车躲避路途中 的障碍，在途中赛车的速度会随着时间越来越快； 计分与记录系统：随着游戏时间的增长，玩家在游戏中得到得分数会越 来越高。同时游戏中有一个历史分数系统，会记录下玩家所得的最高分与玩家的 姓名、创造纪录的时间，并且玩家可以在菜单中的“记录”选项中查看； 外观系统：玩家可以选择不同的赛车外观进行游戏； 道具系统：游戏途中会随机出现功能不同的道具，不同的道具有不同的 功能。 三三. .程序设计程序设计 1. 界面设计 主界面：主界面： 在游戏制作中，主要想采用比较清新简单的

4、风格，因此主界面整体设计采 用黑白简洁的色调，由于对 VB 自带按钮外观不是很满意，自行通过 picturebox 控件制作了一主界面按钮。 车库界面：车库界面： 游戏中内置两种不同风格外貌的车体供玩家选择，单击按键即可完成更换。 游戏说明界面：游戏说明界面： 记录界面：记录界面： 显示创造纪录的玩家姓名，最高分与创纪录的时间。 游戏界面：游戏界面： 创新纪录时的界面：创新纪录时的界面： 游戏界面也是才有黑白风格，所有车子的外貌风格比较童真（=。= 我自己 画的）。 2. 功能设计 代码中变量：代码中变量： Dim lr 左右控制变量 Dim ud 上下控制变量 Dim a 游戏开始倒计时变量

5、 Dim b 调试变量 Dim max 最高分记录系统变量 Dim buff 道具系统变量 Dim mus 音效变量 Dim muss 音效变量 Label10.Caption:游戏速度 Label7.Caption：玩家得分 Label1.Caption：玩家操作赛车左右移动速度 基本车辆移动与操作功能：基本车辆移动与操作功能： 主要通过主要通过 TIMER1TIMER1 实现，实现，L La abel10bel10 中的数字为车辆移动速度，通过定时器不中的数字为车辆移动速度，通过定时器不 断移动程序中的相关图片，产生断移动程序中的相关图片，产生汽车跑动的效果。路途上的车辆通过汽车跑动的效果

6、。路途上的车辆通过 RandomizRandomize e 函数产生随机数，使其出现在随机位置，当然一定是从窗口上方出现，移动到函数产生随机数，使其出现在随机位置，当然一定是从窗口上方出现，移动到 窗口最下方然后消失。玩家赛车的控制，通过窗口最下方然后消失。玩家赛车的控制，通过 KEYDOWNKEYDOWN 与与 KEYUPKEYUP 实现，定义控实现，定义控 制全局变量制全局变量 lrlr，来控制玩家赛车左右移动。代码如下：，来控制玩家赛车左右移动。代码如下： 键盘控制： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then lr = “left“ If KeyCode = vbKeyRight Then lr = “right“ If KeyCode = vbKeyUp Then ud = “down“ If KeyCode = vbKeyDown