当前位置：文档之家 › VB课程设计

VB课程设计

  • 格式：doc
  • 大小：590.50 KB
  • 文档页数：29

《VB课程设计》题目：基于VB语言的赛车小游戏姓名：学号：201200800031学院：机电与信息工程学院专业：测控年级：日期：一.系统简介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 '音效变量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 SubPrivate 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.Caption = Label7.Caption + 1 '计分Shape1(0).Top = Shape1(0).Top + Label10.Caption + 60 '道路中心线移动动画If Shape1(0).Top > Form1.Height Then Shape1(0).Top = 0 -Shape1(0).HeightShape1(1).Top = Shape1(1).Top + Label10.Caption + 60If Shape1(1).Top > Form1.Height Then Shape1(1).Top = 0 -Shape1(1).Height'撞车记录成绩与吃道具代码：If car.Left + car.Width > Picture3(0).Left And car.Left <Picture3(0).Left + Picture3(0).Width And car.Top + car.Height > Picture3(0).Top And car.Top < Picture3(0).Top + Picture3(0).Height Then Label7.Caption = Label7.Caption + 50’加分道具Picture3(0).Left = 9000’吃到道具后使道具消失End IfIf car.Left + car.Width > Picture3(1).Left And car.Left <Picture3(1).Left + Picture3(1).Width And car.Top + car.Height > Picture3(1).Top And car.Top < Picture3(1).Top + Picture3(1).Height Then buff = 1’加速道具Picture3(1).Left = 9000’吃到道具后使道具消失End IfFor s = 0 To 2 '判断撞车代码If car.Left + car.Width - 100 > Picture1(s).Left And car.Left + 100 < Picture1(s).Left + Picture1(s).Width And car.Top + car.Height > Picture1(s).Top + 200 And car.Top + 200 < Picture1(s).Top +Picture1(s).Height ThenTimer1.Enabled = FalseTimer3.Enabled = FalseFrame2.Visible = TrueWindowsMediaPlayer1.URL = App.Path & "\MUSIC3.wav"'游戏结束更换音效If mus = 0 Then'判断背景音乐是开启还是关闭WindowsMediaPlayer1.Controls.stopEnd IfIf mus = 1 Thenmuss = 0mus = 0End IfLabel6.Caption = Label7.CaptionIf Val(Label6.Caption) > Val(Labelmax.Caption) ThenLabelmax.Caption = Label6.CaptionLabel11.Visible = Truemax = Labelmax.CaptionOpen App.Path & "\point.txt" For Output As #1Write #1, maxClose #1nn = InputBox("创造了新纪录!请问您尊姓大名!", " ")tt = Format(Date)Open App.Path & "\name.txt" For Output As #1Write #1, nnWrite #1, ttClose #1End IfIf Picture1(s).BackColor = RGB(0, 200, 0) Then Timer1.Enabled = FalseTimer3.Enabled = FalseFrame2.Visible = TrueLabel6.Caption = Label7.CaptionIf Val(Label6.Caption) > Val(Labelmax.Caption) Then Labelmax.Caption = Label6.CaptionLabel11.Visible = Truemax = Labelmax.CaptionOpen App.Path & "\point.txt" For Output As #1Write #1, maxClose #1nn = InputBox("创造了新纪录!请问您尊姓大名!", " ") tt = Format(Date)Open App.Path & "\name.txt" For Output As #1Write #1, nnWrite #1, ttClose #1End IfEnd IfPicture1(s).BackColor = RGB(200, 0, 0)End IfNext s'玩家汽车移动代码：If lr = "left" ThenLabel1.Caption = -55 - Val(Label10.Caption) / 10 End IfIf lr = "leftstop" ThenIf Label1.Caption < 0 Then Label1.Caption = 0 Else: Label1.Caption = Label1.CaptionEnd IfIf lr = "right" ThenLabel1.Caption = 55 + Val(Label10.Caption) / 10 End IfIf lr = "rightstop" ThenIf Label1.Caption > 0 Then Label1.Caption = 0Else: Label1.Caption = Label1.CaptionEnd IfIf car.Left < 0 Then'判断车子是否在游戏窗口最左右两端Label1.Caption = 0car.Left = 0Elsecar.Left = car.Left + Label1.CaptionEnd IfIf car.Left + car.Width > Form1.Width ThenLabel1.Caption = 0car.Left = Form1.Width - car.WidthElsecar.Left = car.Left + Label1.CaptionEnd If'随机产生道路车辆：Picture1(0).Top = Picture1(0).Top + Label10.Caption If Picture1(0).Top > Form1.Height ThenPicture1(0).BackColor = RGB(0, 200, 0)Picture1(0).Top = -Picture1(0).HeightRandomizexx = Int(4 * (Rnd + 0))Picture1(0).Picture = Image3(xx).PictureX = Int(6400 * (Rnd + 0))Picture1(0).Left = XEnd IfPicture1(1).Top = Picture1(1).Top + Label10.Caption If Picture1(1).Top > Form1.Height ThenPicture1(1).BackColor = RGB(0, 200, 0)Picture1(1).Top = -Picture1(1).HeightRandomizexx = Int(4 * (Rnd + 0))Picture1(1).Picture = Image3(xx).PictureX = Int(6400 * (Rnd + 0))Picture1(1).Left = XEnd IfPicture1(2).Top = Picture1(2).Top + Label10.CaptionIf Picture1(2).Top > Form1.Height ThenPicture1(2).BackColor = RGB(0, 200, 0)Picture1(2).Top = -Picture1(2).HeightRandomizexx = Int(4 * (Rnd + 0))Picture1(2).Picture = Image3(xx).PictureX = Int(6400 * (Rnd + 0))Picture1(2).Left = XEnd IfPicture3(0).Top = Picture3(0).Top + Label10.CaptionIf Picture3(0).Top - 1740 > Form1.Height ThenPicture3(0).Top = -Picture3(0).HeightRandomizeX = Int(6400 * (Rnd + 0))Picture3(0).Left = XEnd IfPicture3(1).Top = Picture3(1).Top + Label10.CaptionIf Picture3(1).Top - 1740 > Form1.Height ThenPicture3(1).Top = -Picture3(1).HeightRandomizeX = Int(6400 * (Rnd + 0))Picture3(1).Left = XEnd IfEnd Sub②计分与记录系统功能：此部分功能，计分功能通过定时器不断进行加法运算即可，而记录系统，则通过读、写外部文件的功能实现，当玩家查看纪录时，或者结束游戏时，程序会读取外部TXT文件中的内容，里面记录着纪录及其时间等信息，然后显示。

合集下载

vb课程设计程序

vb课程设计程序

vb课程设计程序一、教学目标本节课旨在让学生掌握VB编程语言的基本语法和程序设计思路，培养学生运用VB解决实际问题的能力。

具体目标如下：1.知识目标：a.了解VB的发展历程和特点。

b.掌握VB的基本语法，包括数据类型、变量、常量、运算符等。

c.熟悉VB的程序结构，如顺序结构、分支结构、循环结构等。

d.理解VB的面向对象编程思想，如类、对象、属性、方法等。

2.技能目标：a.能够运用VB编写简单的程序，如计算器、猜数字游戏等。

b.能够分析问题，设计程序流程图，并编写相应的VB程序。

c.能够阅读和理解他人的VB代码，进行简单的代码调试和优化。

3.情感态度价值观目标：a.培养学生对计算机编程的兴趣，增强其自信心。

b.培养学生团队合作精神，提高其沟通表达能力。

c.培养学生勇于探究、积极向上的学习态度。

二、教学内容本节课的教学内容主要包括以下几个部分：1.VB简介：介绍VB的发展历程、特点及应用领域。

2.VB基本语法：讲解数据类型、变量、常量、运算符等基本概念。

3.程序结构：讲解顺序结构、分支结构、循环结构等程序设计基本结构。

4.面向对象编程：介绍类、对象、属性、方法等概念，并运用实例讲解。

三、教学方法为了提高教学效果，本节课将采用以下几种教学方法：1.讲授法：讲解VB的基本语法、程序结构等知识。

2.案例分析法：通过分析实际案例，让学生掌握VB编程思想。

3.实验法：让学生动手编写VB程序，巩固所学知识。

4.小组讨论法：分组进行讨论，培养学生的团队合作精神和沟通能力。

四、教学资源为了支持本节课的教学，我们将准备以下教学资源：1.教材：《VB程序设计》。

2.多媒体课件：用于讲解VB的基本语法、程序结构等知识。

3.案例素材：用于分析实际案例，让学生掌握VB编程思想。

4.实验设备：如计算机、投影仪等，用于学生动手实践。

5.在线资源：如编程论坛、教程等，为学生提供更多的学习资料。

五、教学评估为了全面、客观地评价学生的学习成果，本节课采用以下评估方式：1.平时表现：观察学生在课堂上的参与程度、提问回答等情况，了解其学习态度和兴趣。

vb课程设计一人

vb课程设计一人

vb课程设计一人一、课程目标知识目标：1. 让学生理解VB编程的基本概念，掌握变量、常量的定义和使用方法。

2. 使学生掌握顺序结构、选择结构和循环结构的编程方法。

3. 培养学生运用VB编写解决实际问题的程序，如计算器、小游戏等。

技能目标：1. 培养学生运用VB编程语言进行问题分析、设计和实现的能力。

2. 培养学生利用调试工具进行程序调试，找出并修正错误的能力。

3. 培养学生运用模块化编程思想，提高代码的可读性和可维护性。

情感态度价值观目标：1. 激发学生对计算机编程的兴趣，培养主动探索、自主学习的精神。

2. 培养学生良好的编程习惯，注重代码规范，提高编程素养。

3. 培养学生合作交流、分享成果的意识，提高团队协作能力。

课程性质：本课程为选修课程，适用于有一定计算机基础的学生。

学生特点：学生具备基本的计算机操作能力，对编程有一定兴趣，但编程经验不足。

教学要求：结合学生特点，采用案例教学、任务驱动等方法，注重实践操作，让学生在动手实践中掌握编程知识。

将课程目标分解为具体的学习成果，便于教学设计和评估。

二、教学内容本课程教学内容主要包括以下几部分：1. VB编程基础：- 变量与常量的定义和使用- 数据类型与运算符- 程序的基本结构（顺序结构、选择结构、循环结构）2. 界面设计：- 控件的使用（按钮、文本框、标签等）- 界面布局与设计3. 编程实践：- 编写简单的计算器程序- 编写小游戏（如：猜数字、贪吃蛇等）4. 程序调试与优化：- 使用调试工具进行程序调试- 代码优化与模块化编程5. 综合项目实践：- 结合所学知识，完成一个综合性的项目教学内容安排和进度：1. 第1-2周：VB编程基础2. 第3-4周：界面设计3. 第5-6周：编程实践4. 第7-8周：程序调试与优化5. 第9-10周：综合项目实践教材章节关联：1. VB编程基础——教材第1章2. 界面设计——教材第2章3. 编程实践——教材第3章4. 程序调试与优化——教材第4章5. 综合项目实践——结合教材各章节内容进行三、教学方法为了提高教学质量，激发学生的学习兴趣和主动性，本课程将采用以下多样化的教学方法：1. 讲授法：教师通过生动的语言、形象的表达，向学生传授VB编程的基本概念、语法规则等理论知识，为学生打下扎实的编程基础。

vb课程设计

vb课程设计

VB课程设计1. 引言VB（Visual Basic）是一种面向对象的编程语言，由微软公司开发。

它结合了基本的编程概念和直观的图形用户界面，使得编写应用程序变得简单和直观。

本文将介绍VB课程设计的相关内容，包括设计目标、设计过程和实施步骤等。

2. 设计目标VB课程设计的主要目标是培养学生的编程能力和解决问题的能力。

通过设计一个实际应用程序，学生可以学习如何使用VB语言进行程序设计，并了解软件开发过程中的各个环节。

3. 设计过程VB课程设计的设计过程包括以下几个步骤：3.1 确定需求在开始设计之前，首先需要明确应用程序的需求。

这包括确定应用程序的功能、用户界面和交互方式等。

如果我们要设计一个学生成绩管理系统，需求可能包括添加学生信息、查询成绩和生成报表等功能。

3.2 设计界面在确定需求后，接下来需要设计应用程序的用户界面。

这包括确定窗体布局、控件位置和样式等。

通过使用VB提供的可视化设计器，可以方便地创建用户界面，并进行调整和修改。

3.3 编写代码界面设计完成后，就可以开始编写代码了。

VB使用基于事件的编程模型，通过响应用户的操作来触发相应的事件处理程序。

在编写代码时，需要考虑到各种可能的情况，并进行适当的错误处理。

3.4 测试和调试在编写完代码后，需要对应用程序进行测试和调试。

这包括对各个功能进行测试，检查是否存在错误和异常情况，并进行适当的修复和优化。

3.5 文档撰写在完成测试和调试后，需要撰写相应的文档。

文档内容包括应用程序的功能介绍、使用说明和技术实现等。

这有助于其他人了解和使用该应用程序。

4. 实施步骤VB课程设计的实施步骤如下：4.1 学习VB语言基础在开始设计之前，学生需要学习VB语言的基础知识。

这包括语法、数据类型、控制结构、函数和对象等。

通过学习这些知识，学生可以掌握VB语言的基本用法。

4.2 学习VB开发环境除了学习VB语言外，学生还需要熟悉VB开发环境。

这包括VB集成开发环境（IDE）的使用、项目管理和调试工具等。

vbdo循环课程设计

vbdo循环课程设计

vb do循环课程设计一、课程目标知识目标：1. 学生能理解VB中Do循环的基本概念及其应用场景；2. 学生能掌握Do循环的两种类型：Do While和Do Until循环，并了解其区别；3. 学生能运用Do循环解决简单的实际问题，如计算累加、累乘等。

技能目标：1. 学生能独立编写和调试含有Do循环的VB程序；2. 学生能通过分析问题，选择合适的循环结构进行编程；3. 学生能在编程过程中培养良好的逻辑思维能力，提高编程效率。

情感态度价值观目标：1. 学生对编程产生兴趣，增强学习计算机科学的自信心；2. 学生在团队协作中，学会分享和交流，培养合作精神；3. 学生通过解决实际问题，认识到编程对生活的影响，激发创新意识。

课程性质：本课程为信息技术学科，以VB编程语言为基础，结合实际案例，帮助学生掌握Do循环的使用。

学生特点：六年级学生，对计算机编程有一定的基础，具备一定的逻辑思维能力，但需加强实践操作能力。

教学要求：结合学生特点，注重理论与实践相结合，强调动手实践，培养学生编程兴趣和解决问题的能力。

通过本课程的学习，使学生在掌握Do循环知识的基础上，提高编程技能和综合素质。

二、教学内容1. 理论知识：- Do循环的基本概念与作用；- Do While和Do Until循环的语法结构；- 循环控制变量的设置及循环条件的判断；- 举例说明Do循环在实际编程中的应用。

2. 实践操作：- 使用VB编写简单的Do While和Do Until循环程序；- 设计并实现累加、累乘等实际问题的程序；- 调试循环程序，分析并解决常见错误。

3. 教学大纲：- 第一章：Do循环基本概念及语法结构（1课时）- 第二章：Do While和Do Until循环的应用（1课时）- 第三章：循环控制变量的设置与循环条件的判断（1课时）- 第四章：实践操作与问题解决（2课时）4. 教材关联：- 本教学内容与教材中关于Do循环的章节紧密相关，涵盖了教材中所提到的理论知识与实践案例；- 教学内容按照教材的章节顺序进行安排，确保学生能够系统地学习和掌握Do 循环的知识。