用dev编俄罗斯方块代码（俄罗斯方块代码实现）

admin 发布：2022-12-19 19:50 155

本篇文章给大家谈谈用dev编俄罗斯方块代码，以及俄罗斯方块代码实现对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

1、用c语言编写俄罗斯方块程序求详解
2、求俄罗斯方块（Dev c++/Free pascal）源代码
3、俄罗斯方块C语言代码
4、dev C++俄罗斯方块
5、求C语言俄罗斯方块代码

用c语言编写俄罗斯方块程序求详解

1、用C语言绘制图形界面

EasyX图形库()即TC的图形库在VC下的移植。

包含库#include graphics.h

先初始化图形窗口

initgraph(WINDOW_WIDTH, WINDOW_HIGH) ;WINDOW_WIDTH为窗口的宽带，WINDOW_HIGH为窗口的高度。

清空绘图设备

cleardevice();

设置画笔颜色

setcolor(RED) ;

设置线条风格

setlinestyle(PS_SOLID, NULL, 0);

画矩形

rectangle

还有画线、显示文字等函数，可以参照其帮助文档。

注意：由于我们用的是EasyX图形库，故源文件后缀要为.cpp，但其中内容都是C的语法。

2、存储表示出俄罗斯方块的形状

一、我们可以用编号，不同的编号代表不同的俄罗斯方块，根据编号把不同方块的画法写在代码中，这样19种

方块就得有19种相应的代码来描绘。而且这样扩展性不好，若以后设计了新的方块，则需要更改大量源代码。

二、我们很自然的想到可用字模点阵的形式来表示，即设置一个4行4列的数组，元素置1即代表这个位置有小

方块，元素置0即代表这个位置无小方块，这个整个的4*4的数组组成俄罗斯方块的形状。

1000

1100

0000

这个方法挺靠谱，但我们还可以优化一下：不用4*4的数组，而是用16个bit位来表示这个点阵。这样存储起来比较方便，故我们用unsigned int 的低16位来表示方块的点阵。

我们可以用掩码与表示俄罗斯方块的位进行操作，来识别并在屏幕上画出方块。

我们把俄罗斯方块点阵的数位存在rockArray中，我们可以事先把这19种方块的字模点阵自己转化成十六进制，然后在rockArray数组的初始化时赋值进去。

但这样做未免有点太费力，且扩展性也不太好，若以后设计的新方块种类加入，要改变数组rockArray中的值。

我们可以考虑把所有俄罗斯方块的点阵存储在配置文件中，在程序初始化时读取文件，把这些点阵转换成unsigned int的变量存储在rockArray中。

这样，以后我们增添新的方块形状只需要在配置文件中增加新的点阵即可。

@###

@@##

#### （为使得看起来更醒目，我们用@表示1，用#表示0）

3、让图形动起来

在某位置处用函数DrawRock在屏幕上画出俄罗斯方块，然后再擦除掉(即用背景色在原位置处重绘一次方块)，最后在下落的下一个位置处用函数DrawRock在屏幕上画出俄罗斯方块，如此循环，中间用计时器间隔一段时间以控制下落的速度。

同理，按下屏幕的左右键也是如此，只是在按下键盘时把方块的位置重新计算了。

那么按下上方向键时，如何让方块翻转呢？

我们在配置文件中就把方块的顺时针翻转形态放在了一起：

@###

@@##

####

@@@#

@###

####

@@##

#@##

####

##@#

@@@#

####

我们每按一次上方向键改变一次方块的形状即可。若一直按上键，形状应该是循环地翻滚。

我们想到了循环链表的数据结构可实现这个效果。

可是我们若把这些一种类的方块的各种形态串成循环链表形式，那么每次重新生成方块时我们就难以随机地生成方块了。

故还是得用数组来存储，但又要有循环链表的功能，于是我们想到了静态循环链表。

我们用结构体来作为一个方块在rockArray中的元素

typedef struct ROCK

{ //用来表示方块的形状(每一个字节是8位，用每4位表示方块中的一行)

unsigned int rockShapeBits ;

int nextRockIndex ; //下一个方块，在数组中的下标

} RockType ;

这样，当我们按下上方向键时，把传入函数DrawRock中的rockIndex变为当前方块结构体中的nextRockIndex即可。

参考资料：C语言图形界面篇

用dev编俄罗斯方块代码（俄罗斯方块代码实现）

求俄罗斯方块（Dev c++/Free pascal）源代码

FP就可以用啦、望采纳！！

USES Crt;

CONST

Change:Array [0..6,0..3,0..7] Of Byte =(((0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3),(0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3)),

((1,0,0,1,1,1,2,1),(1,0,1,1,1,2,2,1),(0,1,1,1,2,1,1,2),(1,0,0,1,1,1,1,2)),

((1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1)),

((1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2),(1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2)),

((0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2),(0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2)),

((1,0,2,0,1,1,1,2),(0,0,0,1,1,1,2,1),(1,0,0,2,1,1,1,2),(2,2,0,1,1,1,2,1)),

((0,0,1,0,1,1,1,2),(2,0,0,1,1,1,2,1),(2,2,1,0,1,1,1,2),(0,2,0,1,1,1,2,1)));

VAR

Board:Array [0..3,0..11,1..25] Of Byte;

Players,N,Nowx,Nowy,Kind,Trans,Speed:Byte;

Time,Score:Word;

Now:Array [0..7] Of Byte;

PROCEDURE Furbish;

VAR B,C:Byte;

Begin

For C:=24 Downto 2 Do Begin

Gotoxy(1,C);

For B:=1 To 10 Do

If Board[0,B,C]=0 Then Write(' ')

Else Write('圹');

End;

PROCEDURE Clear;

Var A,B,C:Byte;D:Boolean;

Begin

For A:=24 Downto 1 Do

Begin

D:=True;

For B:=1 To 10 Do

If Board[0,B,A]=0 Then D:=False;

If D=True Then

Begin

Score:=Score+10;Gotoxy(1,1);Write(Score:5,'0');

For C:=A Downto 2 Do

For B:=1 To 10 Do

Board[0,B,C]:=Board[0,B,C-1];

A:=A+1;

End;

Furbish;

End;

FUNCTION Canmove(X,Y:Byte):Boolean;

BEGIN

Canmove:=True;

If Board[0,X+Now[0],Y+Now[1]]0 Then Canmove:=False;

If Board[0,X+Now[2],Y+Now[3]]0 Then Canmove:=False;

If Board[0,X+Now[4],Y+Now[5]]0 Then Canmove:=False;

If Board[0,X+Now[6],Y+Now[7]]0 Then Canmove:=False;

End;

PROCEDURE Clean;

Begin

Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write(' ');

Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write(' ');

Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write(' ');

Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write(' ');

End;

PROCEDURE Show;

Begin

Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write('圹');

Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write('圹');

Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write('圹');

Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write('圹');

End;

BEGIN

Fillchar(Board,Sizeof(Board),0);

Randomize;Score:=0;

For N:=1 To 24 Do

Board[0,0,N]:=1;

For N:=1 To 24 Do

Board[0,11,N]:=1;

For N:=1 To 10 Do

Board[0,N,25]:=1;

Window(31,2,50,25);Textcolor(White);Textbackground(Blue);

Clrscr;Window(31,2,51,25);

Speed:=1;

Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

While Canmove(Nowx,Nowy) Do

Begin

Repeat

Clean;Nowy:=Nowy+1;Show;

Repeat

If Keypressed Then

Case Upcase(Readkey) Of

#0:Case Readkey Of

#75:If Canmove(Nowx-1,Nowy) Then Begin Clean;Nowx:=Nowx-1;Show;End;

#77:If Canmove(Nowx+1,Nowy) Then Begin Clean;Nowx:=Nowx+1;Show;End;

#80:Begin Clean;Repeat

If Canmove(Nowx,Nowy+1) Then Nowy:=Nowy+1;

Until Not(Canmove(Nowx,Nowy+1));Show;End;

#61:Begin Gotoxy(9,12);Write('Pause');Repeat Delay(1000);Until Keypressed;Furbish;End;

End;

#27:Exit;

' ',#13:Begin

Clean;Trans:=Trans+1;

If Trans=4 Then Trans:=0;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

If Not(Canmove(Nowx,Nowy)) Then Begin Trans:=Trans-1;For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];Show;End

Else Show;

End;

Until Not(Keypressed);

Delay((10-Speed)*50);

Until Not(Canmove(Nowx,Nowy+1));

Score:=Score+1;Gotoxy(1,1);Write(Score:5,'0');Speed:=(Score Div 300)+1;

Board[0,Nowx+Now[0],Nowy+Now[1]]:=1;

Board[0,Nowx+Now[2],Nowy+Now[3]]:=1;

Board[0,Nowx+Now[4],Nowy+Now[5]]:=1;

Board[0,Nowx+Now[6],Nowy+Now[7]]:=1;

Clear;

Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

End;

Gotoxy(7,12);Write('GAME OVER');Readln;

END.

俄罗斯方块C语言代码

俄罗斯方块C源代码

#include stdio.h

#include windows.h

#include conio.h

#include time.h

#define ZL 4 //坐标增量, 不使游戏窗口靠边

#define WID 36 //游戏窗口的宽度

#define HEI 20 //游戏窗口的高度

int i,j,Ta,Tb,Tc; // Ta,Tb,Tc用于记住和转换方块变量的值

int a[60][60]={0}; //标记游戏屏幕各坐标点：0,1,2分别为空、方块、边框

int b[4]; //标记4个"口"方块：1有，0无，类似开关

int x,y, level,score,speed; //方块中心位置的x,y坐标，游戏等级、得分和游戏速度

int flag,next; //当前要操作的方块类型序号，下一个方块类型序号

void gtxy(int m, int n); //以下声明要用到的自编函数

void gflag( ); //获得下一方块序号

void csh( ); //初始化界面

void start( ); //开始部分

void prfk ( ); //打印方块

void clfk( ); //清除方块

void mkfk( ); //制作方块

void keyD( ); //按键操作

int ifmov( ); //判断方块能否移动或变体

void clHA( ); //清除满行的方块

void clNEXT( ); //清除边框外的NEXT方块

int main( )

{ csh( );

while(1)

{start( ); //开始部分

while(1)

{ prfk( );

Sleep(speed); //延时

clfk( );

Tb=x;Tc=flag; //临存当前x坐标和序号，以备撤销操作

keyD( );

y++; //方块向下移动

if (ifmov( )==0) { y--; prfk( ); dlHA( ); break;} //不可动放下,删行,跨出循环

}

for(i=y-2;iy+2;i++){ if (i==ZL) { j=0; } } //方块触到框顶

if (j==0) { system("cls");gtxy(10,10);printf("游戏结束！"); getch(); break; }

clNEXT( ); //清除框外的NEXT方块

}

return 0;

}

void gtxy(int m, int n) //控制光标移动

{COORD pos; //定义变量

pos.X = m; //横坐标

pos.Y = n; //纵坐标

SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), pos);

}

void csh( ) //初始化界面

{gtxy(ZL+WID/2-5,ZL-2); printf("俄罗斯方块"); //打印游戏名称

gtxy(ZL+WID+3,ZL+7); printf("******* NEXT："); //打印菜单信息

gtxy(ZL+WID+3,ZL+13); printf("**********");

gtxy(ZL+WID+3,ZL+15); printf("Esc ：退出游戏");

gtxy(ZL+WID+3,ZL+17); printf("↑键：变体");

gtxy(ZL+WID+3,ZL+19); printf("空格：暂停游戏");

gtxy(ZL,ZL); printf("╔"); gtxy(ZL+WID-2,ZL); printf("╗"); //打印框角

gtxy(ZL,ZL+HEI); printf("╚"); gtxy(ZL+WID-2,ZL+HEI); printf("╝");

a[ZL][ZL+HEI]=2; a[ZL+WID-2][ZL+HEI]=2; //记住有图案

for(i=2;iWID-2;i+=2) {gtxy(ZL+i,ZL); printf("═"); } //打印上横框

for(i=2;iWID-2;i+=2) {gtxy(ZL+i,ZL+HEI); printf("═"); a[ZL+i][ZL+HEI]=2; } //下框

for(i=1;iHEI;i++) { gtxy(ZL,ZL+i); printf("║"); a[ZL][ZL+i]=2; } //左竖框记住有图案

for(i=1;iHEI;i++) {gtxy(ZL+WID-2,ZL+i); printf("║"); a[ZL+WID-2][ZL+i]=2; } //右框

CONSOLE_CURSOR_INFO cursor_info={1,0}; //以下是隐藏光标的设置

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE),cursor_info);

level=1; score=0; speed=400;

gflag( ); flag=next; //获得一个当前方块序号

}

void gflag( ) //获得下一个方块的序号

{ srand((unsigned)time(NULL)); next = rand()%19+1; }

void start( ) //开始部分

{ gflag( ); Ta=flag; flag=next; //保存当前方块序号，将下一方块序号临时操作

x=ZL+WID+6; y=ZL+10; prfk( ); //给x,y赋值，在框外打印出下一方块

flag=Ta; x=ZL+WID/2; y=ZL-1; //取回当前方块序号，并给x,y赋值

}

void prfk ( ) //打印俄罗斯方块

{ for(i=0;i4;i++) {b[i]=1; } //数组b[4]每个元素的值都为1

mkfk ( ); //制作俄罗斯方块

for( i= x-2; i=x+4; i+=2 ) //打印方块

{ for(j=y-2;j= y+1;j++) { if( a[i][j]==1 jZL ){ gtxy(i,j); printf("□"); } } }

gtxy(ZL+WID+3,ZL+1); printf("level : %d",level); //以下打印菜单信息

gtxy(ZL+WID+3,ZL+3); printf("score : %d",score);

gtxy(ZL+WID+3,ZL+5); printf("speed : %d",speed);

}

void clfk( ) //清除俄罗斯方块

{ for(i=0;i4;i++) { b[i]=0; } //数组b[4]每个元素的值都为0

mkfk ( ); //制作俄罗斯方块

for( i=x-2; i=x+4; i+=2 ) //清除方块

{ for(j=y-2;j=y+1;j++){ if( a[i][j]==0 jZL ){ gtxy(i,j); printf(" "); } } }

}

void mkfk( ) //制作俄罗斯方块

{ a[x][ y]=b[0]; //方块中心位置状态: 1-有,0-无

switch(flag) //共6大类，19种小类型

{ case 1: { a[x][y-1]=b[1]; a[x+2][y-1]=b[2]; a[x+2][y]=b[3]; break; } //田字方块

case 2: { a[x-2][y]=b[1]; a[x+2][y]=b[2]; a[x+4][y]=b[3]; break; } //直线方块:----

case 3: { a[x][y-1]=b[1]; a[x][y-2]=b[2]; a[x][y+1]=b[3]; break; } //直线方块: |

case 4: { a[x-2][y]=b[1]; a[x+2][y]=b[2]; a[x][y+1]=b[3]; break; } //T字方块

case 5: { a[x][y-1]=b[1]; a[x][y+1]=b[2]; a[x-2][y]=b[3]; break; } //T字顺时针转90度

case 6: { a[x][y-1]=b[1]; a[x-2][y]=b[2]; a[x+2][y]=b[3]; break; } //T字顺转180度

case 7: { a[x][y-1]=b[1]; a[x][y+1]=b[2]; a[x+2][y]=b[3]; break; } //T字顺转270度

case 8: { a[x][y+1]=b[1]; a[x-2][y]=b[2]; a[x+2][y+1]=b[3]; break; } //Z字方块

case 9: { a[x][y-1]=b[1]; a[x-2][y]=b[2]; a[x-2][y+1]=b[3]; break; } //Z字顺转90度

case 10: { a[x][y-1]=b[1]; a[x-2][y-1]=b[2]; a[x+2][y]=b[3]; break; } //Z字顺转180度

case 11: { a[x][y+1]=b[1]; a[x+2][y-1]=b[2]; a[x+2][ y]=b[3]; break; } //Z字顺转270度

case 12: { a[x][y-1]=b[1]; a[x][y+1]=b[2]; a[x-2][y-1]=b[3]; break; } //7字方块

case 13: {a[x-2][y]=b[1]; a[x+2][y-1]=b[2]; a[x+2][y]=b[3]; break; } //7字顺转90度

case 14: { a[x][y-1]=b[1]; a[x][y+1]=b[2]; a[x+2][y+1]=b[3]; break; } //7字顺转180度

case 15: { a[x-2][y]=b[1]; a[x-2][y+1]=b[2]; a[x+2][y]=b[3]; break; } //7字顺转270度

case 16: { a[x][y+1]=b[1]; a[x][y-1]=b[2]; a[x+2][y-1]=b[3]; break; } //倒7字方块

case 17: { a[x-2][y]=b[1]; a[x+2][y+1]=b[2]; a[x+2][y]=b[3]; break; } //倒7字顺转90度

case 18: { a[x][y-1]=b[1]; a[x][y+1]=b[2]; a[x-2][y+1]=b[3]; break; } //倒7字顺转180度

case 19: { a[x-2][y]=b[1]; a[x-2][y-1]=b[2]; a[x+2][y]=b[3]; break; } //倒7字顺转270度

}

void keyD( ) //按键操作

{ if (kbhit( ))

{ int key;

key=getch();

if (key==224)

{ key=getch();

if (key==75) { x-=2; } //按下左方向键，中心横坐标减2

if (key==77) { x+=2; } //按下右方向键，中心横坐标加2

if (key==72) //按下向上方向键,方块变体

{ if (flag=2 flag=3 ) { flag++; flag%=2; flag+=2; }

if ( flag=4 flag=7 ) { flag++; flag%=4; flag+=4; }

if (flag=8 flag=11 ) { flag++; flag%=4; flag+=8; }

if (flag=12 flag=15 ) { flag++; flag%=4; flag+=12; }

if ( flag=16 flag=19 ) { flag++; flag%=4; flag+=16; } }

}

if (key==32) //按空格键，暂停

{ prfk( ); while(1) { if (getch( )==32) { clfk( );break;} } } //再按空格键，继续游戏

if (ifmov( )==0) { x=Tb; flag=Tc; } //如果不可动，撤销上面操作

else { prfk( ); Sleep(speed); clfk( ); Tb=x;Tc=flag;} //如果可动，执行操作

}

int ifmov( ) //判断能否移动

{ if (a[x][y]!=0) { return 0; } //方块中心处有图案返回0，不可移动

else{ if ( (flag==1 ( a[x][ y-1]==0 a[x+2][y-1]==0 a[x+2][y]==0 ) ) ||

(flag==2 ( a[x-2][y]==0 a[x+2][y]==0 a[x+4][y]==0 ) ) ||

(flag==3 ( a[x][y-1]==0 a[x][y-2]==0 a[x][y+1]==0 ) ) ||

(flag==4 ( a[x-2][y]==0 a[x+2][y]==0 a[x][y+1]==0 ) ) ||

(flag==5 ( a[x][y-1]==0 a[x][y+1]==0 a[x-2][y]==0 ) ) ||

(flag==6 ( a[x][ y-1]==0 a[x-2][y]==0 a[x+2][y]==0 ) ) ||

(flag==7 ( a[x][y-1]==0 a[x][y+1]==0 a[x+2][y]==0 ) ) ||

(flag==8 ( a[x][y+1]==0 a[x-2][y]==0 a[x+2][y+1]==0 ) ) ||

(flag==9 ( a[x][y-1]==0 a[x-2][y]==0 a[x-2][y+1]==0 ) ) ||

(flag==10 ( a[x][y-1]==0 a[x-2][y-1]==0 a[x+2][y]==0 ) ) ||

(flag==11 ( a[x][y+1]==0 a[x+2][y-1]==0 a[x+2][y]==0 ) ) ||

(flag==12 ( a[x][y-1]==0 a[x][y+1]==0 a[x-2][y-1]==0 ) ) ||

( flag==13 ( a[x-2][y]==0 a[x+2][y-1]==0 a[x+2][y]==0 ) ) ||

( flag==14 ( a[x][y-1]==0 a[x][y+1]==0 a[x+2][y+1]==0 ) ) ||

(flag==15 ( a[x-2][y]==0 a[x-2][y+1]==0 a[x+2][y]==0 ) ) ||

(flag==16 ( a[x][y+1]==0 a[x][y-1]==0 a[x+2][y-1]==0 ) ) ||

( flag==17 ( a[x-2][y]==0 a[x+2][y+1]==0 a[x+2][y]==0 ) ) ||

(flag==18 ( a[x][y-1]==0 a[x][y+1]==0 a[x-2][y+1]==0 ) ) ||

(flag==19 ( a[x-2][y]==0 a[x-2][y-1]==0

a[x+2][y]==0 ) ) ) { return 1; }

}

return 0; //其它情况返回0

}

void clNEXT( ) //清除框外的NEXT方块

{ flag = next; x=ZL+WID+6; y=ZL+10; clfk( ); }

void clHA( ) //清除满行的方块

{ int k, Hang=0; //k是某行方块个数, Hang是删除的方块行数

for(j=ZL+HEI-1;j=ZL+1;j--) //当某行有WID/2-2个方块时，则为满行

{ k=0; for(i=ZL+2;iZL+WID-2;i+=2)

{ if (a[i][j]==1) //竖坐标从下往上，横坐标由左至右依次判断是否满行

{ k++; //下面将操作删除行

if (k==WID/2-2) { for(k=ZL+2;kZL+WID-2;k+=2)

{ a[k][j]=0; gtxy(k,j); printf(" "); Sleep(1); }

for(k=j-1;kZL;k--)

{ for(i=ZL+2;iZL+WID-2;i+=2) //已删行数上面有方块，先清除再全部下移一行

{ if(a[i][k]==1) { a[i][k]=0; gtxy(i,k); printf(" ");a[i][k+1]=1;

gtxy(i,k+1); printf("□"); } }

}

j++; //方块下移后，重新判断删除行是否满行

Hang++; //记录删除方块的行数

}

score+=100*Hang; //每删除一行，得100分

if ( Hang0 (score%500==0 || score/500 level-1 ) ) //得分满500速度加快升一级

{ speed-=20; level++; if(speed200)speed+=20; }

}

dev C++俄罗斯方块

1，看看，编译要求的路径，头文件及资源和绝对路径和相对路径对不？文件尽量放在英文的目录下。2，看编译过程中的提示，是不是会有一些第三方的资源代码需要编译进来，按提示的信息查找，然后编译。3，先查错误，再查警告；一个个的来，一定可以编译通过的。。　：）

求C语言俄罗斯方块代码