VB课程设计报告——扫雷游戏

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

1、VB课程设计报告-------扫雷游戏马学清1008260132指导老师：张小兵一、题目介绍在计算机逐步渗入社会生活各个层面的今天，计算机已经成为人们日常生活的一分，越来越多的人使用计算机办公、娱乐等等。扫雷游戏是Windows操作系统自带的一款小游戏，在过去的几年里，Windows操作系统历经数次换代更新，变得越来越庞大、复杂，功能也越来越强大，但是这款小游戏依然保持原来的容貌，可见这款小游戏受到越来越多人的喜爱。我利用TurboC编写了与它功能相仿的扫雷游戏，寓学于乐。程序功能二、程序功能程序的功能是随机生

2、成地雷数，通过鼠标操作玩游戏，不接受键盘，按任意键结束程序。单击屏幕上的“开始”按钮可以重新开始游戏。所有地雷标出后胜利，当鼠标左键单击到地雷时失败。三、程序设计目的1．培养综合运用所学知识独立完成课题的能力。2．更深入地理解和掌握该课程中的有关基本概念，程序设计思想和方法。3．提高对工作认真负责、一丝不苟，对同学团结友爱，协作攻关的基本素质。4．培养勇于探索、严谨推理、实事求是、有错必改，用实践来检验理论，全方位考虑问题等科学技术人员应具有的素质。5．培养从资料文献、科学实验中获得知识的能力，提高从别人经验中

3、找到解决问题的新途径的悟性，初步培养工程意识和创新能力。6．对掌握知识的深度、运用理论去处理问题的能力、实验能力、课程设计能力、书面及口头表达能力进行考核四、游戏规则设计10×10格区域，单击鼠标后，在此格中显示的数字，则表示它周围就有几个空格内含有的地雷数，周围没有地雷的显示空白，则不能再单击了。如果是地雷，则游戏结束。如果判断是地雷，可以单击鼠标右键标出，显示红色，要取消红旗标志则再单击鼠标右键，当所有地雷都标出，每个空格都处理过，那么游戏就胜利结束。五、程序源代码'级别PrivateSubForm_Loa

4、d()'默认初级dengji=1Callnandu(dengji)EndSubPrivateSubzidingyi_Click()'自定义类型LoadForm2Form2.ShowEndSubPrivateSubagain_Click()'重新开始Callnandu(dengji)EndSubPrivateSubchuji_Click()'1级dengji=1Callnandu(dengji)EndSubPrivateSubzhongji_Click()'2级dengji=2Callnandu(dengji)E

5、ndSubPrivateSubgaoji_Click()'3级dengji=3Callnandu(dengji)EndSubPrivateSubtuichu_Click()'退出UnloadMeEndSubPrivateSubbang_Click()'显示英雄榜LoadForm3Form3.ShowEndSubPrivateSubabout_Click()'显示关于扫雷LoadForm4Form4.ShowEndSubPrivateSubTimer1_Timer()'处理计时器Iftime<999Thentim

6、e=time+1stime1=Format(time,"000")heng=Pic1.Width-(4+13)-13-13'时间处理Fori=1To3stime2=Mid(stime1,i,1)Pic1.PaintPictureClip1.GraphicCell(11-Val(stime2)),heng,4heng=heng+13Nextshijian(dengji)=timeEndIfIftime=999Then'游戏失败MsgBox"你输了",0,"失败"EndIfEndSubPublicSubnandu(

7、dengji)'调用主程序DimsAsIntegerOpenApp.Path&"mingzi"ForRandomAs1Fors=1To3Get1,s,yuanshijian(s)NextClose1Pic1.Picture=LoadPicture()'清空计时器和记雷显示器Pic2.Picture=LoadPicture()Pic2.Enabled=TrueTimer1.Enabled=Falseq=0mousedown=FalseIfdengji=1Then'判断等级hang=9:lie=9:chulei=9

8、ElseIfdengji=2Thenhang=16:lie=16:chulei=39ElseIfdengji=3Thenhang=30:lie=30:chulie=99ElseIfdengji=4Thenhang=dingh:lie=dingl:chulei=dingleiEndIfReDimfankai(hang-1,lie-1)'重定义行列数ReDimlei(hang-1,lie-