VB课程设计报告龟兔赛跑.docx

1、VB课程设计报告龟兔赛跑VB课程设计(论文)任务书土木建筑 学院给水排水工程 专业 2 班一、课程设计(论文)题目 ： 龟兔赛跑 二、课程设计(论文)工作自 2012 年 6 月11日起至 2012 年 6 月 17 日止 三、课程设计(论文) 地点: 计算中心 四、课程设计(论文)内容要求：1. 本课程设计的目的（1）使学生掌握系统各功能模块的基本工作原理； （2）培养学生掌握程序设计的基本思路和方法； （3）使学生掌握程序调试方法；（4）培养学生分析、解决问题的能力；（5）提高学生的论文写作能力。 2. 课程设计的任务及要求(1) 基本要求：1）对系统功能进行需求分析；2）使用Visual

2、 basic开发环境进行程序开发；3）提出系统的设计方案；4） 编写源程序代码并进行调试。(2) 创新要求在基本要求达到后，可进行创新设计。(3) 课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。报告按如下内容和顺序用A4纸进行打印并装订成册。1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。2）设计任务书3）评阅书4）目录 5）正文 6）主要参考文献(4) 课程设计评分标准： 1）平时成绩：20分； 2）完成设计过程（含论文）：40分； 3）完成调试：20分； 4）回答问题：20分。成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。

3、(5) 参考文献 1）熊李艳 周美玲 .Visual Basic 程序设计 人民邮电出版社 2） (6) 课程设计进度安排内容 天数地点系统分析及收集资料 2图书馆编写与调试程序 2计算中心撰写论文 3图书馆、计算中心 (7）课程设计题目具体要求：设计要求：设计一个龟兔赛跑游戏，两个用户通过键盘控制比赛对象（乌龟和兔子）进行赛跑比赛，谁最早跑到终点谁就获胜。第一：启动程序，同时显示两个窗口，一是用来显示滚动字幕的显示板，二是窗口控制板。第二：使用鼠标单击“狐狸”（它是裁判）按钮，该按钮右面闪烁3次“预备”字样，然后显示“开始”进入比赛状态。第三：赛跑开始后，用户1轮流按“a”和“s”键，用户2

4、轮流按“；”和“”（单引号）键，分别使“兔”和“龟”沿跑道向右前进。每按两次键才能使图标移动一次，按键越快，相应的图标就跑得越快。计时牌显示各自所用时间，如图2所示。当两个动物都到达终点时，显示谁是胜者。第四：游戏在进入预备状态之前，按键是不能使两个动物移动的；在“预备”状态时（即在起跑之前），若按键移动动物程序认为是抢跑，显示如图4所示的信息，必须重新开始游戏。第五：程序使用了下拉式菜单。选择“开局”命令使程序全部归位并重新开始。“自述文件”菜单命令用“记事本程序打开并显示说明文件（Readme.txt）。学生签名： 2012年 6月 11 日目录程序设计语言（VB）课程设计 4一、设计目的

5、 4二、环境配置要求 4三、设计题目 龟兔赛跑 4（一）系统的主要功能 4（二）算法描述 5（三）流程图 5（四）详细设计 5（五）部分程序代码 5四、设计体会 5五、参考文献 5一、设计目的1、进一步掌握程序的三大基本结构；2、进一步掌握算法设计；3、进一步理解程序调试；4、综合利用上述知识，学习设计并编写简单应用程序；5、培养学生团结协作的能力。 二、环境配置要求硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。操作系统：Windows2000/N

6、T/Xp、VB集成开发环境。三、设计题目 龟兔赛跑（一）系统的主要功能说明1. 程序界面如图1.1所示，开始时“龟”和“兔”分别位于两条跑道的起点。使用鼠标单击“狐狸”（它是裁判）按钮，该按钮右面闪烁3次“预备”字样，然后显示“开始”进入比赛状态。图1.1 设计程序界面2. 赛跑开始后，用户1轮流按“a”和“s”键，用户2轮流按“；”和“”（单引号）键，分别使“兔”和“龟”沿跑道向右前进。每按两次键才能使图标移动一次，按键越快，相应的图标就跑得越快。计时牌显示各自所用时间，如图2所示。当两个动物都到达终点时，显示谁是胜者（见图1.2）。 图1.2游戏过程中，通过“游戏速度”滚动条来调节动物每前

7、进一步的距离。3. 游戏在进入预备状态之前，按键是不能使两个动物移动的；在“预备”状态时（即在起跑之前），若按键移动动物程序认为是抢跑，显示如图1.3所示的信息，必须重新开始游戏。 图1.34. 程序使用了图1.4所示的菜单。选择“开局”命令使程序全部归位并重新开始。“自述文件”菜单命令用“记事本程序打开并显示说明文件（Readme.txt）。 图1.4（二）算法描述 根据题目功能要求和设计，写出其主要的算法：1、用鼠标点击控件激发程序2、通过设置好计时器来控制各个控件的被使用的情况，第一个计时器控制第二、第三个的计时的开始时间，控制键盘事件3、通过键盘事件来进行游戏，在不同的阶段可以通过Ms

8、gbox来输出相应的结果。4、限制比赛长短、比较第二、第三个计时器数值得出比赛的结果输出。（三）流程图把算法能用流程图表示如下图：（四）详细设计 1、界面设计界面设计如图3.4所示 2、控件使用两个下拉式菜单“游戏（G）”和“帮助（H）”五个Lable控件“ready”、”“起点”、“终点”、“（速度）慢”、“（速度）快”，都进行字体设置为三号字体两个Text控件分别显示兔子和乌龟的各自赛跑所用的时间，字体颜色设置为红色，三号字体一个Frame1内有个控制速度的HScroll1，和提示速度快慢的Lable三个计时器两个picture内分别放置两个Iamge,图片分别是兔子和乌龟图3.4 3、过

9、程分析在本次课设的过程中遇到很多的问题，第一、是怎么来控制兔子和乌龟的计时器的启用的问题，想到有个准备的闪了三下，在以往做动画的学习中，可以用一个计时器来充当这个控制器，当第六秒钟的时候激发第二、第三个计时器的工作。第2、将控制速度的HScroll1值Value赋给两个Iamge，在用户的使用下，没按个回合的键向左移动这个距离。但Iamge不能移动超过Picture的右端，所以用p1.Width - p3.Width来限制向右移动的距离和控制第二、第三个计时器工作。第3、就是计时器2和3的显示问题需要很好计算出来。（五）部分程序代码 Public i As Integer, m As Inte

10、ger, n As Integer, k As IntegerPrivate Sub Command1_Click()Label1.Caption = 准备HScroll1.Value = 50Text2.Text = 0:00:00Text1.Text = 0:00:00Timer2.Enabled = FalseTimer3.Enabled = False n = 0 k = 0 p3.Left = 0 p4.Left = 0 i = 1 Timer1.Enabled = TrueEnd SubPrivate Sub a1_Click()Command1_ClickEnd SubPriva

11、te Sub a2_Click() EndEnd SubPrivate Sub b1_Click() Shell C:Windowssystem32notepad.exe C:UsersAdministratorDesktop我的龟兔赛跑游戏说明.txt, 1End SubPrivate Sub b2_Click() MsgBox 版本1.0 & Chr(13) & 初次尝试,不足之处，多多指教, 48, 关于赛跑End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim j As Integerj = HS

12、croll1.ValueStatic blin1 As BooleanStatic blin2 As BooleanIf KeyCode = vbKeyA Or KeyCode = vbKeyS ThenIf i 8 Then Text2.Text = 抢跑 MsgBox 兔选手，你抢跑了！, 16, 犯规 Text2.Text = 0:00:00 Text1.Text = 0:00:00 n = 0 k = 0 i = 1 Exit SubEnd IfEnd IfIf blin1 = False And i = 8 Then If KeyCode = vbKeyA Then p3.Left

13、= p3.Left + j blin1 = Not blin1 blin2 = Not blin2 End IfEnd IfIf blin2 = True And i = 8 Then If KeyCode = vbKeyS Then p3.Left = p3.Left + j blin2 = Not blin2 blin1 = Not blin1 End IfEnd IfStatic blin3 As BooleanStatic blin4 As BooleanIf KeyCode = 222 Or KeyCode = 186 ThenIf i = p1.Width - p3.Width Then Timer3.Enabled = False p3.Left = p1.Width - p3.WidthEnd IfIf p4.Left = p2.Width - p4.Width Then Timer2.Enabled = Fal