VB课程设计报告龟兔赛跑.docx
- 文档编号:2953755
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:20
- 大小:209.85KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 报告 赛跑