VISUAL_BASIC课程设计说明书 叶建斌.pdf

Visual Basic课程设计 说明书 题 目： 龟兔赛跑游戏开发 姓 名： 张晓园 班 级： 土木一班 学 号： 110105145 指导教师： 王吉平 综合成绩： 2011 年11 月2 日 一、设计目的 10土木一班 叶建斌 100105145 编写一款龟兔赛跑游戏，两个用户通过键盘控制比赛对象 （龟和兔） 进行赛跑比赛，谁最早跑到终点谁就获胜。 通过设计掌握键盘事件处理；图片使用；Timer定时器控件；菜单使 用 二、软件功能介绍 （1）程序参考界面如图1所示，开始时 “龟”和 “兔”分别位于两条 跑道的起点。使用鼠标单击 “狐狸”（裁判）按钮，该按钮右面闪烁倒计 时 “1，2，3”字样，然后显示 “ＧＯ ＧＯ ＧＯ”进入比赛状态。 图1 主界面 （2）赛跑开始后，用户1轮流按 “a”和 “s”键，用户2轮流按 “；” 和 “‘”（单引号）键，分别使龟兔沿着跑道向右前进。每按两次键才能使 -2 - 10土木一班 叶建斌 100105145 图标移动一次，按键越快，相应的图标就跑的越快。计时牌显示各自所用 时间，如图2所示。 图2 游戏过程中 当两个动物都到达终点时，显示谁是胜者，如图3所示。游戏过程中， 通过 “游戏速度”滚动条可调节动物每前进一步的距离。 -3- 10土木一班 叶建斌 100105145 图3 显示胜利者 （3）游戏结束后，按键是不能使两个动物移动的；安 “重”健则重 新开始，，显示如4所示的信息，重新开始游戏。 -4 - 10土木一班 叶建斌 100105145 三、设计难点 （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 (ByValvKey As Long) As Integer Dim iAs Single Dim rabbit As Boolean ‘兔子 Di