51单片机俄罗斯方块游戏+Proteus在线模拟仿真

51单片机俄罗斯方块游戏+Proteus在线模拟仿真

---

• Proteus在线模拟仿真
  

主程序代码

//--------------------------------------------------------------------------//
//--------------------------------------------------------------------------//
// 1、功能完整，直接使用 //
// 2、模块独立性强，移植方便，外部仅init和move函数，修改显示和输入即可 //
// 3、对减少内存占用、尽量减少屏幕操作进行适当优化 //
// 4、新方块生成高度随机，绝对无规律 //
// 5、仿真环境为Keil+Proteus6.5,可以联机也可脱机运行 //
// CODE SIZE = 1845 ---- //
// CONSTANT SIZE = 326 ---- //
// DATA SIZE = 16 19 //
// IDATA SIZE = 50 ---- //
// BIT SIZE = 1 1 //
//--------------------------------------------------------------------------//
#include <stdlib.h>
#include "xwj\_lcd16.h" // 字符液晶控制函数声明 //
#include "xwj\_lcd6963.h" // T6963C 公用函数
#include "xwj\_hlkey.h" // P1口行列式键盘 //
#include "xwj\_serial.h" //串口函数集
#include "change.h" //数制转换
#include "xwj\_fk.h" //俄罗斯方块程序

#define ulong unsigned long
#define uint unsigned int
#define uchar unsigned char

extern void delay(unsigned int x);
//----------------俄罗斯方块内部函数----------------------------------------//
void fk\_dot(uchar x,uchar y);		//显示1个方块点
void fk\_cldot(uchar x,uchar y);		//清除1个方块点
void fk\_show(void);					//显示分数
void fk\_reffk(void);				//刷新方块
void fk\_refnew(void);				//刷新预览方块
void fk\_refline(yy);				//刷新1行背景
bit  fk\_chk(void);					//冲突检查
void fk\_new(void);					//产生新方块
void fk\_add(void);					//方块合并

/\*
//-----------------俄罗斯方块公用函数--------------------------------------//
void fk\_init(void); //方块初始化
void fk\_move(unsigned char mode); //移动方块
\*/

//-------------------------------------------------------------------------//
#define FULLMAP 0x0fff /\*掩码\*/
#define LINEGUAN 20 /\*20行过一关\*/
#define NEWX 15 /\*预览方块X位置\*/
#define NEWY 12 /\*预览方块Y位置\*/
#define LINEMAX 21 /\*屏幕最高21行\*/
uint idata fk_map[LINEMAX+4];		//背景映象
uchar  fk_x,fk_y,fk_r;				//方块左右、高度、方向
uchar fk_type;						//方块形状
uchar  fk_oldx,fk_oldy,fk_oldr;		//方块上次左右、高度、方向
uchar  fk_newtype,fk_newr;			//新方块形状、方向
uint score;							//总分
uint line;							//总行数 
uchar speed;						//速度
uchar moven;						//速度相关计数器
uchar automapn;						//随机方块的行数
bit fk_run;							//俄罗斯方坑蜗吩诵?
	
uchar code fk_mod[][4][4]={			//方块模型号,4个方向,4行
	0,0,7,2,0,1,3,1,0,0,2,7,0,2,3,2,	//\_|\_
	0,0,6,3,0,1,3,2,0,0,6,3,0,1,3,2,	//\_|~
	0,0,3,6,0,2,3,1,0,0,3,6,0,2,3,1,	//~|\_
	0,0,7,4,0,3,1,1,0,0,1,7,0,2,2,3,	//|\_\_
	0,0,7,1,0,1,1,3,0,0,4,7,0,3,2,2,	//\_\_|
	0,0,0,15,1,1,1,1,0,0,0,15,1,1,1,1,	//\_\_\_\_
	0,0,3,3,0,0,3,3,0,0,3,3,0,0,3,3,	//田字
};

uchar code strmap[4][9]={
	"不错！ ","真棒！ ","好极啦！","太棒了！",
};

//--------------------------------------------------------------------------//
void fk\_dot(uchar x,uchar y)		//显示1个方块点
{
	printat(x\*3+1, 241-(y-4)\*12,"■");
}

//--------------------------------------------------------------------------//
void fk\_cldot(uchar x,uchar y)		//清除1个方块点
{
// printat(x\*3+1, 241-(y-4)\*12,"□");
	printat(x\*3+1, 241-(y-4)\*12,"┘");
}

//--------------------------------------------------------------------------//
void fk\_show(void)					//显示分数
{
	printat(50, 12,chnint(score,1));
	printat(60, 12,"00");
	printat(40, 12,"得分:");
	printat(54,36,chnint(line,1));
	printat(40, 36,"行数:");
	printat(54,60,chnchar(speed,1));
	printat(40,60,"速度:");
	printat(54,84,chnchar(automapn,1));
	printat(40,84,"关数:");		
}

//--------------------------------------------------------------------------//
void fk\_reffk(void)					//刷新方块
{
	uchar i,j;
	uchar temp;
	//----------------------------------------------//清除原来的方块
	for (i=0;i<4;i++)
	{
		temp=(fk_mod[fk_type][fk_oldr][i]);
		for (j=fk_oldx;j<fk_oldx+4;j++)
		{
			if(temp&0x01)
			{
				fk\_cldot(j,fk_oldy+i);
			}
			temp>>=1;
		}
	}
	//----------------------------------------------//显示新的方块
	for (i=0;i<4;i++)
	{
		temp=(fk_mod[fk_type][fk_r][i]);
		for (j=fk_x;j<fk_x+4;j++)
		{
			if(temp&0x01)
			{
				fk\_dot(j,fk_y+i);
			}
			temp>>=1;
		}
	}
	fk_oldx=fk_x;fk_oldy=fk_y;fk_oldr=fk_r;	//保存新方块位置
}

//--------------------------------------------------------------------------//
void fk\_refnew(void)				//刷新预览方块
{
	uchar i,j;
	uchar temp;
	//----------------------------------------------//预览方块
	for (i=0;i<4;i++)
	{
		temp=(fk_mod[fk_newtype][fk_newr][i]);
		for (j=NEWX;j<NEWX+4;j++)
		{
			if(temp&0x01)
			{
				fk\_dot(j,NEWY+i);
			}
			else
			{
				fk\_cldot(j,NEWY+i);
			}
			temp>>=1;
		}
	}
}

//--------------------------------------------------------------------------//
void fk\_refline(yy)					//刷新1行背景
{
	uchar i;
	uint temp;
	if (yy>=4)
	{
		temp=fk_map[yy];
		for (i=0;i<12;i++)
		{
			if ((temp&0x01) !=0)
				fk\_dot(i,yy);
			else
				fk\_cldot(i,yy);
			temp >>= 1;
		}
	}
}

//--------------------------------------------------------------------------//
bit fk\_chk(void)					//冲突检查
{
	uchar i;
	bit neq=0;
	for (i=0;i<4;i++)
	{
		if ( (((fk_mod[fk_type][fk_r][i])<<fk_x)+(fk_map[fk_y+i])) != (((fk_mod[fk_type][fk_r][i])<<fk_x)|(fk_map[fk_y+i])) )
			neq=1;
	}
	return(neq);
}

//--------------------------------------------------------------------------//
void fk\_new(void)						//产生新方块
{
	srand(rand()+fk_x+fk_y+fk_r);
	fk_oldx=fk_x=5;
	fk_oldy=fk_y=LINEMAX;
    fk_type = fk_newtype;
	fk_oldr=fk_newr;
    fk_newtype = rand()%7;
	fk_newr=rand()%4;
	fk\_refnew();			//刷新预览方块
	if (fk_run)
		fk\_reffk();	//刷新显示
}

//--------------------------------------------------------------------------//
void fk\_add(void)					//方块合并
{
	uchar i,j;
	uchar full=0x00;
	uchar fulltemp;
	uchar fullline=0x00;
	for (i=0;i<4;i++)	//方块合并
	{
		fk_map[fk_y+i] |= (fk_mod[fk_type][fk_r][i])<<fk_x;
		full <<= 1;
		if ((fk_y+i >= 4) && (fk_map[fk_y+i] == 0xffff))		//满行
		{
			full |= 0x01;
		}
	}
	if (full != 0)		//有满行
	{
		for (j=0;j<3;j++)		//消行闪烁3次
		{
			delay(300);
			fulltemp=full;
			for (i=0;i<4;i++)	//4行
			{
				if ((fulltemp&0x08) != 0)
				{
					fk_map[fk_y+i] ^= FULLMAP;
				}
				fk\_refline(fk_y+i);
				fulltemp <<= 1;
			}
		}
		fulltemp=full;
		for (i=fk_y;i<LINEMAX+4+fullline;i++)	//上面行下移
		{
			if ((i < LINEMAX+4)&&(fk_map[i-fullline]!=fk_map[i]))
			{
				fk_map[i-fullline]=fk_map[i];
				fk\_refline(i-fullline);
			}
			if ((i >= LINEMAX+4)&&(fk_map[i-fullline]!=~FULLMAP))
			{
				fk_map[i-fullline]=~FULLMAP;	//背景映象
				fk\_refline(i-fullline);
			}
			if ((fulltemp&0x08) != 0)
			{
				fullline++;
			}
			fulltemp <<= 1;
		}
		if (((line+fullline)/LINEGUAN) != (line/LINEGUAN))//每20行速度+1
			speed ++;
		line += fullline;				//更新分数、行数
		score += (1<<fullline)-1;
		printat(46,180,strmap[fullline-1]);	//夸奖
		fk\_show();						//显示分数
		fk\_new();			//产生新方块
	}
	else
	{
		if (fk_y > LINEMAX-10)	//在最高位置碰撞且不能消行则游戏结束
			printat(46,180,"加油啊！");		//加油啊
		if (fk_y > LINEMAX-6)	//在最高位置碰撞且不能消行则游戏结束
			printat(46,180,"糟糕了！");		//糟糕了

		if (fk_y==LINEMAX)		//在最高位置碰撞且不能消行则游戏结束
			fk_run=0;	//方块初始化
		else
			fk\_new();	//产生新方块
	}
}

//--------------------------------------------------------------------------//
void fk\_init(void)					//方块初始化
{
	uchar i;
	fk_run = 0;
	moven=0;
	Lcd6963Cls();
	Lcd6963Rec(0,0,152,255);
	Lcd6963ChHz(0);					//切换到16X16点阵
	printat(2, 16,"欢迎光临文君阁");
	printat(2, 48,"请按键选择：");
	printat(2, 80,"-----------------");
	printat(2, 96,"7左旋 8右旋 9右旋");
	printat(2, 112,"4左移 5右旋 6右移");
	printat(2, 128,"4速度 5开始 6关数");
	printat(2, 144,"1左移 2下移 3右移");
	printat(2, 160,"-----------------");
	Lcd6963ChHz(1);					//切换到12X12点阵
	printat(46,180,"欢迎使用");
	fk\_show();						//显示分数
	while (~fk_run)
	{
		fk\_move();					//等待设置速度关数开始
		delay(10);
	}
	for (i=0;i<4;i++)
	{
		fk_map[i]=0xffff;	//背景映象
	}	delay(3000);
	for (i=4;i<LINEMAX+4;i++)
	{
		if (i<(automapn+4))
			fk_map[i]=rand()-1|~FULLMAP; //背景映象
		else
			fk_map[i]=~FULLMAP;		//背景映象
		fk\_refline(i);				//刷新1行背景
	}
	fk\_show();						//显示分数
// fk\_new(); //产生新方块
}   

//--------------------------------------------------------------------------//
void fk\_move(void)						//移动方块
{
	unsigned char temp;
	if(KeyTest())					//检查有无按键
	{
		putinbuf(KeyGetCode());		//按键码输入接收缓冲区
	}
	if (checkin())
	{
		temp=getbyte();
		if (temp!=0) Lcd16WrCharhh(12,0,temp);
		if (temp!=0) Lcd16WrChar(15,0,temp);
		putchar(temp);
	}
	else
		temp=0xff;					//无键设为无效键用于下移方块
	temp -= '0';
	switch(temp)
	{
	default:
		if (--moven)				//游戏难度
			break;
		else
		{
			moven=(252>>speed)+2;
		}
	case 2:		//下移
		if (fk_run)					//游戏中下移
		{
			if(fk_y>0)
			{
				fk_y--;
				if(fk\_chk())
				{
					fk_y++;		//有冲突取消操作,执行碰撞组合
					fk\_add();	//方块合并 //产生新方块
				}
			}
			else				//方块到底也执行碰撞组合
			{
				fk\_add();		//方块合并
			}
		}
		else						//初始化时
		{
			fk\_new();				//产生新方块
		}
		break;
	case 0:		//下移到底
		while((fk_y>0)&&~(fk\_chk())) //一直下移直到冲突
		{
			fk_y--;
		}
		moven=1;
		fk_y++;				//恢复到未冲突位置
		break;
	case 3:		//右移
	case 6:		//右移
		if (fk_run)					//游戏中右移
		{
			if(fk_x<12)
			{
				fk_x++;
				if(fk\_chk())
					fk_x--;//有冲突取消操作
			}
		}
		else							//初始化时
		{
			automapn++;
			automapn &= 0x0f;
			fk\_show();					//显示分数
		}
		break;
	case 1:		//左移
	case 4:		//移
		if (fk_run)						//游戏中左移
		{
			if(fk_x>0)
			{
				fk_x--;
				if(fk\_chk())
					fk_x++;//有冲突取消操作
			}
		}
		else							//初始化时
		{
			speed++;
			speed &= 0x07;
			fk\_show();					//显示分数
		}
		break;
	case 9:		//右转
	case 8:		//右转
	case 5:		//右转
		if (fk_run)						//游戏中右转
		{
			fk_r++;
			if(fk\_chk())
				fk_r--;					//有冲突取消操作
			fk_r &= 0x03;
		}
		else							//初始化时
		{
			fk_run = 1;
		}
		break;
	case 7:		//左转
		if (fk_run)						//游戏中右转
		{
			fk_r--;
			if(fk\_chk())
				fk_r++;				//有冲突取消操作
			fk_r &= 0x03;
		}
		else							//初始化时
		{
			fk_run = 1;
		}
		break;
	}
	if((fk_run)&& ((fk_x!=fk_oldx)||(fk_y!=fk_oldy)||(fk_r!=fk_oldr)) )
	{
		fk\_reffk();	//刷新显示
	}
	rand();
}

/\*
// ---------------------------------------------- // 32字节
void delay(uint x)
{
 uint i,j;
 for (i=0; i<x;i++) {
 for (j=0;j<102; j++) ;
 }
}

//--------------------------------------------------------------------------//
void main(void) // 测试用
{
 serial\_init();
 Lcd6963Init(); //Lcd6963复位
 Lcd16Reset(); //Lcd16复位
 Serial\_main(); // 串口测试用主函数 
 Lcd16main(); //Lcd16临时测试主程序
 Lcd6963main(); //Lcd6963测试用
 fk\_init(); //方块初始化
 while(1)
 {
 if (~fk\_run)
 fk\_init(); //方块初始化
 fk\_move(); //移动方块
 delay(10);
 }
}
\*/

程序源码仿真资源

链接：https://pan.baidu.com/s/1n0UVwkvjbbmPEpE1RfHcEw 
提取码：x301