【游戏】基于matlab GUI贪吃蛇游戏(难度、地图、音乐)【含Matlab源码 1160期】

已于 2023-06-18 20:40:25 修改
阅读量2k 收藏 5
点赞数 3
CC 4.0 BY-SA版权
文章标签： matlab
于 2021-07-29 21:08:23 首次发布
代码事宜私信博主
本文链接：https://blog.youkuaiyun.com/TIQCmatlab/article/details/119220766
本文介绍了基于MATLAB实现的贪吃蛇游戏，包括完整代码的获取方式和部分源代码展示。游戏设有不同难度、地图和音乐，并提供了键盘控制和暂停功能。用户可通过付费专栏获取全部代码并享受额外福利。此外，文章还展示了游戏界面创建、菜单设置以及游戏逻辑的部分代码，如方向控制、得分更新和障碍检测等。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

⛄一、获取代码方式

获取代码方式1：
完整代码已上传我的资源：【游戏】基于matlab GUI贪吃蛇游戏(难度、地图、音乐)【含Matlab源码 1160期】

获取代码方式2：
付费专栏Matlab游戏（初级版）

备注：
点击上面蓝色字体付费专栏Matlab游戏（初级版），扫描上面二维码，付费29.9元订阅海神之光博客付费专栏Matlab游戏（初级版），凭支付凭证，私信博主，可免费获得1份本博客上传优快云资源代码（有效期为订阅日起，三天内有效）；
点击优快云资源下载链接：1份本博客上传优快云资源代码

⛄二、部分源代码

function snake(cmd)
%SNAKE Graphical User Interface for playing “Nokia Classic Game” Snake.
%
% The Game:
% Make the snake grow longer by directing it to the food.
% Extra bonus points are given from hearts, eat them as fast as possible
% as amount of bonus points decreases with time.
% Higher level gives more points for the food but will also make it
% tougher to steer a long snake as speed increaces.
% Five different mazes as well as play w/o maze are possible.
%
% Game Controls:
% Steer snake using arrow keys. Pause game with ‘p’ or space.
%
% Example:
% snake % Start Main Snake Interface

%

global SNAKE MAZE LEVEL BOARD DIRECTION RUNNING FOOD SOUND BONUS PAUSE
if ~nargin
cmd = ‘init’;
end
if ~(ischar(cmd)||isscalar(cmd))
return;
end

switch cmd
case ‘init’
scrsz = get(0,‘ScreenSize’);
% Initialize figure window
f = figure(‘Name’,‘Snake’,…
‘Numbertitle’,‘off’,…
‘Menubar’,‘none’,…
‘Color’,[.95 .95 .95],…
‘DoubleBuffer’,‘on’,…
‘Position’,[(scrsz(3)-400)/2 (scrsz(4)-300)/2 400 300],…
‘Colormap’,[.58 .71 .65;.4 .4 .4;0 0 0;1 1 0],…
‘CloseRequestFcn’,sprintf(‘%s(’‘Stop’‘);closereq;’,mfilename),…
‘KeyPressFcn’,sprintf(‘%s(double(get(gcbf,’‘Currentcharacter’‘)))’,mfilename));
% Create the Menu
FileMenu = uimenu(f,‘Label’,‘&File’);
uimenu(FileMenu,‘Label’,‘New Game’,‘Accelerator’,‘N’,‘Callback’,sprintf(‘%s(’‘NewGame’‘)’,mfilename));
uimenu(FileMenu,‘Label’,‘Exit’,‘Accelerator’,‘Q’,‘Separator’,‘on’,‘Callback’,sprintf(‘%s(’‘Stop’‘);closereq’,mfilename));
LevelMenu = uimenu(f,‘Label’,‘&Level’);
uimenu(LevelMenu,‘Label’,‘|’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘|||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename),‘checked’,‘on’)
uimenu(LevelMenu,‘Label’,‘|||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘||||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘|||||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘||||||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
uimenu(LevelMenu,‘Label’,‘|||||||||’,‘Callback’,sprintf(‘%s(’‘Level’‘)’,mfilename))
MazesMenu = uimenu(f,‘Label’,‘&Mazes’);
uimenu(MazesMenu,‘Label’,‘No maze’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename),‘checked’,‘on’)
uimenu(MazesMenu,‘Label’,‘Box’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename))
uimenu(MazesMenu,‘Label’,‘Tunnel’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename))
uimenu(MazesMenu,‘Label’,‘Spiral’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename))
uimenu(MazesMenu,‘Label’,‘Blockade’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename))
uimenu(MazesMenu,‘Label’,‘Twisted’,‘Callback’,sprintf(‘%s(’‘Mazes’‘)’,mfilename))
HelpMenu = uimenu(f,‘Label’,‘&Help’);
uimenu(HelpMenu,‘Label’,‘Help’,‘Callback’,sprintf(‘helpwin %s’,mfilename))
uimenu(HelpMenu,‘Label’,‘Show Score’,‘Callback’,sprintf(‘%s(’‘ShowScore’‘)’,mfilename),‘Separator’,‘on’,‘Checked’,‘on’)
uimenu(HelpMenu,‘Label’,‘Play Sounds’,‘Callback’,sprintf(‘%s(’‘PlaySound’‘)’,mfilename),‘Checked’,‘on’)
uimenu(HelpMenu,‘Label’,‘About’,‘Callback’,sprintf(‘%s(’‘About’‘)’,mfilename),‘Separator’,‘on’);
% Create The axes
axes(‘Units’,‘normalized’,…
‘Position’, [0 0 1 1],…
‘Visible’,‘off’,…
‘DrawMode’,‘fast’,…
‘NextPlot’,‘replace’);
% Add the board
BOARD = image(getTitle,‘CDataMapping’,‘scaled’);
axis image
set(gca,…
‘XTick’,NaN,…
‘YTick’,NaN)
text(40,30,‘0’,…
‘FontUnits’,‘normalized’, …
‘FontSize’,0.03, …
‘FontName’,‘FixedWidth’,…
‘FontWeight’,‘bold’,…
‘Color’,[1 1 1],…
‘VerticalAlignment’,‘baseline’, …
‘HorizontalAlignment’,‘right’,…
‘Tag’,‘Score’);
SNAKE = [14,20;14,19;14,18;14,17;14,16];
MAZE = zeros(30,40);
LEVEL = 4;
SOUND = true;
case 28 % left
if SNAKE(2,2)~=mod(SNAKE(1,2)-2,40)+1
DIRECTION = cmd;
end
case 29 % right
if SNAKE(2,2)~=mod(SNAKE(1,2),40)+1
DIRECTION = cmd;
end
case 30 % up
if SNAKE(2,1)~=mod(SNAKE(1,1)-2,30)+1
DIRECTION = cmd;
end
case 31 % down
if SNAKE(2,1)~=mod(SNAKE(1,1),30)+1
DIRECTION = cmd;
end
case ‘Level’ % Change of Level
set(get(get(gcbo,‘Parent’),‘Children’),‘checked’,‘off’)
set(gcbo,‘checked’,‘on’)
LEVEL = length(get(gcbo,‘Label’));
case ‘Mazes’ % Change of Maze
set(get(get(gcbo,‘Parent’),‘Children’),‘checked’,‘off’)
set(gcbo,‘checked’,‘on’)
MAZE = zeros(30,40);
switch get(gcbo,‘Label’)
case ‘No maze’
case ‘Box’
MAZE([1 30]😅 = 1;
MAZE(:,[1 40]) = 1;
case ‘Tunnel’
MAZE([1:4 26:30],[1 40]) = 1;
MAZE([1 30],[1:4 36:40]) = 1;
MAZE([10 20],15:25) = 1;
case ‘Spiral’
MAZE(1:15,15) = 1;
MAZE(15:30,25) = 1;
MAZE(25,1:15) = 1;
MAZE(5,25:40) = 1;
case ‘Blockade’
MAZE([1:10 end-10:end],[1 end]) = 1;
MAZE([1 end]😅 = 1;
MAZE([8 22],15:25) = 1;
MAZE(5:10,[10 30]) = 1;
MAZE(20:25,[10 30]) = 1;
case ‘Twisted’
MAZE([1 2 3 9 16 31 39 46 61 69 76 91 99 106 121 129 …
136 159 166 189 196 219 226 249 256 279 286 301 309 …
316 331 339 346 361 369 376 391 399 406 421 429 436 …
451 459 466 481 489 496 511 512 513 514 515 516 517 …
518 519 526 541 556 571 586 601 616 631 646 661 676 …
677 678 679 680 681 682 683 684 685 686 687 688 689 …
690 691 699 706 721 729 736 751 759 766 781 789 796 …
811 819 826 841 849 856 871 879 886 901 909 916 931 …
939 946 969 976 999 1006 1029 1036 1059 1066 1089 …
1096 1119 1126 1149 1156 1179 1186]) = 1;
end
feval(mfilename,‘Stop’)
case ‘ShowScore’ % Change of Show Score
switch get(gcbo,‘checked’)
case ‘on’
set(gcbo,‘checked’,‘off’)
set(findobj(gcbf,‘Tag’,‘Score’),‘Visible’,‘off’)
case ‘off’
set(gcbo,‘checked’,‘on’)
set(findobj(gcbf,‘Tag’,‘Score’),‘Visible’,‘on’)
end
case ‘PlaySound’ % Change of Play Sounds
switch get(gcbo,‘checked’)
case ‘on’
set(gcbo,‘checked’,‘off’)
SOUND = false;
case ‘off’
set(gcbo,‘checked’,‘on’)
SOUND = true;
end
case ‘NewGame’ % New Game N or Ctrl-N
set(findobj(gcbf,‘Tag’,‘Score’),‘String’,‘0’)
SNAKE = [14,20;14,19;14,18;14,17;14,16];
DIRECTION = 29; % right
BONUS = 0;
PAUSE = false;
feval(mfilename,‘Food’)
feval(mfilename,‘Start’)
case ‘Start’ % Start Game
RUNNING = true;
bonusCounter = 0;
foodCounter = 0;
while(RUNNING)
if ~PAUSE
SNAKE = circshift(SNAKE,1);

            switch DIRECTION
                case 28 % left
                    SNAKE(1,2) = mod(SNAKE(1,2)-2,40)+1;
                case 29 % right
                    SNAKE(1,2) = mod(SNAKE(1,2),40)+1;
                case 30 % up
                    SNAKE(1,1) = mod(SNAKE(1,1)-2,30)+1;
                case 31 % down
                    SNAKE(1,1) = mod(SNAKE(1,1),30)+1;
            end
            % Check if snake hits any barrier
            if MAZE(SNAKE(1,1),SNAKE(1,2)) || ...
                    sum(ismember(SNAKE(2:end,1),SNAKE(1,1))+...
                    ismember(SNAKE(2:end,2),SNAKE(1,2))==2)
                %If play sound
                if SOUND
                    soundsc(sin(1:100),1000)
                end
                pause(.3)
                delete(findobj(gcbf,'Tag','Bonus'))
                feval(mfilename,'Stop')
                set(BOARD,'CData',getGameOver)
            else
                % Check if snake eats bonus
                if isequal(SNAKE(1,:),BONUS)
                    % Update score
                    scorehandle = findobj(gcbf,'Tag','Score');
                    set(scorehandle,'String',...
                        num2str(LEVEL*ceil(bonusCounter/3)+...
                        str2double(get(scorehandle,'String'))))
                    %If play sound
                    if SOUND
                        soundsc(sin(1:100),5000)
                    end
                    bonusCounter = 1;
                end
                if BONUS
                    bonusCounter = bonusCounter-1;
                    if bonusCounter<=0
                        delete(findobj(gcbf,'Tag','Bonus'))
                       
                    end
                end
                % Check if snake eats food
                if isequal(SNAKE(1,:),FOOD)
                    % Snake Grows!
                    SNAKE(end+1,:) = SNAKE(end,:);
                    % Update score
                    scorehandle = findobj(gcbf,'Tag','Score');
                    set(scorehandle,'String',...
                        num2str(LEVEL+str2double(get(scorehandle,'String'))))
                    %If play sound
                    if SOUND
                        soundsc(sin(1:100),10000)
                    end
                    % Spawn new food
                    feval(mfilename,'Food')
                    if ~BONUS % only update if no bonus exist
                        bonusCounter = bonusCounter+15;
                        foodCounter = foodCounter+1;
                    end

⛄三、运行结果

在这里插入图片描述
在这里插入图片描述

⛄四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 包子阳,余继周,杨杉.智能优化算法及其MATLAB实例（第2版）[M].电子工业出版社，2016.
[2]张岩,吴水根.MATLAB优化算法源代码[M].清华大学出版社，2017.

3 备注
简介此部分摘自互联网，仅供参考，若侵权，联系删除

评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

海神之光

有机会获得赠送范围1份代码

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值