利用Matlab復刻掃雷小游戲

第利用Matlab復刻掃雷小游戲casestrcmp(XPBMenu_1.Text,'插旗'),XPBMenu_1.Text='掃雷';tool='插旗';

casestrcmp(XPBMenu_1.Text,'掃雷'),XPBMenu_1.Text='插旗';tool='掃雷';

form=1:Row

forn=1:Col

XPBlabel(m,n)=uilabel(XPBFig,'Text','','HorizontalAlignment','center',...

'FontSize',16,'FontWeight','bold',...

'BackgroundColor',0.85*[1,1,1],'Position',[10+1+(m-1)*24,10+1+(n-1)*26,24-2,26-2]);

XPBimage(m,n)=uiimage(XPBFig,'ImageSource','image\button.png',...

'Position',[10+(m-1)*24,10+(n-1)*26,24,26],'UserData',[m,n],'ImageClickedFcn',@clickButton);

%==========================================================================

functionclickButton(obj,~)

clickPos=obj.UserData;

ifstrcmp(tool,'插旗')

switchMarkMap(clickPos(1),clickPos(2))

case1,set(XPBimage(clickPos(1),clickPos(2)),'visible','on','ImageSource','image\flagbutton.png');

case-1,set(XPBimage(clickPos(1),clickPos(2)),'visible','on','ImageSource','image\button.png');

MarkMap(clickPos(1),clickPos(2))=-MarkMap(clickPos(1),clickPos(2));

drawScore(MineNum,MarkMap)

return;

iftimes==1,[MineMap,aroundMap]=createMap(clickPos);drawNum(aroundMap);times=inf;end

ifMarkMap(clickPos(1),clickPos(2))==-1,return;end

set(XPBimage(clickPos(1),clickPos(2)),'visible','off');

MarkMap(clickPos(1),clickPos(2))=0;

switchMineMap(clickPos(1),clickPos(2))

case1,gameOver(MineMap,clickPos);

case0,searchZone(aroundMap,clickPos);

drawScore(MineNum,MarkMap)

ifall(all(abs(MarkMap)==MineMap))

win()

%==========================================================================

functiondrawScore(MineNum,MarkMap)

MarkMap(MarkMap==-1)=0;

score1=num2str(MineNum);L1=length(score1);

score2=num2str(sum(sum(MarkMap)));L2=length(score2);

forii=1:3

ifii=3-L1

set(scoreImage(1,ii),'ImageSource','image\0.png')

else

tempStr=score1(ii-(3-L1));

set(scoreImage(1,ii),'ImageSource',['image\',tempStr,'.png']);

ifii=3-L2

set(scoreImage(2,ii),'ImageSource','image0.png')

else

tempStr=score2(ii-(3-L2));

set(scoreImage(2,ii),'ImageSource',['image\',tempStr,'.png']);

functionwin(~,~)

formm=1:Row

fornn=1:Col

ifMineMap(mm,nn)==1

set(XPBimage(mm,nn),'visible','on','ImageSource','imageflagbutton.png');

XPBfaceIm.ImageSource='imageface3.png';

functiongameOver(MineMap,pos)

formm=1:Row

fornn=1:Col

set(XPBimage(mm,nn),'visible','off');

ifMineMap(mm,nn)==1

set(XPBimage(mm,nn),'visible','on','ImageSource','imagemine.png');

set(XPBlabel(pos(1),pos(2)),'BackgroundColor',[100]);

XPBfaceIm.ImageSource='imageface2.png';

functionsearchZone(aroundMap,pos)

ifaroundMap(pos(1),pos(2))~=0,return;end

begins=pos;

[nonea,noneb]=find(aroundMap==0);

none=[nonea,noneb];

listZone=[begins;begins+[1,0];begins+[-1,0];

begins+[0,1];begins+[0,-1];

begins+[-1,1];begins+[-1,-1];

begins+[1,1];begins+[1,-1]];

while~isempty(intersect(none,listZone,'rows'))

[a,b,~]=intersect(none,listZone,'rows');

begins=[a;begins];none(b,:)=[];

ad=length(sum(begins,2));

listZone=[begins;begins+ones(ad,1)*[1,0];begins+ones(ad,1)*[-1,0];

begins+ones(ad,1)*[0,1];begins+ones(ad,1)*[0,-1];

begins+ones(ad,1)*[-1,1];begins+ones(ad,1)*[-1,-1];

begins+ones(ad,1)*[1,1];begins+ones(ad,1)*[1,-1]];

listZone=unique(listZone,'rows');

listZone(sum(listZone1,2)0,:)=[];

listZone(sum(listZone10,2)0,:)=[];

listZone=round(listZone);

forii=1:size(listZone,1)

set(XPBimage(listZone(ii,1),listZone(ii,2)),'visible','off')

MarkMap(listZone(ii,1),listZone(ii,2))=0;

functionrestart(~,~)

MineMap=[];

aroundMap=[];

MarkMap=ones([Row,Col]);

times=1;

tool='掃雷';

formm=1:Row

fornn=1:Col

set(XPBlab