扫雷-C语言实现

上传人:每**** 文档编号:61336196 上传时间:2022-03-11 格式:DOCX 页数:8 大小:128.15KB
收藏 版权申诉 举报 下载
扫雷-C语言实现_第1页
第1页 / 共8页
扫雷-C语言实现_第2页
第2页 / 共8页
扫雷-C语言实现_第3页
第3页 / 共8页
资源描述:

《扫雷-C语言实现》由会员分享,可在线阅读,更多相关《扫雷-C语言实现(8页珍藏版)》请在装配图网上搜索。

1、扫雷纯C语言实现授课:XXX件夹中找到“扫雷安=分=割=线=授课:XXX#include#include/本程序使用了EGE图形库#include/地雷个数#define NUM 40 int map2020;/用于保存地雷阵,9表示地雷,08表示周围地雷的个数int ui2020;/用于保存显示的界面,0表示未翻开,1表示翻开,2表示插上了小红旗long timer,timer2;int life,isnew;PIMAGE LEI;/地雷PIMAGE SHOW_0;/未翻开的方块PIMAGE SHOW_1;/翻开的方块PIMAGE SHOW_FLAG;/小红旗int makemap(int

2、num);/初始化地雷阵int draw(void);绘制图形int dataup(void);/更新数据,响应鼠标操作void showother(int x,int y);/翻开空白方块旁边挨着的空白方块int main ()int x,y;srand(int)time(NULL);initgraph(600,700);LEI=newimage();SHOW_0=newimage();SHOW_1=newimage();SHOW_FLAG=newimage();getimage(LEI,lei.png);getimage(SHOW_0,show_0.png);getimage(SHOW_1

3、,show_1.png);getimage(SHOW_FLAG,show_flag.png);setfillcolor(LIGHTGRAY);while(1)bar(80,600,600,700);授课:XXXsetcolor(LIGHTBLUE);setfont(50,0,宋体);xyprintf(80,600,Made By:Blue Sky);setfont(20,0,宋体);xyprintf(80,650,共%d个地雷找到它们并按右键插上小红旗,NUM);life=1;isnew=1;makemap(NUM);for(y=0;y20;y+)for(x=0;x20;x+)uiyx=0;s

4、etbkcolor(LIGHTGRAY);draw();timer=clock(); while(life)timer2=clock();setfont(-80,0,);setcolor(RED);xyprintf(0,600,%d,(timer2-timer)/1000);dataup();if(life=0)for(y=0;y20;y+)for(x=0;x20;x+)uiyx=1;draw();break;if(isnew)draw();if(life=2)break;setfont(50,0,宋体);setcolor(RED);bar(80,600,600,700);if(life=2)

5、xyprintf(80,600,太牛了!你赢了!); if(life=0)xyprintf(80,600,噢!你挂了!); setfont(30,0,宋体);xyprintf(80,650,(按空格再来一局!其他键退出);if(getch()!=VK_SPACE)break;授课:XXX delimage(SHOW_1);delimage(SHOW_0);delimage(LEI);closegraph();int makemap(int num)int x,y,n=0;int i,j;for(y=0;y20;y+)for(x=0;x20;x+)mapyx=0;for(;nnum;)n=0;x

6、=rand()%20;y=rand()%20;mapyx=9;for(y=0;y20;y+)for(x=0;x20;x+)if(mapyx=9)n+;for(y=0;y20;y+)for(x=0;x20;x+)if(mapyx!=9)for(i=y-1;i=y+1;i+)for(j=x-1;j=0&i=0&j20)if(mapij=9)mapyx+;return 0;int draw(void)授课:XXXint x,y;for(y=0;y20;y+)for(x=0;x20;x+)if(uiyx=1)if(mapyx=9)putimage(x*30,y*30,LEI);elseputimage

7、(x*30,y*30,SHOW_1);if(mapyx!=0)if(mapyx=1)setcolor(BLUE);else if(mapyx=2)setcolor(GREEN);else if(mapyx6)setcolor(RED);else setcolor(RED);setfont(-25,0,楷体);xyprintf(x*30+10,y*30+3,%d,mapyx);else if (uiyx=2)putimage(x*30,y*30,SHOW_FLAG);else putimage(x*30,y*30,SHOW_0);isnew =0;int dataup(void)int x,y,

8、n=0;mouse_msg mous;if(mousemsg()mous= getmouse();x=(int)mous.x/30;y=(int)mous.y/30;if(mous.is_up()if(mous.x600)if(mous.is_left()showother(x,y);if(mous.is_right()if(uiyx=0)授课:XXXuiyx=2;else if(uiyx=2)uiyx=0;/修复右键点击已经翻开的方块仍然出现小红旗的BUG /* 原错误代码if(mous.is_right()if(uiyx!=2)uiyx=2;else uiyx=0;*/ isnew =1;for(y=0;y20;y+)for(x=0;x20;x+)if(uiyx=2)if(mapyx=9)n+;if(n=NUM)life=2;void showother(int x,int y)int i,j;uiyx=1;if(mapyx=9)life=0;return; if(mapyx=0)for(i=y-1;i=y+1;i+)for(j=x-1;j=0&i=0&j20)if(uiij=0)uiij=1;if(uiij=0)showother(j,i); 授课:XXX在这里下载程序以及源代码和素材文件:在文 (注:可编辑下载,若有不当之处,请指正,谢谢!) 授课:XXX

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!