matlab俄罗斯方块

最新推荐文章于 2024-01-21 19:56:29 发布
最新推荐文章于 2024-01-21 19:56:29 发布
阅读量4.6k 收藏 52
点赞数 12
分类专栏： # MATLAB 游戏 文章标签： matlab 小游戏 俄罗斯方块
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/slandarer/article/details/104084227
版权

我最早写的一个matlab小游戏
写的可能不够简洁，但还有可玩性，
先发上来，以后可能改进或出教程。
大家自己探索吧（外挂是哪个按键，更改颜色是哪个按键）
游戏效果
在这里插入图片描述
完整代码

function elos
hold on
axis equal
axis(0.5+[0,10,0,20])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color','k')
%%%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%% %%%%%%%%%
A1=[5,23;5,24;6,23;6,24];%1
B1=[5,23;5,24;5,22;5,21];%21
B2=[5,23;4,23;6,23;7,23];%23
C1=[5,23;5,24;5,22;4,24];%31
C2=[5,23;6,23;4,23;6,24];%33
C3=[5,23;5,24;5,22;6,22];%35
C4=[5,23;4,23;6,23;4,22];%37
D1=[5,23;5,24;5,22;6,24];%41
D2=[5,23;4,23;6,23;6,22];%43
D3=[5,23;5,24;5,22;4,22];%45
D4=[5,23;4,23;6,23;4,24];%47
E1=[5,23;5,24;4,24;6,23];%51
E2=[5,23;6,24;6,23;5,22];%53
E3=[5,23;4,23;5,22;6,22];%55
E4=[5,23;5,24;4,23;4,22];%57
F1=[5,23;5,24;6,24;4,23];%61
F2=[5,23;6,23;6,22;5,24];%63
F3=[5,23;6,23;5,22;4,22];%65
F4=[5,23;4,24;4,23;5,22];%67
G1=[5,23;5,24;4,23;6,23];%71
G2=[5,23;6,23;5,24;5,22];%73
G3=[5,23;4,23;6,23;5,22];%75
G4=[5,23;4,23;5,24;5,22];%77
%%%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%% %%%%%%%%%
r=[1 0 0;1 0 0;1 0 0;1 0 0];
b=[0 0 1;0 0 1;0 0 1;0 0 1];
g=[0 1 0;0 1 0;0 1 0;0 1 0];
c=[0 1 1;0 1 1;0 1 1;0 1 1];
w=[1 1 1;1 1 1;1 1 1;1 1 1];
h=[-50,-50,0,0,1;-49,-49,0,0,1;-48,-48,0,0,1;-47,-47,0,0,1];
wall1=[1 0;2 0;3 0;4 0;5 0;6 0;7 0;8 0;9 0;10 0];
wall2=[0,0;0,1;0,2;0,3;0,4;0,5;0,6;0,7;0,8;0,9;0,10;0,11;0,12;0,13;0,14;0,15;
    0,16;0,17;0,18;0,19;0,20];
wall3=[11,0;11,1;11,2;11,3;11,4;11,5;11,6;11,7;11,8;11,9;11,10;11,11;11,12;
    11,13;11,14;11,15;11,16;11,17;11,18;11,19;11,20];
direct=[0,-1,0,0,0;0,-1,0,0,0;0,-1,0,0,0;0,-1,0,0,0];
dir=[0,-1;0,-1;0,-1;0,-1];
left=[-1,0,0,0,0;-1,0,0,0,0;-1,0,0,0,0;-1,0,0,0,0];
right=[1,0,0,0,0;1,0,0,0,0;1,0,0,0,0;1,0,0,0,0];
lefty=[-1,0;-1,0;-1,0;-1,0];
leftyy=[-1,-1;-1,-1;-1,-1;-1,-1];
righty=[1,0;1,0;1,0;1,0];
rightyy=[1,-1;1 ,-1;1,-1;1,-1];
s=[A1,c];
s1=A1;
change=1;
waigua=1;
color=1;
score=0;
%%%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%% %%%%%%%%%
kill1=[1,17;2,17;3,17;4,17;5,17;6,17;7,17;8,17;9,17;10,17];
kill2=[1,16;2,16;3,16;4,16;5,16;6,16;7,16;8,16;9,16;10,16];
kill3=[1,15;2,15;3,15;4,15;5,15;6,15;7,15;8,15;9,15;10,15];
kill4=[1,14;2,14;3,14;4,14;5,14;6,14;7,14;8,14;9,14;10,14];
kill5=[1,13;2,13;3,13;4,13;5,13;6,13;7,13;8,13;9,13;10,13];
kill6=[1,12;2,12;3,12;4,12;5,12;6,12;7,12;8,12;9,12;10,12];
kill7=[1,11;2,11;3,11;4,11;5,11;6,11;7,11;8,11;9,11;10,11];
kill8=[1,10;2,10;3,10;4,10;5,10;6,10;7,10;8,10;9,10;10,10];
kill9=[1,9;2,9;3,9;4,9;5,9;6,9;7,9;8,9;9,9;10,9];
kill10=[1,8;2,8;3,8;4,8;5,8;6,8;7,8;8,8;9,8;10,8];
kill11=[1,7;2,7;3,7;4,7;5,7;6,7;7,7;8,7;9,7;10,7];
kill12=[1,6;2,6;3,6;4,6;5,6;6,6;7,6;8,6;9,6;10,6];
kill13=[1,5;2,5;3,5;4,5;5,5;6,5;7,5;8,5;9,5;10,5];
kill14=[1,4;2,4;3,4;4,4;5,4;6,4;7,4;8,4;9,4;10,4];
kill15=[1,3;2,3;3,3;4,3;5,3;6,3;7,3;8,3;9,3;10,3];
kill16=[1,2;2,2;3,2;4,2;5,2;6,2;7,2;8,2;9,2;10,2];
kill17=[1,1;2,1;3,1;4,1;5,1;6,1;7,1;8,1;9,1;10,1];
%%%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%% %%%%%%%%%
plotelos=scatter(gca,s(:,1),s(:,2),220,s(:,3:5),'s','filled');
plott=scatter(gca,h(:,1),h(:,2),220,h(:,3:5),'s','filled');
set(gcf, 'KeyPressFcn', @key)
fps = 5;                                    
game = timer('ExecutionMode', 'FixedRate', 'Period',1/fps, 'TimerFcn', @elosgame);
start(game) 
%%%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%%% %%%%%%%%% %%%%%%%%%
    function elosgame(~,~)
        talant=find(h>18);
        if length(talant)==0
        else
            stop(game);
            ButtonName1 = questdlg('Game over','what do you mean to do?','restart','end', 'end');
            if ButtonName1 == 'restart';
                clf;
                elos();
            else
                close;
            end
        end
        if length(wall1)==length(unique([wall1;kill1],'rows'));
            wall1(find(wall1(:,2)==17),:)=[];
            h(find(h(:,2)==17),:)=[];
            wall1(wall1(:,2)>17)=wall1(wall1(:,2)>17)-1;
            h(h(:,2)>17)=h(h(:,2)>17)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill2],'rows'));
            wall1(find(wall1(:,2)==16),:)=[];
            h(find(h(:,2)==16),:)=[];
            wall1(wall1(:,2)>16)=wall1(wall1(:,2)>16)-1;
            h(h(:,2)>16)=h(h(:,2)>16)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill3],'rows'));
            wall1(find(wall1(:,2)==15),:)=[];
            h(find(h(:,2)==15),:)=[];
            wall1(wall1(:,2)>15)=wall1(wall1(:,2)>15)-1;
            h(h(:,2)>15)=h(h(:,2)>15)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill4],'rows'));
            wall1(find(wall1(:,2)==14),:)=[];
            h(find(h(:,2)==14),:)=[];
            wall1(wall1(:,2)>14)=wall1(wall1(:,2)>14)-1;
            h(h(:,2)>14)=h(h(:,2)>14)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill5],'rows'));
            wall1(find(wall1(:,2)==13),:)=[];
            h(find(h(:,2)==13),:)=[];
            wall1(wall1(:,2)>13)=wall1(wall1(:,2)>13)-1;
            h(h(:,2)>13)=h(h(:,2)>13)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill6],'rows'));
            wall1(find(wall1(:,2)==12),:)=[];
            h(find(h(:,2)==12),:)=[];
            wall1(wall1(:,2)>12)=wall1(wall1(:,2)>12)-1;
            h(h(:,2)>12)=h(h(:,2)>12)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill7],'rows'));
            wall1(find(wall1(:,2)==11),:)=[];
            h(find(h(:,2)==11),:)=[];
            wall1(wall1(:,2)>11)=wall1(wall1(:,2)>11)-1;
            h(h(:,2)>11)=h(h(:,2)>11)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill8],'rows'));
            wall1(find(wall1(:,2)==10),:)=[];
            h(find(h(:,2)==0),:)=[];
            wall1(wall1(:,2)>10)=wall1(wall1(:,2)>10)-1;
            h(h(:,2)>10)=h(h(:,2)>10)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill9],'rows'));
            wall1(find(wall1(:,2)==9),:)=[];
            h(find(h(:,2)==9),:)=[];
            wall1(wall1(:,2)>9,2)=wall1(wall1(:,2)>9,2)-1;
            h(h(:,2)>9,2)=h(h(:,2)>9,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill10],'rows'));
            wall1(find(wall1(:,2)==8),:)=[];
            h(find(h(:,2)==8),:)=[];            
            wall1(wall1(:,2)>8,2)=wall1(wall1(:,2)>8,2)-1;
            h(h(:,2)>8,2)=h(h(:,2)>8,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill11],'rows'));
            wall1(find(wall1(:,2)==7),:)=[];
            h(find(h(:,2)==7),:)=[];
            wall1(wall1(:,2)>7,2)=wall1(wall1(:,2)>7,2)-1;
            h(h(:,2)>7,2)=h(h(:,2)>7,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill12],'rows'));
            wall1(find(wall1(:,2)==6),:)=[];
            h(find(h(:,2)==6),:)=[];
            wall1(wall1(:,2)>6,2)=wall1(wall1(:,2)>6,2)-1;
            h(h(:,2)>6,2)=h(h(:,2)>6,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill13],'rows'));
            wall1(find(wall1(:,2)==5),:)=[];
            h(find(h(:,2)==5),:)==[];
            wall1(wall1(:,2)>5,2)=wall1(wall1(:,2)>59,2)-1;
            h(h(:,2)>5,2)=h(h(:,2)>5,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill14],'rows'));
            wall1(find(wall1(:,2)==4),:)=[];
            h(find(h(:,2)==4),:)=[];
            wall1(wall1(:,2)>4,2)=wall1(wall1(:,2)>4,2)-1;
            h(h(:,2)>4,2)=h(h(:,2)>4,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill15],'rows'));
            wall1(find(wall1(:,2)==3),:)=[];
            h(find(h(:,2)==3),:)=[];
            wall1(wall1(:,2)>3,2)=wall1(wall1(:,2)>3,2)-1;
            h(h(:,2)>3,2)=h(h(:,2)>3,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill16],'rows'));
            wall1(find(wall1(:,2)==2),:)=[];
            h(find(h(:,2)==2),:)=[];
            wall1(wall1(:,2)>2,2)=wall1(wall1(:,2)>2,2)-1;
            h(h(:,2)>2,2)=h(h(:,2)>2,2)-1;
            score=score+10;
        end
        if length(wall1)==length(unique([wall1;kill17],'rows'));
            wall1(find(wall1(:,2)==1),:)=[];
            h(find(h(:,2)==1),:)=[];
            wall1(wall1(:,2)>1,2)=wall1(wall1(:,2)>1,2)-1;
            h(h(:,2)>1,2)=h(h(:,2)>1,2)-1;
            score=score+10;
        end
        s1=s1+dir;
        s=s+direct;
        control=length(intersect(dir+s1,wall1,'rows'));
        if control==0;
        else
            h=[h;s];
            wall1=[wall1;s1];
            power=randi(7);
            power2=randi(4);
            if power==1;
                sn=A1;
                change=1;
            end
            if power==2;
                sn=B1;
                change=21;
            end
            if power==3;
                sn=C1;
                change=31;
            end
            if power==4;
                sn=D1;
                change=41;
            end
            if power==5;
                sn=E1;
                change=51;
            end
            if power==6;
                sn=F1;
                change=61;
            end
            if power==7;
                sn=G1;
                change=71;
            end
            if power2==1;
                co=r;
            end
            if power2==2;
                co=b;
            end
            if power2==3;
                co=g;
            end
            if power2==4;
                co=c;
            end
            if waigua==1;
                s=[sn,co];
                s1=sn;
                tip=1;
            end
            if waigua==2;
                s=[B1,co];
                s1=B1;
                tip=1;
                change=21;
            end
        end
        if color==1;
            set(plott,'XData',h(:,1),'YData',h(:,2),'CData',h(:,3:5))
            set(plotelos,'XData',s(:,1),'YData',s(:,2),'CData',s(:,3:5))
        end
        if color==2;
            set(plott,'XData',h(:,1),'YData',h(:,2),'CData',[1 1 1])
            set(plotelos,'XData',s(:,1),'YData',s(:,2),'CData',[1 1 1])
        end
    end
    function key(~,event);
        switch event.Key;
            case 'uparrow';
                po=[s1(1,:);s1(1,:);s1(1,:);s1(1,:)];
                pp=[5,23;5,23;5,23;5,23];
                pa=[s(1,3:5);s(1,3:5);s(1,3:5);s(1,3:5)];
                pos=po-pp;
                if change==21;
                    if length(intersect(B2+pos,wall1,'rows'))==0;
                        if length(intersect(B2+pos,wall2,'rows'))==0;
                            if length(intersect(B2+pos,wall3,'rows'))==0;
                                s=[B2+pos,pa];
                                s1=B2+pos;
                                change=22;
                            end
                        end
                    end
                end
                if change==23;
                    if length(intersect(B1+pos,wall1,'rows'))==0;
                        if length(intersect(B1+pos,wall2,'rows'))==0;
                            if length(intersect(B1+pos,wall3,'rows'))==0;
                                s=[B1+pos,pa];
                                s1=B1+pos;
                                change=20;
                            end
                        end
                    end
                end
                if change==31;
                    if length(intersect(C2+pos,wall1,'rows'))==0;
                        if length(intersect(C2+pos,wall2,'rows'))==0;
                            if length(intersect(C2+pos,wall3,'rows'))==0;
                                s=[C2+pos,pa];
                                s1=C2+pos;
                                change=32;
                            end
                        end
                    end
                end
                if change==33;
                    if length(intersect(C3+pos,wall1,'rows'))==0;
                        if length(intersect(C3+pos,wall2,'rows'))==0;
                            if length(intersect(C3+pos,wall3,'rows'))==0;
                                s=[C3+pos,pa];
                                s1=C3+pos;
                                change=34;
                            end
                        end
                    end
                end
                if change==35;
                    if isempty(intersect(C4+pos,wall1,'rows'));
                        if length(intersect(C4+pos,wall2,'rows'))==0;
                            if length(intersect(C4+pos,wall3,'rows'))==0;
                                s=[C4+pos,pa];
                                s1=C4+pos;
                                change=36;
                            end
                        end
                    end
                end
                if change==37;
                    if length(intersect(C1+pos,wall1,'rows'))==0;
                        if length(intersect(C1+pos,wall2,'rows'))==0;
                            if length(intersect(C1+pos,wall3,'rows'))==0;
                                s=[C1+pos,pa];
                                s1=C1+pos;
                                change=30;
                            end
                        end
                    end
                end
                if change==41;
                    if length(intersect(D2+pos,wall1,'rows'))==0; 
                        if length(intersect(D2+pos,wall2,'rows'))==0;  
                            if length(intersect(D2+pos,wall3,'rows'))==0;  
                                s=[D2+pos,pa];
                                s1=D2+pos;
                                change=42;
                            end
                        end
                    end
                end
                if change==43;
                    if length(intersect(D3+pos,wall1,'rows'))==0;
                        if length(intersect(D3+pos,wall2,'rows'))==0;
                            if length(intersect(D3+pos,wall3,'rows'))==0;
                                s=[D3+pos,pa];
                                s1=D3+pos;
                                change=44;
                            end
                        end
                    end
                end
                if change==45;
                    if length(intersect(D4+pos,wall1,'rows'))==0;
                        if length(intersect(D4+pos,wall2,'rows'))==0;
                            if length(intersect(D4+pos,wall3,'rows'))==0;
                                s=[D4+pos,pa];
                                s1=D4+pos;
                                change=46;
                            end
                        end
                    end
                end
                if change==47;
                    if length(intersect(D1+pos,wall1,'rows'))==0;
                        if length(intersect(D1+pos,wall2,'rows'))==0;
                            if length(intersect(D1+pos,wall3,'rows'))==0;
                                s=[D1+pos,pa];
                                s1=D1+pos;
                                change=40;
                            end
                        end
                    end
                end
                if change==51;
                    if length(intersect(E2+pos,wall1,'rows'))==0;
                        if length(intersect(E2+pos,wall2,'rows'))==0;
                            if length(intersect(E2+pos,wall3,'rows'))==0;
                                s=[E2+pos,pa];
                                s1=E2+pos;
                                change=52;
                            end
                        end
                    end
                end
                if change==53;
                    if length(intersect(E3+pos,wall1,'rows'))==0;
                        if length(intersect(E3+pos,wall2,'rows'))==0;
                            if length(intersect(E3+pos,wall3,'rows'))==0;
                                s=[E3+pos,pa];
                                s1=E3+pos;
                                change=54;
                            end
                        end
                    end
                end
                if change==55;
                    if length(intersect(E4+pos,wall1,'rows'))==0;
                        if length(intersect(E4+pos,wall2,'rows'))==0;
                            if length(intersect(E4+pos,wall3,'rows'))==0;
                                s=[E4+pos,pa];
                                s1=E4+pos;
                                change=56;
                            end
                        end
                    end
                end
                if change==57;
                    if length(intersect(E1+pos,wall1,'rows'))==0;
                        if length(intersect(E1+pos,wall2,'rows'))==0;
                            if length(intersect(E1+pos,wall3,'rows'))==0;  
                                s=[E1+pos,pa];
                                s1=E1+pos;
                                change=50;
                            end
                        end
                    end
                end
                if change==61;
                    if length(intersect(F2+pos,wall1,'rows'))==0;
                        if length(intersect(F2+pos,wall2,'rows'))==0;
                            if length(intersect(F2+pos,wall3,'rows'))==0;
                                s=[F2+pos,pa];
                                s1=F2+pos;
                                change=62;
                            end
                        end
                    end
                end
                if change==63;
                    if length(intersect(F3+pos,wall1,'rows'))==0;
                        if length(intersect(F3+pos,wall2,'rows'))==0;
                            if length(intersect(F3+pos,wall3,'rows'))==0;
                                s=[F3+pos,pa];
                                s1=F3+pos;
                                change=64;
                            end
                        end
                    end
                end
                if change==65;
                    if length(intersect(F4+pos,wall1,'rows'))==0;
                        if length(intersect(F4+pos,wall2,'rows'))==0;
                            if length(intersect(F4+pos,wall3,'rows'))==0;
                                s=[F4+pos,pa];
                                s1=F4+pos;
                                change=66;
                            end
                        end
                    end
                end
                if change==67;
                    if length(intersect(F1+pos,wall1,'rows'))==0;
                        if length(intersect(F1+pos,wall2,'rows'))==0;
                            if length(intersect(F1+pos,wall3,'rows'))==0;
                                s=[F1+pos,pa];
                                s1=F1+pos;
                                change=60;
                            end
                        end
                    end
                end
                if change==71;
                    if length(intersect(G2+pos,wall1,'rows'))==0;
                        if length(intersect(G2+pos,wall2,'rows'))==0;
                            if length(intersect(G2+pos,wall3,'rows'))==0;
                                s=[G2+pos,pa];
                                s1=G2+pos;
                                change=72;
                            end
                        end
                    end
                end
                if change==73;
                    if length(intersect(G3+pos,wall1,'rows'))==0;
                        if length(intersect(G3+pos,wall2,'rows'))==0;
                            if length(intersect(G3+pos,wall3,'rows'))==0;
                                s=[G3+pos,pa];
                                s1=G3+pos;
                                change=74;
                            end
                        end
                    end
                end
                if change==75;
                    if length(intersect(G4+pos,wall1,'rows'))==0;
                        if length(intersect(G4+pos,wall2,'rows'))==0;
                            if length(intersect(G4+pos,wall3,'rows'))==0;
                                s=[G4+pos,pa];
                                s1=G4+pos;
                                change=76;
                            end
                        end
                    end
                end
                if change==77;
                    if length(intersect(G1+pos,wall1,'rows'))==0;
                        if length(intersect(G1+pos,wall2,'rows'))==0;
                            if length(intersect(G1+pos,wall3,'rows'))==0;
                                s=[G1+pos,pa];
                                s1=G1+pos;
                                change=70;
                            end
                        end
                    end
                end
                change=change+1;
            case 'w'
                color=2;
            case 'c'
                color=1
            case '1';
                waigua=1;
            case '2';
                waigua=2;
            case 'leftarrow';
                if length(intersect(s1+lefty,wall1,'rows'))==0
                    if length(intersect(s1+leftyy,wall1,'rows'))==0
                        if length(intersect(s1+lefty,wall2,'rows'))==0;
                            s=s+left;
                            s1=s1+lefty;
                        end
                    end
                end
            case 'rightarrow';
                if length(intersect(s1+righty,wall1,'rows'))==0
                    if length(intersect(s1+rightyy,wall1,'rows'))==0
                        if length(intersect(s1+righty,wall3,'rows'))==0;
                            s=s+right;
                            s1=s1+righty;
                        end
                    end
                end
        end
    end
end
slandarer
关注
专栏目录
俄罗斯方块的MATLAB代码（中文注释）
10-16
用MATLAB写的俄罗斯方块代码，注释是中文的。
用Matlab编写的俄罗斯方块程序
08-28
用Matlab编写经典游戏：俄罗斯方块程序
使用matlab制作一个俄罗斯方块小游戏
一名在读学生
03-01 3873
matlab制作一个简单的俄罗斯方块小游戏
matlab-俄罗斯方块小游戏
learn81的博客
10-26 1785
%玩法说明： %Q：左移 S：下移 W：旋转 E：右移 function mtetris(cmd) %MTETRIS Matlab Tetris (v1.1) % % To play this game, type: MTETRIS % % Controls (use numpad): % [4] Left [5] Spin [6] Right % [2] Drop % % alternatively, % ...
MATLAB 俄罗斯方块游戏程序
02-24
MATLAB 俄罗斯方块 游戏 程序
matlab制作的俄罗斯方块
02-28
使用matlab简单制作的俄罗斯方块游戏
使用加速度计的 Matlab 俄罗斯方块：为大学完成的 Matlab 最终项目-matlab开发
05-30
有关该程序如何工作的完整说明，请参见指南生成的.fig文件中的main project.m文件。
MATLAB3.rar_俄罗斯方块
09-14
【标题】MATLAB3.rar_俄罗斯方块是一个关于利用MATLAB编程实现经典游戏——俄罗斯方块的项目。MATLAB是一款强大的数学计算软件，同时也被广泛用于编写各种算法和图形用户界面（GUI）的设计。在这个项目中，开发者用...
matlab俄罗斯方块改进版
12-01
1.修复了1，3 序号的积木重复，可以出现Z型积木了 2.修改了消去多行的分数奖励 3.增加了等级，升级的同时，下降速度增加 4.原来的积木颜色是随机的，现在修改为每一种积木对应一种独特的颜色
俄罗斯方块Matlab版txt-俄罗斯方块Matlab版.rar
08-13
俄罗斯方块Matlab版txt-俄罗斯方块Matlab版.rar 晕倒有个帖子因为太长了叫我截断开发结果被斑竹判为恶意灌水我怨
MATLAB 版俄罗斯方块：功能强大且可自定义的俄罗斯方块游戏。-matlab开发
05-29
功能包括： -软滴和硬滴- 在硬落位置显示鬼片（可选） -指示下一块（可选） - 左右旋转- 可定制的游戏区域大小- 可定制的键绑定-任天堂计分系统- 3 种配色方案 有关某些选项，请参阅代码开头。 请尝试一下，让我知道错误和/或缺少的功能！
MATLAB编写俄罗斯方块游戏的程序.rar
02-11
利用MATLAB2016b实现了游戏俄罗斯方块的编程，对于学习MATLAB的人大有好处，可以借此熟悉语法，而且还不枯燥（其中代号为零的是第一版，代号为1的是第二版），第二版相对第一版做了改进，可以对比学习
matlab_gui_俄罗斯方块
09-06
非常经典的matlab gui设计，涉及到gui的很多技巧。 %MTETRIS Matlab Tetris (v1.1) % % To play this game, type: MTETRIS % % Controls (use numpad): % [4] Left [5] Spin [6] Right % [2] Drop % % alternatively, % [Q] Left [W] Spin [E] Right % [S] Drop % % [Ctrl+P] Pause/Unpause % % During the game, use the game menu to set difficulty and to % enable/disable sound effects. Only one game can run at a time. % mtetris was written and tested on Matlab 5.3 (R11), but may % work with as early as Matlab 4.0 without changes. % Author: Pascal Getreuer, June 2004
MATLABTETRIS:经典游戏俄罗斯方块的另一个 MATLAB 版本。-matlab开发
05-30
按下以下键具有列出的效果： 关键效果------------------ n..... 在任何游戏进行中开始新游戏。 p.....暂停/取消暂停游戏。 s..... 开始新游戏（替代按下开始按钮）。 其他提示： 要移动作品，请使用箭头键。 向上箭头顺时针旋转一块，shift+up，逆时针。 单击预览窗口隐藏/取消隐藏预览（下一块）。 在开始游戏前点击关卡 (1) 以选择开始关卡。 如果第一个级别太慢，请尝试从更高的级别开始，直到9级。第一次调用游戏时，也可以将所需的开始级别作为参数传递。 例如， matlabetetris(7) 从第 7 级开始游戏。 对于有经验的 MATLAB 用户来说，某些更改应该很容易，例如更改前进到下一个级别所需的行数和级别到级别的加速率，因为代码注释得很好。 如果想要改变这些东西但是太难了，请随时联系我寻求帮助。 有关更重要的信息，请参阅文件中的帮
俄罗斯方块源代码，竟然只有60行，强悍
06-14
俄罗斯方块源代码，竟然只有60行
matlab俄罗斯方块下降,用MATLAB玩俄罗斯方块
weixin_28950403的博客
03-18 486
偶然发现有人编写了用matlab玩俄罗斯方块的程序，测试了一下，果然可以用。但是我们的目的不是玩，而是学习这个编程的过程。其中各种方块的形状和颜色是用patch这个命令来完成的。方块用方向键控制，上方向键可以调整方块的形状。function [STRUCT] = matlabtetris(varargin)%MATLABTETRIS A MATLAB version of the classic ...
MATLAB GUI游戏设计——俄罗斯方块
m0_51262514的博客
11-26 1827
通过以上步骤，我们基本上成功的创建了一个俄罗斯方块游戏，当然，由于笔者刚刚开始学习，如有错误，欢迎指正。最后附上游戏的全部代码，以及最后的运行结果。endTextArea1 % 游戏区域TextArea2 % 提示区域BlockId % 方块位置Shapes % 方块所有形状Shape % 本次方块ShapeId % 方块编号Colors % 方块的所有颜色Color % 方块目前的颜色game % 游戏计时器flag % 游戏开始的标志% 20行10列的游戏区域。
【MATLAB编程实例练习】-（12）俄罗斯方块
qq_43301351的博客
03-02 1043
题目描述： 小易有一个古老的游戏机，上面有着经典的游戏俄罗斯方块。因为它比较古老，所以规则和一般的俄罗斯方块不同。 荧幕上一共有 n 列，每次都会有一个 1 x 1 的方块随机落下，在同一列中，后落下的方块会叠在先前的方块之上，当一整行方块都被占满时，这一行会被消去，并得到1分。 有一天，小易又开了一局游戏，当玩到第 m 个方块落下时他觉得太无聊就关掉了，小易希望你告诉他这局游戏他获得的分数。 解...
Matlab GUI 制作俄罗斯方块小游戏
最新发布
hjuihui的博客
01-21 1968
使用matlab制作俄罗斯方块小游戏，首先考虑到的是使用GUI来完成，GUI可以实现方块的显示、键盘的控制、整体逻辑的实现。本文依照结构框架和实现代码来完成介绍。结构框架可分为初始化、逻辑控制、方块控制、按键控制、美化界面五个部分，每个部分下有着细化的分支流程。
matlab俄罗斯方块代码
05-11
以下是一个简单的 MATLAB 俄罗斯方块代码： ```matlab % 初始化游戏板 board = zeros(20, 10); % 定义方块形状 shapes = [ 0 0 0 0; % I 形块 1 1 1 1; 0 0 0 0; 0 0 0 0 0 0 1 0; % T 形块 0 1 1 1; 0 0 0 0; 0 0 0 0 0 1 1 0; % S 形块 1 1 0 0; 0 0 0 0; 0 0 0 0 1 1 0 0; % Z 形块 0 1 1 0; 0 0 0 0; 0 0 0 0 0 1 0 0; % L 形块 0 1 0 0; 0 1 1 0; 0 0 0 0 0 0 1 0; % J 形块 0 0 1 0; 0 1 1 0; 0 0 0 0 0 1 1 0; % O 形块 0 1 1 0; 0 0 0 0; 0 0 0 0 ]; % 随机选择一个形状 shape_idx = randi(size(shapes, 1) / 4); % 初始化方块位置 x = 4; y = 1; % 游戏循环 while true % 显示游戏板 disp(board); % 显示下一个形状 disp(shapes(shape_idx * 4 - 3 : shape_idx * 4, :)); % 获取用户输入 key = input('Enter a key: ', 's'); % 移动方块 switch key case 'a' % 向左移动 if x > 1 && all(board(y + (1:4) - 1, x - 1) == 0) x = x - 1; end case 'd' % 向右移动 if x < 7 && all(board(y + (1:4) - 1, x + 4) == 0) x = x + 1; end case 's' % 加速下落 while y < 17 && all(board(y + 4, x:x+3) == 0) y = y + 1; end case 'q' % 旋转 shape = rot90(shapes(shape_idx * 4 - 3 : shape_idx * 4, :)); if x + size(shape, 2) - 1 > 10 || y + size(shape, 1) - 1 > 20 || any(shape(:) & board(y:y+size(shape,1)-1, x:x+size(shape,2)-1)) shape = rot90(shape, -1); end shapes(shape_idx * 4 - 3 : shape_idx * 4, :) = shape; end % 消除满行 full_rows = find(all(board, 2)); board(full_rows, :) = []; board = [zeros(length(full_rows), 10); board]; % 将方块放到游戏板上 shape = shapes(shape_idx * 4 - 3 : shape_idx * 4, :); if y + size(shape, 1) - 1 > 20 || any(shape(:) & board(y:y+size(shape,1)-1, x:x+size(shape,2)-1)) board(y:y+size(shape,1)-1, x:x+size(shape,2)-1) = ... board(y:y+size(shape,1)-1, x:x+size(shape,2)-1) | shape; break; end y = y + 1; end % 游戏结束 disp('Game over!'); ``` 这个代码只是一个基本的实现，如果你想要做一些改进，可以添加一些特殊功能，比如：分数统计、速度难度等级、音效等等。
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

slandarer

你的鼓励将是我创作的最大动力

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

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

打赏作者

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

抵扣说明：

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

余额充值