一。系统简介。1. 背景与意义。
由于现在跑酷游戏非常流行，其快餐的游戏方式符合了当今人们的娱乐思维。简洁傻瓜的操作方式与记录系统的引入更是刺激了人们对其的热情。基于此，我便想用vb在pc端上做一个类似的跑酷小游戏，并且加入一些较为有趣的元素，使玩家能在这款小游戏中找到些许乐趣。
基于此想法，我选择了以公路赛车为背景素材，制作一款简介的跑酷小游戏。游戏中，玩家操作赛车躲避途中随即出现的车辆，行驶的距离越长得分越高，如若撞到途中车辆游戏结束。在设计程序中，为了实现车辆行驶的效果，使用了计时器，通过计时器短周期移动背景，产生车辆在向前行驶的效果。
在程序中，额外加入了不同的车辆外形供玩家选择，增加了趣味性，并且写入了计分系统与道具系统，使游戏更有目标性与可玩性。
2. 需求分析。
既然是一个游戏，首先必须能与人互动，因此程序必须引入接受键盘和鼠标信息输入的功能。其次，游戏中总是要有动画效果的，这个可以通过vb中的定时器实现。对于其他的一些额外功能，通过vb的一些基础功能、写与读外部文件等方式也均能实现，如记录系统，便通过读、写外部txt文件内容实现。
二。功能介绍。
程序的功能有：
赛车游戏系统：玩家可以通过键盘上的左右方向键操作赛车躲避路途中的障碍，在途中赛车的速度会随着时间越来越快；
计分与记录系统：随着游戏时间的增长，玩家在游戏中得到得分数会越来越高。同时游戏中有一个历史分数系统，会记录下玩家所得的最高分与玩家的姓名、创造纪录的时间，并且玩家可以在菜单中的“记录”选项中查看；
外观系统：玩家可以选择不同的赛车外观进行游戏；
道具系统：游戏途中会随机出现功能不同的道具，不同的道具有不同的功能。
三。程序设计。
1. 界面设计。
主界面：在游戏制作中，主要想采用比较清新简单的风格，因此主界面整体设计采用黑白简洁的色调，由于对vb自带按钮外观不是很满意，自行通过picturebox控件制作了一主界面按钮。
车库界面：游戏中内置两种不同风格外貌的车体供玩家选择，单击按键即可完成更换。
游戏说明界面：
记录界面：显示创造纪录的玩家姓名，最高分与创纪录的时间。
游戏界面：创新纪录时的界面：
游戏界面也是才有黑白风格，所有车子的外貌风格比较童真（=。我自己画的）。
2. 功能设计。
**中变量：
dim lr '左右控制变量。
dim ud '上下控制变量。
dim a '游戏开始倒计时变量。
dim b '调试变量。
dim max '最高分记录系统变量。
dim buff '道具系统变量。
dim mus '音效变量。
dim muss '音效变量。
游戏速度。玩家得分。
玩家操作赛车左右移动速度。
基本车辆移动与操作功能：
主要通过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()
= +1 '计分。
shape1(0).top = shape1(0).top + 60 '道路中心线移动动画。
if shape1(0).top > then shape1(0).top = 0 - shape1(0).height
shape1(1).top = shape1(1).top + 60
if shape1(1).top > then shape1(1).top = 0 - shape1(1).height
撞车记录成绩与吃道具**：
if + picture3(0).left and < picture3(0).left + picture3(0).
width and + picture3(0).top and < picture3(0).top + picture3(0).
height then
= +50’加分道具。
picture3(0).left = 9000’吃到道具后使道具消失。
end if
if + picture3(1).left and < picture3(1).left + picture3(1).
width and + picture3(1).top and < picture3(1).top + picture3(1).
height then
buff = 1’加速道具。
picture3(1).left = 9000’吃到道具后使道具消失。
end if
for s = 0 to 2 '判断撞车**。
if + 100 > picture1(s).left and + 100 < picture1(s).left + picture1(s).
width and + picture1(s).top + 200 and + 200 < picture1(s).top + picture1(s).
height then
= false
= false
= true
= &游戏结束更换音效。
if mus = 0 then '判断背景**是开启还是关闭。
end if
if mus = 1 then
muss = 0
mus = 0
end if
if val( >val( then
= true
max =
open & for output as #
write #1, max
close #
nn = inputbox("创造了新纪录！请问您尊姓大名！",
tt = format(date)
open & for output as #
write #1, nn
write #1, tt
close #
end if
if picture1(s).backcolor = rgb(0, 200, 0) then
= false
= false
= true
if val( >val( then
= true
max =
open & for output as #
write #1, max
close #
nn = inputbox("创造了新纪录！请问您尊姓大名！",
tt = format(date)
open & for output as #
write #1, nn
write #1, tt
close #
end if
end if
picture1(s).backcolor = rgb(200, 0, 0)
end if
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...
VB课程设计
课程设计报告。课程设计题目 个性化多 器 学生姓名 李汉忠。专业 软件工程 电子商务 班级 10211123 学号 1021112336 指导教师 赵玉芹。2011年 5月 30 日。目录。第一章算法分析页码 第二章工作日志。第三章关键实现技术。第四章设计小结 一 算法分析。1.目录选择对话框 根据...