51單片機+LCD12864做的貪食蛇和俄羅斯方塊小游戲分享

ID:128771 · 發表于 2016-7-7 04:52

貪食蛇和俄羅斯方塊的單片機制作

//12864并行接口參考程序，控制器st7920
#include "reg52.h"
#include "Lcd12864.h"
#include "Key.h"
#define uchar unsigned char
#define uint unsigned int
static unsigned long Seed = 1;
#define A 48271L
#define M 2147483647L
#define Q (M / A)
#define R (M % A)
/************************************
偽隨機數發生器
*************************************/
double Random(void)
{
long TmpSeed;
TmpSeed=A*(Seed%Q)-R*(Seed/Q);
if(TmpSeed>=0)
Seed=TmpSeed;
else
Seed=TmpSeed+M;
return (double)Seed/M;
}
/**************************************
為偽隨機數發生器播種
***************************************/
void InitRandom(unsigned long InitVal)
{
Seed=InitVal;
}
//延時子程序
void Delay(unsigned int t)
{
unsigned int i,j;
for(i=0;i<t;i++)
for(j=0;j<10;j++);
}
#define LGOU 0
#define RGOU 1
#define RZ 2
#define LZ 3
#define T 4
#define GUN 5
#define BOX 6
unsigned int idata num[19+2]={
0xfff,//第1行，最下面
0x801,0x801,0x801,0x801,0x801,0x801,0x801,0x801,0x801,0x801,
0x801,0x801,0x801,0x801,0x801,0x801,0x801,0x801,0x801,//第2行到第20行共19行
0xfff//第21行，最上面
};//定義共21行，其中num[0]為下墻壁行，num[20]為上墻壁行,每行12格，最左一格為左墻壁列，最右一格為右墻壁列
unsigned char code Block[28][2]={
/*
* 口口口口口口
* 口口口口
* 口口口口口口
*/
{0x88,0xc0},{0xe8,0x00},{0x62,0x20},{0x02,0xe0},
/*
* 口口口口口口
* 口口口口
* 口口口口口口
*/
{0x22,0x60},{0x08,0xe0},{0xc8,0x80},{0xe2,0x00},
/*
* 口
* 口口口口
* 口口口
*/
{0x8c,0x40},{0x6c,0x00},{0x8c,0x40},{0x6c,0x00},
/*
* 口口口
* 口口口口
* 口
*/
{0x4c,0x80},{0xc6,0x00},{0x4c,0x80},{0xc6,0x00},
/*
* 口口
* 口口口口口口口口
* 口口口口口口
*/
{0x04,0xe0},{0x8c,0x80},{0xe4,0x00},{0x26,0x20},
/*口
* 口
* 口口口口口
* 口
*/
{0x44,0x44},{0x0f,0x00},{0x44,0x44},{0x0f,0x00},
/*
* 口口
* 口口
*/
{0x06,0x60},{0x06,0x60},{0x06,0x60},{0x06,0x60}
};
#define PASSSCORE 20
struct Jimu
{
unsigned int dat;
char x;
unsigned char y;
unsigned char type;
unsigned char change;
}Sign[3];//積木結構體
unsigned char SysFlag=0;
#define NEWSIGNFLAG 0
#define DEADFLAG 1
#define PAUSEFLAG 2
unsigned char Score=0;
unsigned char Level=1;
unsigned char DelayCnt=5;
unsigned char KeyBuffer=0;
#define RESEVER 1
#define CHANGE 2
#define DOWN 3
#define LEFT 4
#define RIGHT 5
#define PAUSE 6
/*********************************
初始化MPU
**********************************/
void InitCpu(void)
{
TMOD=0x0;
TH0=0;
TL0=0;
TR0=1;
ET0=1;
EA=1;
}
/*****************************
定時中斷服務子程序
******************************/
void Timer0Int(void) interrupt 1
{
switch(OSReadKey())
{
case 9:
KeyBuffer=PAUSE;
break;
case 13:
KeyBuffer=CHANGE;
break;
case 17:
KeyBuffer=DOWN;
break;
case 21:
KeyBuffer=RIGHT;
break;
case 25:
KeyBuffer=LEFT;
break;
default:
break;
}
}
/******************************
畫墻壁，初始化界面
*******************************/
void DrawBoard(void)
{
unsigned char n;
for(n=0;n<12;n++)
{
Lcd_Rectangle(3*n,0,3*n+2,2,1);
Lcd_Rectangle(3*n,60,3*n+2,62,1);
}
for(n=0;n<20;n++)
{
Lcd_Rectangle(0,3*n,2,3*n+2,1);
Lcd_Rectangle(33,3*n,35,3*n+2,1);
}
Lcd_WriteStr(4,0,"TOTO原創");
Lcd_WriteStr(3,2,"Score:");
Lcd_WriteStr(3,3,"Level:");
}
/***********************************
游戲結束處理
************************************/
void GameOver(void)
{
if((SysFlag&(1<<deadflag))!=0)
Lcd_WriteStr(3,1,"You Fail");
else
Lcd_WriteStr(3,1,"You Pass");
}
unsigned int code MaskTab[16]={
0x0001,0x0002,0x0004,0x0008,0x0010,0x0020,0x0040,0x0080,
0x0100,0x0200,0x0400,0x0800,0x1000,0x2000,0x4000,0x8000
};
/**********************************
根據積木圖標左下坐標X，Y來畫出積木圖標
***********************************/
void DrawSign(struct Jimu Temp,unsigned char DrawMode)
{
unsigned char m,n;
for(m=0;m<4;m++)
for(n=0;n<4;n++)
{
if((Temp.dat&MaskTab[4*m+n])!=0)
Lcd_Rectangle(Temp.x+n*3,Temp.y-2-3*m,Temp.x+n*3+2,Temp.y-3*m,DrawMode);
}
}
/********************************
將積木圖標值融入num數據中
也即把積木圖標固定，無法再下降
*********************************/
FixSign(void)
{
unsigned char m,n;
for(m=0;m<4;m++)//行循環
for(n=0;n<4;n++)//列循環
{
if((Sign[0].dat&MaskTab[4*m+n])!=0)
{
num[20-(Sign[0].y-2)/3+m]|=MaskTab[11-Sign[0].x/3-n];
}
}
}
/********************************
判斷積木圖標中方塊是否與障礙方塊重合
*********************************/
unsigned char CheckIf(void)
{
unsigned char m,n;
for(m=0;m<4;m++)//行循環
for(n=0;n<4;n++)//列循環
{
if((Sign[1].dat&MaskTab[4*m+n])!=0)
{
if((num[20-(Sign[1].y-2)/3+m]&MaskTab[11-Sign[1].x/3-n])!=0)
return 0;
}
}
return 1;
}
/********************************
判斷積木圖標是否可以繼續下降一格
********************************/
unsigned char CheckIfDown(void)
{
Sign[1]=Sign[0];//
Sign[1].y+=3;//假設下降一格
return CheckIf();
}
/********************************
判斷積木圖標是否可以向左移動
*********************************/
unsigned char CheckIfLeft(void)
{
Sign[1]=Sign[0];
Sign[1].x-=3;
return CheckIf();
}
/********************************
判斷積木圖標是否可以向右移動
*********************************/
unsigned char CheckIfRight(void)
{
Sign[1]=Sign[0];
Sign[1].x+=3;
return CheckIf();
}
/********************************
判斷是否可以旋轉
*********************************/
unsigned char CheckIfRoll(void)
{
unsigned char i;
unsigned int Temp;
Sign[1]=Sign[0];
if(++Sign[1].change>3)
Sign[1].change=0;
i=Sign[1].type*4+Sign[1].change;
Temp=(unsigned int)Block[i][0]<<8;
Temp=Temp|Block[i][1];
Sign[1].dat=Temp;
return CheckIf();
}
/********************************
尋找滿格的行并做消除處理
最多尋找4個滿行并做消除
*********************************/
void DelFull(void)
{
unsigned char m,n;
unsigned char Temp;
unsigned char Flag=0;
Temp=(Sign[0].y-2)/3;
if(Temp>=20)//防止越過了下邊界
Temp=1;
else
Temp=20-Temp;
for(n=Temp+3;n>=Temp;n--)//積木圖標的最頂行開始尋找滿行比較有利于運算
{
if(num[n]==0xfff)
{
Flag=1;
for(m=n+1;m<=19;m++)
{
num[m-1]=num[m];
}
num[m]=0x801;
Score++;//每找到一個滿行，則分數加1
}
}
if(Flag)//為加速而設置并判斷的標志，有已固定的積木有滿格消行變化則重畫積木界面
{
for(m=Temp;m<=19;m++)//為加速，不必要重第一行重畫起，只需要從積木圖標最下行開始往上的重畫
for(n=1;n<=10;n++)
{
if((num[m]&MaskTab[n])==0)
{
if(Lcd_ReadPixel(30-(n-1)*3,57-(m-1)*3)!=0)//為加速而做的讀象素操作
{
Lcd_Rectangle(30-(n-1)*3,57-(m-1)*3,30-(n-1)*3+2,57-(m-1)*3+2,0);
}
}
else
{
if(Lcd_ReadPixel(30-(n-1)*3,57-(m-1)*3)==0)//為加速而做的讀象素操作
{
Lcd_Rectangle(30-(n-1)*3,57-(m-1)*3,30-(n-1)*3+2,57-(m-1)*3+2,1);
}
}
}
}
}
/*******************************
隨機產生一個積木圖標放到預產生區域并顯示出來
********************************/
void CreatSign(void)
{
unsigned char n;
unsigned int Temp;
DrawSign(Sign[2],0);//先清除
n=Random()*28;
Temp=(unsigned int)Block[n][0]<<8;
Temp=Temp|Block[n][1];
Sign[2].dat=Temp;
Sign[2].x=45;
Sign[2].y=4*3+2;
Sign[2].type=n/4;
Sign[2].change=n%4;
DrawSign(Sign[2],1);//后畫出
}
void PrintScore(void)
{
unsigned char Str[3];
Str[0]=(Score/10)|0x30;
Str[1]=(Score%10)|0x30;
Str[2]=0;
Lcd_WriteStr(6,2,Str);
}
void PrintLevel(void)
{
unsigned char Str[3];
Str[0]=(Level/10)|0x30;
Str[1]=(Level%10)|0x30;
Str[2]=0;
Lcd_WriteStr(6,3,Str);
}
/********************************
游戲的具體過程，也是貪吃蛇算法的關鍵部分
*********************************/
void GamePlay(void)
{
unsigned char m,n;
unsigned int Temp;
SysFlag|=1<<newsignflag; 剛開始初始化為需要產生新的積木圖標
InitRandom(TL0);
Lcd_WriteStr(3,1,"Playing");
PrintScore();
PrintLevel();
CreatSign();
while(1)
{
if((SysFlag&(1<<newsignflag))==1) 判是否需要產生新的積木圖標
{
SysFlag&=~(1<<newsignflag);
Sign[0]=Sign[2];
CreatSign();
Sign[0].x=12;
Sign[0].y=14;
for(m=0;m<4;m++)//行循環
{
for(n=0;n<4;n++)//列循環
{
if((Sign[0].dat&MaskTab[15-m*4-n])==0)
break;
}
if(n==4)
Sign[0].y-=3;
}//將積木圖標出現置頂
for(m=0;m<4;m++)//行循環
for(n=0;n<4;n++)//列循環
{
if((Sign[0].dat&MaskTab[4*m+n])!=0)
{
if((num[20-(Sign[0].y-2)/3+m]&MaskTab[11-Sign[0].x/3-n])!=0)
SysFlag|=1<<deadflag;
}
}
if((SysFlag&(1<<deadflag))!=0)
break;//如果產生新的積木圖標中的方塊與已固定好的方塊重合，則死亡。游戲結束
DrawSign(Sign[0],1);
}
switch(KeyBuffer)
{
case LEFT:
KeyBuffer=0;
if((SysFlag&(1<<pauseflag))==0)
{
if(CheckIfLeft())
{
DrawSign(Sign[0],0);
Sign[0].x-=3;
DrawSign(Sign[0],1);
}
}
else
{
if(++Level>=10)
Level=1;
PrintLevel();
}
break;
case RIGHT:
KeyBuffer=0;
if((SysFlag&(1<<pauseflag))==0)
{
if(CheckIfRight())
{
DrawSign(Sign[0],0);
Sign[0].x+=3;
DrawSign(Sign[0],1);
}
}
else
{
if(++Level>=10)
Level=1;
PrintLevel();
}
break;
case DOWN:
KeyBuffer=0;
if((SysFlag&(1<<pauseflag))==0)
{
if(CheckIfDown())//判斷是否能繼續下降一格
{
DrawSign(Sign[0],0);
Sign[0].y+=3;
DrawSign(Sign[0],1);
}
}
break;
case CHANGE:
KeyBuffer=0;
if((SysFlag&(1<<pauseflag))==0)
{
if(CheckIfRoll())
{
DrawSign(Sign[0],0);
if(++Sign[0].change>3)
Sign[0].change=0;
m=Sign[0].type*4+Sign[0].change;
Temp=(unsigned int)Block[m][0]<<8;
Temp=Temp|Block[m][1];
Sign[0].dat=Temp;
DrawSign(Sign[0],1);
}
}
break;
case PAUSE:
KeyBuffer=0;
SysFlag^=1<<pauseflag;
if((SysFlag&(1<<pauseflag))==0)
{
Lcd_WriteStr(3,1," ");
Lcd_WriteStr(3,1,"Playing");
}
else
{
Lcd_WriteStr(3,1," ");
Lcd_WriteStr(3,1,"Pause");
}
break;
default:
break;
}
if((SysFlag&(1<<pauseflag))!=0)
continue;
Delay(500);
if(++DelayCnt>=2*(11-Level))
{
DelayCnt=0;
if(CheckIfDown())//判斷是否能繼續下降一格
{
DrawSign(Sign[0],0);
Sign[0].y+=3;
DrawSign(Sign[0],1);
}
else
{
FixSign();
DelFull();
PrintScore();
if(Score>=PASSSCORE)
{
SysFlag&=~(1<<deadflag);
break;//跳出玩游戲過程
}
SysFlag|=1<<newsignflag; 新的積木圖標產生標志置1
}
}
}
}
void Main()
{
InitCpu();//初始化CPU
Lcd_Reset(); //初始化LCD屏
Lcd_Clear(0);//清屏
DrawBoard();//畫界面
GamePlay();//玩游戲
GameOver();//游戲結束
while(1);//要想重玩，只能重啟，可繼續完善該游戲
}

復制代碼

#include "REG52.H"
#include "Key.h"
#define OS_LONG_KEY_EN 1//如果應用中需要處理長按鍵動作，則定義為1，否則定義為0（如果應用中不需要處理長按動作，則建議定義為0，以節省代碼空間）
/***********************************************
功能說明：按鍵驅動掃描
入口參數：無
出口參數：掃描一次鍵盤以獲得按鍵句柄
注：交OSReadKey（）函數調用
需要根據實際硬件的鍵盤接口修改
***********************************************/
unsigned char OSScanKey(void)
{
unsigned char Temp;
unsigned char i;
P2=0xff;
Temp=P1;
for(i=0;i<8;i++)
{
if((Temp&(1<<i))==0)
break;
}
if(i<8)
return i+1;
else
return 0;
}
/**********************************************
功能說明：讀取按鍵動作
入口參數：無
出口參數：返回按鍵動作
注：沒有按鍵動作，則返回0，1號按鍵動作，返回1-4
2號按鍵動作，返回5-8，如此類推
返回1、5、..：確認短按按下
返回2、6、..：確認長按按下
返回3、7、..：確認短按松開
返回4、8、..：確認長按松開
***********************************************/
unsigned char OSReadKey(void)
{
static unsigned char KeyEventCnt=0;
static unsigned char KeySampleCnt=0;
static unsigned char KeyBuffer=0;
#define SHORT_ON_DITHERING_COUNTER 3//定義短按按下去抖時間
#define SHORT_OFF_DITHERING_COUNTER 3//定義短按松開去抖時間，一般與短按按下去抖時間相同
#if OS_LONG_KEY_EN>0
static unsigned int LongKeySampleCnt=0;
#define LONG_ON_DITHERING_COUNTER 250//定義長按按下確認需要的時間，如果是每1MS調用一次OSReadKey()，則1000意味著這個時間為1S
#define LONG_OFF_DITHERING_COUNTER 3//定義長按松開去抖時間，一般和短按去抖時間相同
#endif
unsigned char KeyTemp;
KeyTemp=OSScanKey();
switch(KeyEventCnt)
{
case 0:
if(KeyTemp!=0)
{
KeySampleCnt=0;
KeyBuffer=KeyTemp;
KeyEventCnt=1;
}
return 0;//no key on,return 0
break;
#if OS_LONG_KEY_EN>0
case 1:
if(KeyTemp!=KeyBuffer)
{
KeyEventCnt=0;
return 0;//is dithering,return 0
}
else
{
if(++KeySampleCnt>SHORT_ON_DITHERING_COUNTER)
{
KeySampleCnt=0;
KeyEventCnt=2;
LongKeySampleCnt=0;
return ((KeyBuffer-1)<<2)+1;//sure that key on,return (KeyBuffer-1)<<2+1
}
else
return 0;//not sure that key on,return 0
}
break;
case 2:
if(++LongKeySampleCnt>LONG_ON_DITHERING_COUNTER)
{
KeySampleCnt=0;
KeyEventCnt=3;
return ((KeyBuffer-1)<<2)+2; //sure that key long on,return (KeyBuffer-1)<<2+2
}
else
{
if(KeyTemp!=KeyBuffer)
{
if(++KeySampleCnt>SHORT_OFF_DITHERING_COUNTER)
{
KeyEventCnt=0;
return ((KeyBuffer-1)<<2)+3;//after short on to off,(KeyBuffer-1)<<2+3
}
else
return 0;
}
else
{
KeySampleCnt=0;
return 0;
}
}
break;
case 3:
if(KeyTemp!=KeyBuffer)
{
if(++KeySampleCnt>LONG_OFF_DITHERING_COUNTER)
{
KeyEventCnt=0;
return ((KeyBuffer-1)<<2)+4; //after long key on turn to off,(KeyBuffer-1)<<2+4
}
else
return 0;
}
else
{
KeySampleCnt=0;
return 0;
}
break;
#else
case 1:
if(KeyTemp!=KeyBuffer)
{
KeyEventCnt=0;
return 0;//is dithering,return 0
}
else
{
if(++KeySampleCnt>=SHORT_ON_DITHERING_COUNTER)
{
KeySampleCnt=0;
KeyEventCnt=2;
return ((KeyBuffer-1)<<2)+1;//sure that key on,return (KeyBuffer-1)<<2+1
}
else
return 0;//not sure that key on,return 0
}
break;
case 2:
if(KeyTemp!=KeyBuffer)
{
if(++KeySampleCnt>=SHORT_OFF_DITHERING_COUNTER)
{
KeyEventCnt=0;
return ((KeyBuffer-1)<<2)+3;//after short on to off,(KeyBuffer-1)<<2+3
}
else
return 0;
}
else
{
KeySampleCnt=0;
return 0;
}
break;
#endif
default:break;
}
return 0;
}
/***************************************************************/

復制代碼

ID:138839 · 發表于 2016-9-10 13:39

有電路圖嗎

ID:102679 · 發表于 2017-2-4 11:47

存了，慢慢研究

ID:65680 · 發表于 2017-5-1 15:41

額額，沒有電路圖啊，有些地方表示不知道怎么回事啊

ID:217401 · 發表于 2017-7-5 20:15

有電路圖嗎，樓主

ID:234190 · 發表于 2017-10-20 10:37

按鍵怎么定義啊？接口怎么修改？

ID:250045 · 發表于 2017-11-16 15:00

很好的程序，剛好有用！

ID:59202 · 發表于 2017-11-30 18:08

不錯的程序，學習一下啊

ID:227030 · 發表于 2017-12-3 17:16

按鍵電路怎么接啊按鍵用不了

ID:241686 · 發表于 2017-12-8 20:06

感謝樓主，還在學習當中，

ID:241686 · 發表于 2017-12-8 20:07

很好，有啟發作用

ID:268512 · 發表于 2017-12-28 18:53

下載下來看看

ID:249703 · 發表于 2017-12-29 09:59

按鍵定義了咩啊？跪求大哥告訴

ID:253549 · 發表于 2018-1-29 14:54

很厲害

ID:253549 · 發表于 2018-1-29 14:55

樓主很厲害

ID:276348 · 發表于 2018-2-6 20:31

很優秀的學習資料。

ID:226427 · 發表于 2018-3-1 11:15

可以可以

ID:223788 · 發表于 2018-4-17 20:18

加上電路圖的話就更完美了

ID:235332 · 發表于 2018-6-20 23:51

很好的資料

ID:366705 · 發表于 2018-7-7 10:41

好東西啊，感謝樓主

ID:365450 · 發表于 2018-7-7 16:14

貪吃蛇游戲鍵盤定義
上下左右分別為P1^5 1^6 1^4 1^3 級別鍵為P1^2對應1-9,1為最快速，9為最慢速

ID:205182 · 發表于 2018-7-9 00:12

收下，慢慢看

ID:343130 · 發表于 2018-7-9 22:05

真厲害，給力！

ID:363785 · 發表于 2018-7-11 14:51

樓主大大的程序很nice，感謝

ID:363785 · 發表于 2018-7-12 08:51

我想問一下er的文件不是俄羅斯方塊嗎，為什么我下載下來是貪吃蛇的

ID:327527 · 發表于 2018-7-19 17:38

求電路圖

ID:394548 · 發表于 2018-9-6 14:40

真的厲害

ID:336195 · 發表于 2018-11-28 14:10

俄羅斯方塊有bug、有的圖形不能最左

ID:426241 · 發表于 2018-11-29 09:37

非常感謝樓主

ID:433244 · 發表于 2018-12-3 15:14

謝謝，剛好在找怎么單獨顯示點陣圖的方法，贊一個·

ID:434736 · 發表于 2018-12-5 09:35

求電路圖樓主

ID:398813 · 發表于 2018-12-12 15:52

很給力，感謝樓主的分享，謝謝

ID:276385 · 發表于 2018-12-12 16:51

很好的東西

ID:441878 · 發表于 2019-1-7 22:25

希望可以得到學習

ID:317383 · 發表于 2019-1-8 08:18

弄的挺好的的，以前用匯編寫過，C顯得簡單多了

ID:267702 · 發表于 2019-3-14 20:43

感謝大佬，裝逼必備

ID:491172 · 發表于 2019-3-15 06:52

先看看，等幣夠了來下！

ID:329135 · 發表于 2019-4-19 20:52

求電路圖！！！！

ID:423869 · 發表于 2019-5-1 23:21

收下程序慢慢消化

ID:369306 · 發表于 2019-7-27 08:53

親測很棒

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機+LCD12864做的貪食蛇和俄羅斯方塊小游戲分享

評分

相關帖子