资源描述：
《VB课程设计--打地鼠》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、目录第1章课程设计目的与要求11.1课程设计目的11.2课程设计的实验环境11.3课程设计的预备知识11.4课程设计要求1第2章课程设计内容22.1游戏介绍22.2游戏设计32.3游戏实现12第3章课程设计总结14参考文献1515第1章课程设计目的与要求1.1课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2课程设计的实验环境硬件要求能运行Windows9.X操
2、作系统的微机系统。软件：MicrosoftVisualBasic6.01.3课程设计的预备知识熟悉VisualBasic6.0程序设计的基本语法知识及常用技巧。1.4课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的小游戏应用程序。要求根据规定设计游戏的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据后面给出的基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段
3、和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。15课程设计内容2.1游戏介绍2.1.1游戏规则打地鼠是一种非常有趣的益智游戏。游戏进行时，地鼠不断从洞中探出头再缩回去，当地鼠头在洞外时，可以通过按键的方式打击地鼠，时间到时游戏结束，打中地鼠次数越多得分越高，击错、逃跑数越多得分越低。在英雄榜中保留前五名最高得分信息。2.1.2游戏说明进入“游戏”选择“打地鼠”，选择“开始/帮助/英雄榜”，按ok键确认选项，鼠标左键敲打地鼠。鼠标左右键都可打
4、击想、要能更快的打到地鼠连续打击左右键，那能加快打地鼠的次数。2.2游戏设计2.2.1界面设计：打开标准EXE工程，先添加一个Label控件，属性为“得分”，然后再添加一个时间控件Timer，然后在添加5个图片控件，分别为Image1，Image2，Image3，Image4，Image5。然后在在5个图片控件中分别添加。如下图2.1所示。15图2.1游戏开始界面2.2.2属性设置Command1的属性设置为：开始Command2的属性设置为：结束计时器（Timer）的属性设置为：Enabled设置为：
5、FslseInterval设置为：7002.2.3编程思路及代码Dim鼠XAsSingleDim鼠YAsSingleDim地鼠AsByteDim对数AsIntegerDim总数AsIntegerSub判断(X,Y)SelectCase地鼠Case0,1,2X=地鼠Y=0Case3,4,5X=地鼠-3Y=1Case6,7,8X=地鼠-6Y=2EndSelectEndSubPrivateSubForm_Load()Randomize15ShowPrintFor地鼠=0To8判断X,YForm1.PaintP
6、ictureImage5.Picture,1000+1050*X,1000+1050*YNext总数=1EndSubPrivateSubForm_Load()RandomizeShowPrintFor地鼠=0To8判断X,YForm1.PaintPictureImage5.Picture,1000+1050*X,1000+1050*YNext总数=1EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSin
7、gle)Image1.MoveX-Image1.Width/2,Y-Image1.Height/2鼠X=Image1.Left鼠Y=Image1.TopTimer1.Enabled=TrueLabel2.Caption="运行中..."EndSubPrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image1.Picture=Image3.Picturexy=9915If鼠X>800And鼠X<18
8、50ThenIf鼠Y+1500>1600And鼠Y+1500<2350Thenxy=0If鼠Y+1500>2650And鼠Y+1500<3400Thenxy=3If鼠Y+1500>3700And鼠Y+1500<4450Thenxy=6EndIfIf鼠X>1850And鼠X<2900ThenIf鼠Y+1500>1600And鼠Y+1500<2350Thenxy=1If鼠Y+1500>2650And鼠Y+1500<3400Thenxy=4If鼠
