VISUAL_BASIC课程设计说明书 叶建斌

Visual Basic课程设计说明书题目：龟兔赛跑游戏开发姓名：张晓园班级：土木一班学号：110105145指导教师：王吉平综合成绩：2011年11月2日一、设计目的编写一款龟兔赛跑游戏，两个用户通过键盘控制比赛对象（龟和兔）进行赛跑比赛，谁最早跑到终点谁就获胜。

通过设计掌握键盘事件处理；图片使用；Timer定时器控件；菜单使用二、软件功能介绍（1）程序参考界面如图1所示，开始时“龟”和“兔”分别位于两条跑道的起点。

使用鼠标单击“狐狸”（裁判）按钮，该按钮右面闪烁倒计时“1，2，3”字样，然后显示“ＧＯＧＯＧＯ”进入比赛状态。

图1主界面（2）赛跑开始后，用户1轮流按“a”和“s”键，用户2轮流按“；”和“‘”（单引号）键，分别使龟兔沿着跑道向右前进。

每按两次键才能使图标移动一次，按键越快，相应的图标就跑的越快。

计时牌显示各自所用时间，如图2所示。

图2游戏过程中当两个动物都到达终点时，显示谁是胜者，如图3所示。

游戏过程中，通过“游戏速度”滚动条可调节动物每前进一步的距离。

图3显示胜利者（3）游戏结束后，按键是不能使两个动物移动的；安“重”健则重新开始，，显示如4所示的信息，重新开始游戏。

三、设计难点（1）“龟”和“兔”的图标可以通过Image图像控件来显示，“跑道”可由PictureBox图片框控件担当。

Image控件在PictureBox控件上移动产生运动效果。

（2）程序需要处理KeyDown等键盘事件。

因为多个控件具有KeyDown 事件，必须使用SetFocus方法和LostFocus事件将输入焦点锁定在某个控件上，编写这个控件的KeyDown事件过程即可。

（3）可以使用Shell函数调用记事本程序显示Readme.txt文件。

四、游戏说明：赛跑开始后，用户1轮流按“a”和“s”键，用户2轮流按“;”和“'”（键盘L的右侧两键）键，分别使龟兔沿着跑道向右前进。

每按两次键才能使图标移动一次，按键越快，相应的图标就跑的越快五、源程序清单列表：Private Declare Function GetAsyncKeyState Lib"user32"(ByVal vKey As Long)As IntegerDim i As SingleDim rabbit As Boolean‘兔子Dim turtle As Boolean‘乌龟Dim ms As SingleDim s As SingleDim m As SingleDim strs As StringDim strm As Strin'以上是定义的全局变量以及需要使用函数的申明Private Sub Command1_Click()'初始化函数，将游戏数据重置i=4rabbit=Falseturtle=FalseImage1.Left=600Image2.Left=600ms=0s=0m=0End SubPrivate Sub Command2_Click()'timer1空间开始工作开始倒计时321Timer1.Enabled=TrueEnd SubPrivate Sub Form_Load()'加载窗体是初始化游戏数据Call Command1_ClickEnd SubPrivate Sub Timer1_Timer()'timer1的事件:报倒计时32 1后关闭自己启动timer2（检测按键）timer3（秒表）控件i=i-1Label1="..."&i&"..."If i=0ThenTimer2.Enabled=True‘timer2运行Label1="GO GO GO"sixTimer1.Enabled=False‘timer1失效Timer3.Enabled=TrueEnd IfEnd SubPrivate Sub Timer2_Timer()'检测按键是否按下的功能Dim AddKey As StringKeyResult=GetAsyncKeyState(186)If KeyResult=-32767Then'";"turtle=TrueEnd IfKeyResult=GetAsyncKeyState(222)If KeyResult=-32767Then'"'"If turtle=True ThenImage2.Left=Image2.Left+240turtle=FalseEnd IfEnd IfKeyResult=GetAsyncKeyState(65)If KeyResult=-32767Then'"A"rabbit=TrueEnd IfKeyResult=GetAsyncKeyState(83)If KeyResult=-32767Then'"S"If rabbit=True ThenImage1.Left=Image1.Left+240rabbit=FalseEnd IfEnd IfIf Image1.Left>=7320Then'以image空间left为参数先到7320则胜利Timer2.Enabled=FalseTimer3.Enabled=FalseMsgBox"兔子获胜~~"End IfIf Image2.Left>=7320ThenTimer2.Enabled=FalseTimer3.Enabled=FalseMsgBox"乌龟获胜~~"End IfEnd SubPrivate Sub Timer3_Timer()'秒表功能ms=ms+10If ms=100Thenms=0s=s+1End IfIf s=60Thens=0m=m+1End IfIf s<10Then strs="0"&s'MsgBox strsIf m<10Then strm="0"&mLabel4=strm&":"&strs&":"&msEnd Sub六、龟兔赛跑游戏程序模块分析：游戏程序第一层主函数模块样式：main(){int hare=0,tortoise=0,timer=0;//timer是计时器，从0开始计时while(hare<RACE_END&&tortoise<RACE_END){tortoise+=乌龟根据他这一时刻的行为移动的距离；hare+=兔子根据他这一时刻的行为移动的距离;输出当前计时和兔子乌龟的位置;++timer;}if(hare>tortoise)cout<<"\n hare wins!";else cout<<"\n tortoise wins!";}抽取函数模块：1乌龟在这一秒的移动距离：int move_tortoise();2兔子在这一秒的移动距离：int move_hare();3输出当前计时和兔子与乌龟的位置void print_position(int timer,int tortoise,int hare);由功能分成三个模块（分类模块）：1主模块1移动模块move_tortoisemove_hare()2输出模块print_position程序代码：//文件：Random.h//随机函数库的头文件#ifndef_random_h#define_random_h//函数：RandomInit//用法：RandomInit()//作用：此函数初始化随机数种子void RandomInit();//函数：RandomInteger//用法：n=RandomInteger(low,high)//作用：此函数返回一个low到high之间的随机数，包括low和high int RandomInteger(int low,int high);#endif//文件：Random.cpp//该文件实现了Random库#include<cstdlib>#include<ctime>#include"Random.h"//函数：RandomInit//该函数取当前系统时间作为随机数发生器的种子void RandomInit(){srand(time(NULL));}//函数：RandomInteger//该函数将0到RAND_MAX的区间的划分成high-low+1个//子区间。

当产生的随机数落在第一个子区间时，则映射成low。

//当落在最后一个子区间时，映射成high。

当落在第i个子区间时//（i从0到high-low），则映射到low+iint RandomInteger(int low,int high){return(low+(high-low+1)*rand()/(RAND_MAX+1));}//程序中主模块部分的声明部分：#include"Random.h"//包含随机数库#include<iostream>using namespace std;const int RACE_END=70;//设置跑道的长度int move_tortoise();int move_hare();void print_position(int,int,int);//程序中主函数部分：int main(){int hare=0,tortoise=0,timer=0;RandomInit();//随机数初始化cout<<"timer tortoise hare\n";//输出表头while(hare<RACE_END&&tortoise<RACE_END){tortoise+=move_tortoise();//乌龟移动hare+=move_hare();//兔子移动print_position(timer,tortoise,hare);++timer;}if(hare>tortoise)cout<<"\n hare wins!\n";else cout<<"\n tortoise wins!\n";return0;}//文件名：move.cpp#include"Random.h"//本模块用到了随机函数库int move_tortoise(){int probability=RandomInteger(0,9);//产生0到9之间的随机数if(probability<5)return3;//快走else if(probability<7)return-6;//后滑else return1;//慢走}int move_hare(){int probability=RandomInteger(0,9);if(probability<2)return0;//睡觉else if(probability<4)return-9;//大后滑else if(probability<5)return14;//快走else if(probability<8)return3;//小步跳else return-2;//慢后滑}//文件名：print.cpp#include<iostream>using namespace std;void print_position(int timer,int t,int h){if(timer%6==0)cout<<endl;//每隔6秒空一行cout<<timer<<'\t'<<t<<'\t'<<h<<'\n';}七、程序设计心得，收获及体会做了两周的课程设计，有很多的心得体会，更多的是同学之间的合作精神，这道课程设计花了我们一到两周的时间，几人合作，老师的帮忙才完成。