《VB小游戏实验报告.pdf》由会员分享，可在线阅读，更多相关《VB小游戏实验报告.pdf（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、资源与环境工程学院 Visual Basic 程 序 设 计 说 明 书 班级：学号：姓名：指导老师：把车开过瘾 一.软件介绍 这是利用 vb 设计的一个简单的小游戏，游戏是用来模拟汽车的前进，后退，停止以及加速减速的过程。该游戏操作方便，运行灵活，简单可行。二.基本功能 游戏中，利用“滚动条”来调节小车的运行速度，点击命令键“开始”用来控制小车的前进，点击命令键“后退”用来控制小车的倒退，点击命令键“停止”用来使小车停止。三.设计思路 结合课本上的几个例题，联系实际生活中汽车的运动，想到利用 vb 设计一个程序来对实际的汽车进行模拟，在设计调节汽车速度的时候，想到利用学过的滚动条控件来进行速
2、度的调节，利用命令控件和定时器来控制小车的运动和停止。1.基本控件 窗体 Caption 把车开过瘾 Backcolor&H8000000B&标签框 Caption 速度：Autosize True Fontsize 三号 图片框 Picture 自选小车图片 命令框 1 Caption 前进 命令框 2 Caption 停止 命令框 3 Caption 后退 shape Fillstyle 5-Downward Diagonal 滚动条 Min 0 Max 20 Value 0 定时器 Interval 50 2.界面设计 3.算法 主要运用了选择结构中的 IF 条件语句。四.主要代码 Di
3、m 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=前进 Th
4、en 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 这门技术，对我以后能力的提升有了很大的帮助。