matlab设计gui界面小游戏代码

以下是一个MATLAB设计GUI界面的小游戏代码，基于经典的扫雷游戏：

function mineSweeper
% 创建GUI界面
f = figure('Visible','off','Position',[360,500,450,285]);
hstext = uicontrol('Style','text','String','Best Time:','Position',[315,250,80,15]);
hstime = uicontrol('Style','text','String','0','Position',[400,250,40,15]);
hgtext = uicontrol('Style','text','String','Game Over','Position',[315,210,80,15],'Visible','off');
hnewgame = uicontrol('Style','pushbutton','String','New Game','Position',[330,140,100,25],'Callback',@newgame);
hmines = uicontrol('Style','text','String','Mines: 0','Position',[315,100,80,15]);
htimer = uicontrol('Style','text','String','Time: 0','Position',[400,100,40,15]);
hax = axes('Units','pixels','Position',[50,60,200,200],'ButtonDownFcn',@clicksquare);
movegui(f,'center')
set(f,'Name','Mine Sweeper','NumberTitle','off','Resize','off','Visible','on');

% 初始化游戏
mines = zeros(10,10);
revealed = false(10,10);
flags = false(10,10);
gameover = false;
time = 0;
set(htimer,'String',sprintf('Time: %d',time));

% 创建新游戏
    function newgame(~,~)
        mines = zeros(10,10);
        for i = 1:10
            x = randi(10);
            y = randi(10);
            while mines(x,y)
                x = randi(10);
                y = randi(10);
            end
            mines(x,y) = 1;
        end
        revealed = false(10,10);
        flags = false(10,10);
        gameover = false;
        time = 0;
        set(htimer,'String',sprintf('Time: %d',time));
        set(hgtext,'Visible','off');
        updateboard;
    end

% 更新游戏界面
    function updateboard
        for i = 1:10
            for j = 1:10
                if revealed(i,j)
                    if mines(i,j)
                        s = 'M';
                    else
                        s = sum(mines(max(i-1,1):min(i+1,10),max(j-1,1):min(j+1,10)),'all');
                        if s == 0
                            s = '';
                        end
                    end
                    text(j,i,s,'HorizontalAlignment','center','VerticalAlignment','middle','FontSize',12);
                elseif flags(i,j)
                    text(j,i,'P','HorizontalAlignment','center','VerticalAlignment','middle','FontSize',12);
                else
                    text(j,i,'','HorizontalAlignment','center','VerticalAlignment','middle','FontSize',12);
                end
            end
        end
        set(hmines,'String',sprintf('Mines: %d',sum(flags,'all')));
    end

% 点击方块
    function clicksquare(~,~)
        if gameover
            return
        end
        p = get(hax,'CurrentPoint');
        x = round(p(1,2));
        y = round(p(1,1));
        if x < 1 || x > 10 || y < 1 || y > 10
            return
        end
        if flags(x,y)
            return
        end
        if ~revealed(x,y)
            revealed(x,y) = true;
            if mines(x,y)
                gameover = true;
                set(hgtext,'Visible','on');
                return
            elseif sum(mines(max(x-1,1):min(x+1,10),max(y-1,1):min(y+1,10)),'all') == 0
                revealneighbors(x,y);
            end
            updateboard;
            if all(revealed(~mines))
                gameover = true;
                set(hgtext,'String','You Win!','Visible','on');
                besttime = str2double(get(hstime,'String'));
                if time < besttime
                    set(hstime,'String',num2str(time));
                end
                return
            end
        end
    end

% 长按方块
    function clicklong(~,~)
        if gameover
            return
        end
        p = get(hax,'CurrentPoint');
        x = round(p(1,2));
        y = round(p(1,1));
        if x < 1 || x > 10 || y < 1 || y > 10
            return
        end
        if revealed(x,y)
            return
        end
        flags(x,y) = ~flags(x,y);
        updateboard;
    end

% 揭开相邻方块
    function revealneighbors(x,y)
        revealed(x,y) = true;
        for i = max(x-1,1):min(x+1,10)
            for j = max(y-1,1):min(y+1,10)
                if ~revealed(i,j) && ~flags(i,j)
                    revealed(i,j) = true;
                    if ~mines(i,j) && sum(mines(max(i-1,1):min(i+1,10),max(j-1,1):min(j+1,10)),'all') == 0
                        revealneighbors(i,j);
                    end
                end
            end
        end
    end

% 计时器
    function tick(~,~)
        time = time + 1;
        set(htimer,'String',sprintf('Time: %d',time));
    end
t = timer('ExecutionMode','fixedRate','Period',1,'TimerFcn',@tick);

end

运行上述代码，即可打开一个10x10的扫雷游戏界面。