VB小游戏实验报告

资源与环境工程学院

Visual Basic

程

序

设

计

说

明

书

班级：

学号：

姓名：

指导老师：

把车开过瘾

一.软件介绍

这是利用vb设计的一个简单的小游戏，游戏是用来模拟汽车的前进，后退，停止以及加速减速的过程。该游戏操作方便，运行灵活，简单可行。

二.基本功能

游戏中，利用“滚动条”来调节小车的运行速度，点击命令键“开始”用来控制小车的前进，点击命令键“后退”用来控制小车的倒退，点击命令键“停止”用来使小车停止。

三.设计思路

结合课本上的几个例题，联系实际生活中汽车的运动，想到利用vb设计一个程序来对实际的汽车进行模拟，在设计调节汽车速度的时候，想到利用学过的滚动条控件来进行速度的调节，利用命令控件和定时器来控制小车的运动和停止。

1.基本控件

2.界面设计

3.算法

主要运用了选择结构中的IF条件语句。

四.主要代码

Dim i As Integer

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 50

Image1.Left = i * Image1.Width

End Sub

Private Sub Timer1_Timer()

Image1.Move Image1.Left - i * HScroll1.Value * 100

If Image1.Left > Me.Width Then Image1.Left = i *

Image1.Width

End Sub

Private Sub Command1_Click()

If Command1.Caption = "前进" Then

i = 1

Timer1.Enabled = True

End If

End Sub

Private Sub Command2_Click()

If Command2.Caption = "停止" Then

Timer1.Enabled = False

End If

End Sub

Private Sub Command3_Click()

If Command3.Caption = "后退" Then

i = -1

Timer1.Enabled = True

End If

End Sub

五.界面效果演示

六．小结

这次的VB实验给了我颇多的收获，从开始的一无所知到现在能编写简单的VB程序，我很有成就感。当然，在学习和实验的过程经常遇到困难，需要找老师和同学帮忙，或者是到图书馆查资料，但这并不影响我对这门课程的兴趣。相反，在寻求解决问题的过程中，给了我强烈的求知欲，和浓厚的兴趣。通过这次的vb实验设计，让我对vb中的各种控件，算法以及界面的设计有了更深刻的理解和认识，使我能更加灵活的运用vb这门技术，对我以后能力的提升有了很大的帮助。