基于vb语言的赛车小游戏课程设计论文.docVIP

《VB课程设计》 题 目： 基于VB语言的赛车小游戏 姓 名： 学 号： 201200800031 学 院： 机电与信息工程学院 专 业： 测控 年 级： 系统简介 背景与意义 由于现在跑酷游戏非常流行，其快餐的游戏方式符合了当今人们的娱乐思维。简洁傻瓜的操作方式与记录系统的引入更是刺激了人们对其的热情。基于此，我便想用VB在PC端上做一个类似的跑酷小游戏，并且加入一些较为有趣的元素，使玩家能在这款小游戏中找到些许乐趣。基于此想法，我选择了以公路赛车为背景素材，制作一款简介的跑酷小游戏。游戏中，玩家操作赛车躲避途中随即出现的车辆，行驶的距离越长得分越高，如若撞到途中车辆游戏结束。在设计程序中，为了实现车辆行驶的效果，使用了计时器，通过计时器短周期移动背景，产生车辆在向前行驶的效果。在程序中，额外加入了不同的车辆外形供玩家选择，增加了趣味性，并且写入了计分系统与道具系统，使游戏更有目标性与可玩性。 需求分析 既然是一个游戏，首先必须能与人互动，因此程序必须引入接受键盘和鼠标信息输入的功能。其次，游戏中总是要有动画效果的，这个可以通过VB中的定时器实现。对于其他的一些额外功能，通过VB的一些基础功能、写与读外部文件等方式也均能实现，如记录系统，便通过读、写外部TXT文件内容实现。 二.功能介绍 程序的功能有： ①赛车游戏系统：玩家可以通过键盘上的左右方向键操作赛车躲避路途中的障碍，在途中赛车的速度会随着时间越来越快； ②计分与记录系统：随着游戏时间的增长，玩家在游戏中得到得分数会越来越高。同时游戏中有一个历史分数系统，会记录下玩家所得的最高分与玩家的姓名、创造纪录的时间，并且玩家可以在菜单中的“记录”选项中查看； ③外观系统：玩家可以选择不同的赛车外观进行游戏； ④道具系统：游戏途中会随机出现功能不同的道具，不同的道具有不同的功能。 三.程序设计 界面设计 主界面： 在游戏制作中，主要想采用比较清新简单的风格，因此主界面整体设计采用黑白简洁的色调，由于对VB自带按钮外观不是很满意，自行通过picturebox控件制作了一主界面按钮。 车库界面： 游戏中内置两种不同风格外貌的车体供玩家选择，单击按键即可完成更换。 游戏说明界面： 记录界面： 显示创造纪录的玩家姓名，最高分与创纪录的时间。 游戏界面： 创新纪录时的界面： 游戏界面也是才有黑白风格，所有车子的外貌风格比较童真（=。= 我自己画的）。 功能设计 代码中变量： Dim lr 左右控制变量 Dim ud 上下控制变量 Dim a 游戏开始倒计时变量 Dim b 调试变量 Dim max 最高分记录系统变量 Dim buff 道具系统变量 Dim mus 音效变量 Dim muss 音效变量 Label10.Caption:游戏速度 Label7.Caption：玩家得分 Label1.Caption：玩家操作赛车左右移动速度 ①基本车辆移动与操作功能： 主要通过TIMER1实现，Label10中的数字为车辆移动速度，通过定时器不断移动程序中的相关图片，产生汽车跑动的效果。路途上的车辆通过Randomize函数产生随机数，使其出现在随机位置，当然一定是从窗口上方出现，移动到窗口最下方然后消失。玩家赛车的控制，通过KEYDOWN与KEYUP实现，定义控制全局变量lr，来控制玩家赛车左右移动。代码如下： 键盘控制： 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 Then ud = up End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then lr = leftstop If KeyCode = vbKeyRight Then lr = rightstop If KeyCode = vbKeyUp Then ud = If KeyCode = vbKeyDown Then ud = End Sub ‘定时器控制： Private Sub Timer1_Timer() Label7.Ca