VB课程设计报告龟兔赛跑.docx
《VB课程设计报告龟兔赛跑.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告龟兔赛跑.docx（20页珍藏版）》请在冰豆网上搜索。
VB课程设计报告龟兔赛跑
VB课程设计（论文）任务书
土木建筑学 院 给水排水工程专 业2 班
一、课程设计（论文）题目：
龟兔赛跑
二、课程设计（论文）工作自2012年6月11日起至2012年6月17日止
三、课程设计（论文）地点:
计算中心
四、课程设计（论文）内容要求：
1.本课程设计的目的
（1）使学生掌握系统各功能模块的基本工作原理；
（2）培养学生掌握程序设计的基本思路和方法；
（3）使学生掌握程序调试方法；
（4）培养学生分析、解决问题的能力；
（5）提高学生的论文写作能力。
2.课程设计的任务及要求
（1）基本要求：
1）对系统功能进行需求分析；
2）使用Visualbasic开发环境进行程序开发；
3）提出系统的设计方案；
4）编写源程序代码并进行调试。
（2）创新要求
在基本要求达到后，可进行创新设计。
（3）课程设计报告撰写及装订要求
课程设计报告的撰写要求表述简明，图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
1）封面
采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
2）设计任务书
3）评阅书
4）目录
5）正文
6）主要参考文献
（4）课程设计评分标准：
1）平时成绩：
20分；
2）完成设计过程（含论文）：
40分；
3）完成调试：
20分；
4）回答问题：
20分。
成绩评定实行优秀、良好、中等、及格和不及格五个等级。
不及格者需重做。
（5）参考文献
1）熊李艳周美玲.《VisualBasic程序设计》人民邮电出版社
2）
（6）课程设计进度安排
内容天数 地点
系统分析及收集资料2 图书馆
编写与调试程序2 计算中心
撰写论文3 图书馆、计算中心
（7）课程设计题目具体要求：
设计要求：
设计一个龟兔赛跑游戏，两个用户通过键盘控制比赛对象（乌龟和兔子）进行赛跑比赛，谁最早跑到终点谁就获胜。
第一：
启动程序，同时显示两个窗口，一是用来显示滚动字幕的显示板，二是窗口控制板。
第二：
使用鼠标单击“狐狸”（它是裁判）按钮，该按钮右面闪烁3次“预备”字样，然后显示“开始”进入比赛状态。
第三：
赛跑开始后，用户1轮流按“a”和“s”键，用户2轮流按“；”和“‘”（单引号）键，分别使“兔”和“龟”沿跑道向右前进。
每按两次键才能使图标移动一次，按键越快，相应的图标就跑得越快。
计时牌显示各自所用时间，如图2所示。
当两个动物都到达终点时，显示谁是胜者。
第四：
游戏在进入预备状态之前，按键是不能使两个动物移动的；在“预备”状态时（即在起跑之前），若按键移动动物程序认为是抢跑，显示如图4所示的信息，必须重新开始游戏。
第五：
程序使用了下拉式菜单。
选择“开局”命令使程序全部归位并重新开始。
“自述文件”菜单命令用“记事本程序打开并显示说明文件（Readme.txt）。
学生签名：
2012年6月11日
目录
《程序设计语言（VB）》课程设计4
一、设计目的4
二、环境配置要求4
三、设计题目龟兔赛跑4
（一）系统的主要功能4
（二）算法描述5
（三）流程图5
（四）详细设计5
（五）部分程序代码5
四、设计体会5
五、参考文献5
一、设计目的
1、进一步掌握程序的三大基本结构；
2、进一步掌握算法设计；
3、进一步理解程序调试；
4、综合利用上述知识，学习设计并编写简单应用程序；
5、培养学生团结协作的能力。
二、环境配置要求
硬件配置：
586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。
推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。
操作系统：
Windows2000/NT/Xp、VB集成开发环境。
三、设计题目龟兔赛跑
（一）系统的主要功能
说明
1.程序界面如图1.1所示，开始时“龟”和“兔”分别位于两条跑道的起点。
使用鼠标单击“狐狸”（它是裁判）按钮，该按钮右面闪烁3次“预备”字样，然后显示“开始”进入比赛状态。
图1.1设计程序界面
2.赛跑开始后，用户1轮流按“a”和“s”键，用户2轮流按“；”和“‘”（单引号）键，分别使“兔”和“龟”沿跑道向右前进。
每按两次键才能使图标移动一次，按键越快，相应的图标就跑得越快。
计时牌显示各自所用时间，如图2所示。
当两个动物都到达终点时，显示谁是胜者（见图1.2）。
图1.2
游戏过程中，通过“游戏速度”滚动条来调节动物每前进一步的距离。
3.游戏在进入预备状态之前，按键是不能使两个动物移动的；在“预备”状态时（即在起跑之前），若按键移动动物程序认为是抢跑，显示如图1.3所示的信息，必须重新开始游戏。
图1.3
4.程序使用了图1.4所示的菜单。
选择“开局”命令使程序全部归位并重新开始。
“自述文件”菜单命令用“记事本程序打开并显示说明文件（Readme.txt）。
图1.4
（二）算法描述
根据题目功能要求和设计，写出其主要的算法：
1、用鼠标点击控件激发程序
2、通过设置好计时器来控制各个控件的被使用的情况，第一个计时器控制第二、第三个的计时的开始时间，控制键盘事件
3、通过键盘事件来进行游戏，在不同的阶段可以通过Msgbox来输出相应的结果。
4、限制比赛长短、比较第二、第三个计时器数值得出比赛的结果输出。
（三）流程图
把算法能用流程图表示如下图：
（四）详细设计
1、界面设计
界面设计如图3.4所示
2、控件使用
两个下拉式菜单“游戏（G）”和“帮助（H）”
五个Lable控件“ready”、”“起点”、“终点”、“（速度）慢”、“（速度）快”，都进行字体设置为三号字体
两个Text控件分别显示兔子和乌龟的各自赛跑所用的时间，字体颜色设置为红色，三号字体
一个Frame1内有个控制速度的HScroll1，和提示速度快慢的Lable
三个计时器
两个picture内分别放置两个Iamge,图片分别是兔子和乌龟
图3.4
3、过程分析
在本次课设的过程中遇到很多的问题，第一、是怎么来控制兔子和乌龟的计时器的启用的问题，想到有个准备的闪了三下，在以往做动画的学习中，可以用一个计时器来充当这个控制器，当第六秒钟的时候激发第二、第三个计时器的工作。
第2、将控制速度的HScroll1值Value赋给两个Iamge，在用户的使用下，没按个回合的键向左移动这个距离。
但Iamge不能移动超过Picture的右端，所以用p1.Width-p3.Width来限制向右移动的距离和控制第二、第三个计时器工作。
第3、就是计时器2和3的显示问题需要很好计算出来。
（五）部分程序代码
PubliciAsInteger,mAsInteger,nAsInteger,kAsInteger
PrivateSubCommand1_Click（）
Label1.Caption="准备"
HScroll1.Value=50
Text2.Text="0:
00:
00"
Text1.Text="0:
00:
00"
Timer2.Enabled=False
Timer3.Enabled=False
n=0
k=0
p3.Left=0
p4.Left=0
i=1
Timer1.Enabled=True
EndSub
PrivateSuba1_Click（）
Command1_Click
EndSub
PrivateSuba2_Click（）
End
EndSub
PrivateSubb1_Click（）
Shell"C:
\Windows\system32\notepad.exeC:
\Users\Administrator\Desktop\我的龟兔赛跑\游戏说明.txt",1
EndSub
PrivateSubb2_Click（）
MsgBox"版本1.0"&Chr（13）&"初次尝试,不足之处，多多指教",48,"关于赛跑"
EndSub
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
DimjAsInteger
j=HScroll1.Value
Staticblin1AsBoolean
Staticblin2AsBoolean
IfKeyCode=vbKeyAOrKeyCode=vbKeySThen
Ifi<8Then
Text2.Text="抢跑"
MsgBox"兔选手，你抢跑了！
",16,"犯规"
Text2.Text="0:
00:
00"
Text1.Text="0:
00:
00"
n=0
k=0
i=1
ExitSub
EndIf
EndIf
Ifblin1=FalseAndi=8Then
IfKeyCode=vbKeyAThen
p3.Left=p3.Left+j
blin1=Notblin1
blin2=Notblin2
EndIf
EndIf
Ifblin2=TrueAndi=8Then
IfKeyCode=vbKeySThen
p3.Left=p3.Left+j
blin2=Notblin2
blin1=Notblin1
EndIf
EndIf
Staticblin3AsBoolean
Staticblin4AsBoolean
IfKeyCode=222OrKeyCode=186Then
Ifi<8Then
Text2.Text="抢跑"
MsgBox"龟选手，你抢跑了！
",16,"犯规"
i=1
Text2.Text="0:
00:
00"
n=0
k=0
ExitSub
EndIf
EndIf
Ifblin3=FalseAndi=8Then
IfKeyCode=186Then
p4.Left=p4.Left+j
blin3=Notblin3
blin4=Notblin4
EndIf
EndIf
Ifblin4=TrueAndi=8Then
IfKeyCode=222Then
p4.Left=p4.Left+j
blin4=Notblin4
blin3=Notblin3
EndIf
EndIf
Ifp3.Left>=p1.Width-p3.WidthThen
Timer3.Enabled=False
p3.Left=p1.Width-p3.Width
EndIf
Ifp4.Left>=p2.Width-p4.WidthThen
Timer2.Enabled=Fal
升级会员 