vb课程设计-扫雷游戏的设计与开发

《vb课程设计-扫雷游戏的设计与开发》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、学号10210411116《可视化编程》课程设计报告扫雷游戏的设计与开发专业班级：计算机1111班学生姓名：指导教师：钱小红教学系：信息工程系2012年6月15日课程设计任务书（3）学生姓名：专业班级：计算机1111班指导教师：黄启荃李小艳工作单位：华夏学院计算机教研室设计题目：扫雷游戏的设计与开发初始条件：1、完成可视化编程的学习2、带VisualBasic的机器要求完成的主要任务主要任务：（在规定的时间内完成下列任务）1、开局：首先选择游戏等级，然后生成不同等级的雷区界面。游戏等级分为三级：各等级方块数为——初级：8×8、中级：16×16；各级地雷数=总方块数/6

2、；雷区每个方块下面或埋藏有1个地雷，或者没有地雷；2、挖雷：将光标移到某个方块，并按空格或回车键，可挖开它；若所揭方块下有雷，则踩雷，此时所有含地雷的块都标记，该局游戏失败；如果方块上出现数字，它代表在它周围的8个方块中共有多少颗地雷；3、标记地雷：在光标所在的某个方块上按F或f键，则标记此块下埋着地雷（实际上可能是误标），显示为F。每标记一个地雷，地雷数减少1；4、标记疑问：在光标所在的某个方块上按Q或q键，则在某方块上面标一个问号(?)，意味着没有把握判定它是否有雷。标记为？的块可在恰当的时候再按标记地雷或挖开；5、自动挖开：如果某个数字方块周围的地雷全都标记完

3、，则在该方块上按A或a键，将其剩下的方块挖开；6、输入：通过键盘输入相关指示信息；7、输出：提示游戏是否成功，是否继续。设计报告撰写格式要求：（课程设计报告按统一通用格式书写）具体内容如下：①设计任务与要求②总体方案与说明③程序主要模块的流程图④源程序清单与注释⑤问题分析与解决方案（包括调试记录、调试报告，即在调试过程中遇到的主要问题、解决方法及改进设想）；⑥小结与体会附录：①源程序（必须有简单注释）②使用说明③参考资料时间安排：6月15日---21日第一天布置题目，确定任务、查找相关资料第二天～第四天功能分析，编写程序，调试程序、运行系统；第五天程序验收、答辩；撰写

4、设计报告。指导教师签字：2012年6月15日系主任签字：年月1.设计任务与要求1、开局：首先选择游戏等级，然后生成不同等级的雷区界面。游戏等级分为三级：各等级方块数为——初级：8×8、中级：16×16；各级地雷数=总方块数/6；雷区每个方块下面或埋藏有1个地雷，或者没有地雷；2、挖雷：将光标移到某个方块，并按空格或回车键，可挖开它；若所揭方块下有雷，则踩雷，此时所有含地雷的块都标记，该局游戏失败；如果方块上出现数字，它代表在它周围的8个方块中共有多少颗地雷；3、标记地雷：在光标所在的某个方块上按F或f键，则标记此块下埋着地雷（实际上可能是误标），显示为F。每标记一个

5、地雷，地雷数减少1；4、标记疑问：在光标所在的某个方块上按Q或q键，则在某方块上面标一个问号(?)，意味着没有把握判定它是否有雷。标记为？的块可在恰当的时候再按标记地雷或挖开；5、自动挖开：如果某个数字方块周围的地雷全都标记完，则在该方块上按A或a键，将其剩下的方块挖开；6、输入：通过键盘输入相关指示信息；7、输出：提示游戏是否成功，是否继续。2.总体方案本游戏的功能类似于Windows操作系统自带扫雷游戏，设计之前，先了解这款游戏的规则。在不掀开任何的情况下，以最快的速度找出所有的地雷。如果在掀开方块的过程中，不小心翻开藏有地雷的方块，则宣告失败，惟有将所有不含地雷

6、的方块掀开，游戏才算成功（存活）。游戏的操作方面主要以鼠标为主，当鼠标指针对准未翻开的方块按下左键时即表示翻开方块，当鼠标指针对准未翻开的方块按下右键时即表示标示或疑似地雷，反复按下右键则方块会依未标示→标示→疑似三者关系不断循环。使用者可以通过地雷区内的数表示以其为中心的周边八个方块内所含的地雷数。当按下的方块不是地雷，且周边也没有地雷时，方块会以被翻开的八个方向将空白方块翻开。扫雷游戏系统的顶层层次图如下：扫雷游戏（主框架）开局输入输出挖雷标记雷标记疑问自动挖开图1扫雷系统的顶层层次图3.详细设计本程序共包括9个窗体，分别为frmMain，frmCustom，fr

7、mRecord，frmAbout，frmCheer，frmWin，frmMessage1，frmMessage2，frmMessage3和一个标准模块。当程序开始运行时，必须先加载各种图片PrivateSubForm_Load()DimiAsIntegerFori=0To4'加载表情图片SetpicFace(i)=LoadResPicture(140+i,0)NextFori=0To8SetpicNum(i)=LoadResPicture(115-i,0)'加载雷区数字图片NextFori=0To6SetpicArea(i)=LoadResPictu