基于AT89c51单片机制作的俄罗斯方块游戏 T6963C液晶显示源码

helendcany

基于AT89c51单片机制作的俄罗斯方块游戏 T6963C液晶显示源码


( u9 v, r: [- D& d/ _! g注明：只能按2键往左移
         按4键往右移
" t; h: c* u! f* H3 f         按8键变换
        无快速下降键

部分源码预览：
#include "t6963c.h"
0 b& E- a- j. r) n& T% Q4 N#include "typedef.h"
* N/ Z. G; e! C7 m% Y6 C) N#include "key.h"

#define X_START 5
#define Y_START 0
#define MIN_SLOW_SPEED  300
#define BX_START  30
& {: x' f0 U- |+ v9 R: r#define BY_START  15
#define Nothing   100


//全局数据
: O  c  ?+ _$ f7 [+ l9 @code uchar Game_Char[]={0x27,0x41,0x4d,0x45};
code uchar Over_Char[]={0x2f,0x56,0x45,0x52};
. l# M/ p% [& v' W5 m
& g6 e7 }' d* ?6 D" y' F9 T0 |static uchar xx,yy;         //方块的位置
static uint  Game_Score=0;
static uchar xdata Platform[14][21];    //游戏平台数据
9 Z5 n0 M, p3 a' Ostatic uchar This_shape;                                //当前形状
" X  Y) M2 ~/ b5 ]static uchar Next_shape=0;
* p- ^  ^# U" c+ E: d, qstatic uint  Game_Speed=MIN_SLOW_SPEED;         //等级速度，正常情况，方块下降的速度
6 A- g+ w' v& s( @/ pstatic uchar Game_Stop=1;
static uchar Game_Level=0;

! ]$ ~( l/ W! H1 J: B3 k/////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////
/////////方块形状的定义//////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////
+ R. {& s/ m# j0 g; t/ Wstruct POINT{
7 f1 C5 n, v# H/ @' M5 T! }              uchar x;
              uchar y;
             };
% W* U) e; ^4 m2 h4 D) L) u
struct SHAPE{
               struct POINT point[4];
0 ]! @  J2 d" Y                           uchar next;        //下一个形状
                         }


xdata shape[19]={
4 P, Y1 v' D  m% R
                   { 1,0,0,1,1,1,2,1,1  },
                                   { 1,0,1,1,2,1,1,2,2  },
% h9 \9 E7 S/ k$ |5 x% u1 j                                   { 0,0,1,0,2,0,1,1,3  },
6 h# p- q1 D& b& ~+ w                                   { 1,0,0,1,1,1,1,2,0  },
& P$ d7 W' Q% P% N
" K! q0 p- o2 {/ \3 g  ^5 V                                   { 1,0,2,0,1,1,1,2,5  },
                                   { 0,0,1,0,2,0,2,1,6  },
1 I2 L0 u1 m6 t) Y& D8 m2 |5 _0 d                                   { 2,0,2,1,2,2,1,2,7  },
                                   { 0,0,0,1,1,1,2,1,4  },
, |  x6 V$ G  U" B& J- X
                                   { 1,0,2,0,2,1,2,2,9  },
                                   { 2,0,0,1,1,1,2,1,10 },
                                   { 1,0,1,1,1,2,2,2,11 },
                                   { 0,0,1,0,2,0,0,1,8  },
' Y! L( Z6 T9 m; P3 |0 V
8 {' {3 W/ n$ a                                   { 0,0,0,1,1,1,1,2,13 },
                                   { 1,0,2,0,0,1,1,1,12 },
  G) y$ n& K# \- }# B4 x0 E
4 i8 h% Q: p0 g1 F: A                                   { 2,0,1,1,2,1,1,2,15 },
                                   { 0,0,1,0,1,1,2,1,14 },
$ ^: n/ y1 {1 n7 w# ?
  h2 J) E$ X- S; ~. n* f                                   { 1,0,1,1,1,2,1,3,17 },
                                   { 0,1,1,1,2,1,3,1,16 },

- z: R$ @: C, a                                   { 1,0,2,0,1,1,2,1,18 },         
2 h7 Y/ G$ v! g1 C. f) A2 d% p
                                };   

1 t. D- c0 u7 ~  }& ?" F' l////////////////////////////////////////////////////////////////////////////
) B# W, O! p+ P3 Z2 P//**************************************************************************
, s7 s3 P, I, W/ j//= 函数原型:void Init_GamePlatform()
//= 功    能: 初始化游戏平台
//= 参    数: 无                        
//= 返 回 值: 无
//= 函数性质：公有函数
//= 注    意：
//***************************************************************************
3 Z: k( z' I7 m5 @8 A) [void Show_score(uchar);
void Init_GamePlatform()
& ?9 E" B. T" W, x: q+ }4 m) \  `{
& Y6 {/ b% M3 o# d1 o9 z  uchar i;
$ V4 H/ F; B! C+ C  uchar j;
% L5 y1 T9 Y3 ~4 g. r9 ]0 p  uchar N_Hanzi;
' }; Q& i* u5 ~' q
  Wr_line(1,33,13,64,1 );        //初始化游戏平台边界        画游戏区域
# [% U$ f, h' o% m# v6 ?: I  Wr_line(1,33,14,64,1 );   //画上横线
  Wr_line(0,33,15,100,1);
  ?) Z4 O3 k9 R5 f# v0 N* B" G* W  Wr_line(0,34,15,100,1);  //画左竖线
  Wr_line(1,33,115,64,1);  
  Wr_line(1,33,116,64,1);  //画下横线
  C$ a0 G7 G2 I  j  B1 a. `" b/ T  Wr_line(0,95,15,100,1);
  Wr_line(0,96,15,100,1);  //画右竖线
+ S2 R% B3 \+ @: f( S//--------------------------------------------------------
4 f  q+ ]/ U$ p1 o  for(i=1;i<13;i++)                //游戏平台数据清零
& G! u5 z+ y: v8 J8 K  {
: R9 X( ?' b% r& S    for(j=0;j<20;j++)
6 f* X4 {  S% t8 U$ q8 C* _          {
& Q) k' N$ g" H% U            Platform[j]=0;
          }
   }
   for(i=1;i<13;i++)
4 i  z5 x4 A4 n   {
      Platform[20]=1;   //游戏平台最下面一行的每一个方块位置为１，作为下边界
: y. E7 I  ]5 j0 q& o7 y        }
4 O4 E' J. z! T+ |
   for(j=0;j<20;j++)                //游戏平台左右方块位置置１，作为左右边界
. C0 T1 ~- y5 T2 ~' b- ~   {
      Platform[0][j]=1;
8 L' F# r8 x: t* J* U          Platform[13][j]=1;
! h+ b2 G# W: h   }
//---------------------------------------------------------
  N_Hanzi=0;            
* y+ v7 X  y7 s  for(j=3;j<=12;j=j+2)           //
  {
' E& w* E9 e7 ^9 x" R: T     hanzhi(1,j,N_Hanzi,1);
         N_Hanzi++;   //指向下一个汉字
  }
6 Y- T  e/ y3 U$ h
  hanzhi(13,3,6,1);         //输入“分”汉字
$ y" ~) i/ i7 Y! K  hanzhi(13,8,8,1);   //输入“级”汉字
; T: p$ u! r, d5 J7 O
6 e9 b6 x: `" d1 s" I  Show_score(0);        //显示初始分数
8 f. D0 N0 c) |5 f( F6 I  Show_num(13,11,Game_Level);         //显示初始等级水平
  Game_Speed=MIN_SLOW_SPEED/(Game_Level+1);  //根据水平确定速度
) l+ R, t, M$ B9 ^0 j
5 i# G, \# z" }$ w  K( S: [8 q//------------------------------------------------------------------
9 ~- |8 X' R; c  Game_Score=0;
  }3 o, z/ p! l) i8 W  xx=X_START ;
. Y$ k) {6 ?" m1 v9 J  yy=Y_START ;
}
////////////////////////Init_Game/////////////////////
" J0 g6 t& o# N! z* Yvoid Init_Game()
{
$ @+ c% d+ P1 P2 j/ A2 f  Game_Stop=1;
1 p- G: Z; b) g) G6 y2 [  Init_GamePlatform();
  hanzhi(7,3,9,1);         //输入“按”汉字
  Show_num(7,6,7);         //显示7
( C4 o8 f4 y* ^5 o5 N  hanzhi(7,8,10,1);         //输入“开”汉字
' g* a, M/ I7 k0 Y  hanzhi(7,10,11,1);         //输入“始”汉字
}
//**************************************************************************
//= 函数原型:void XiaoFengKuai(uchar x,uchar y,uchar mode)
//= 功    能: 显示一个小方块
! P$ U7 R! y$ t8 [//= 参    数: 小方块的横x，坚坐标y,mode=1:显示小方块,mode=0:删除小方块                        
//= 返 回 值:
2 S/ B& }  @  q5 N& Z/ O//= 函数性质：私有函数
1 }& Y$ w) U! s# @//= 注    意：
//***************************************************************************
: |3 A: D4 [- U. F  ^void XiaoFengKuai(uchar x,uchar y,bit mode)
1 G# P2 \1 i! O# n2 z0 a{
   uchar x1=5*x+BX_START;        //将方块在平台的位置转化成ＬＣＤ的点坐标(地址转换）
& P5 i. B) c, h2 E& s   uchar y1=5*y+BY_START;         
. }9 I  @+ l) w5 [7 y. x* h   uchar i;

   if(mode==1)
   {
- `( u9 c, Q' V: n4 }( E9 S
       for(i=0;i<5;i++)
       {
) j8 u, b' Q9 O) l! P/ ~          Point(x1+i,y1,1); //画一条横线
       }
* G% Z$ v& q+ M- x. n/ d
/ ?9 Z% J- q2 O3 q" M* M5 _, u  X
               y1+=4;
$ f) ]7 k2 _# S
        for(i=0;i<5;i++)
        {
           Point(x1+i,y1,1); //画第二条横线
) _1 X4 a; k2 ?' Z3 B% h         }
1 o. |* y4 g- ^) x* h: O: b4 W
        for(i=0;i<5;i++)
3 c) D1 I% s3 \        {
- T5 I6 b( {" V2 w           Point(x1,y1-i,1); //画第1条坚线
         }

' _7 x) s6 r: o1 q( [3 _) r+ F         x1+=4;
6 |6 d. \% l* Z1 T2 X7 m/ @
; b. Z$ _: n, a  C; h( m( Z5 H8 o2 u        for(i=0;i<5;i++)
3 i3 V0 r8 U6 Y        {
9 {" m* S9 d. n% Q           Point(x1,y1-i,1); //画第2条坚线
         }
2 p+ A0 N! [- h' I# }
* J6 v" K" [# d- M' I  a        y1-=4;
        for(i=0;i<5;i++)
6 t# ?, A2 o# X1 G1 x" b        {
0 o$ ?. K1 @! w6 g9 Q" Y           Point(x1-i,y1+i,1); //画斜线
        }
  N7 Q; C6 X- h* O   }

. L5 _0 L$ `/ w. K* a. u% p$ l  else
. n/ r3 o* D" e3 w, S  {
             for(i=0;i<5;i++)
        {
          Point(x1+i,y1,0); //画一条横线
              }

               y1+=4;
; S6 I9 D" x& f  w6 S5 e/ w        for(i=0;i<5;i++)
         {
3 g) m' H; H$ G  G6 z4 U           Point(x1+i,y1,0); //画第二条横线
3 t; t  i3 I# W1 _9 r         }
1 V" w. g2 n5 u
6 Z- x, |, p+ G! P         for(i=0;i<5;i++)
         {
2 y# k) M" L  F            Point(x1,y1-i,0); //画第1条坚线
/ t1 x, U+ m, [% s          }

; ^9 K8 i, I; s+ J+ _. f% k3 o3 g         x1+=4;
        for(i=0;i<5;i++)
5 E7 v% i+ C; l0 L& j3 I          {
2 ]9 `/ L; N# ?# A9 S             Point(x1,y1-i,0); //画第2条坚线
, [+ c& W6 |3 k2 r* V7 C          }

) D% q; I( ]( P4 g. v; M& t$ z        y1-=4;
        for(i=0;i<5;i++)
         {
1 x- C2 D! `* W: m# w8 l# W, j           Point(x1-i,y1+i,0); //画斜线
         }
! I# j" [$ y) y8 z) C* J        }
}
//////////////////////////////////////////////////////////////////////////
////////////////左冲突检测//////////////////////////////////////////////
3 `/ ]$ `' `) _) J2 R3 L3 wbit Left_Anti()
% q0 i. _% n! i: U* M{
  uchar i;
  for(i=0;i<4;i++)
        {
          if(Platform[xx+shape[This_shape].point.x-1][yy+shape[This_shape].point.y]==1)
) L( N7 }$ l- T+ |& `. c# E4 g            return 1;
- C+ r7 @- I+ ^6 P. ?# C3 [        }
5 C8 Z3 t1 J# I3 ~  return 0;
; C3 y9 k5 ^2 L9 S& I$ Z  E}           

////////////////右冲突检测///////////////////////////////////////////
bit Right_Anti()
{
  uchar i;
  for(i=0;i<4;i++)
# g# T4 P4 m0 j/ F( \6 }  a, d        {
- D+ M0 J& A& ?( k2 d. O- b          if(Platform[xx+shape[This_shape].point.x+1][yy+shape[This_shape].point.y]==1)
            return 1;
3 S. m4 K' {/ I* U        }                           
  M. l) p4 O. x& W6 `  return 0;

8 }- `6 \9 a7 x- ]8 I}
9 x& g# I7 C! a# f0 c2 k
////////////////////////////////////////下冲突检测//////////////////////////
bit Bottom_Anti()
{
( t  k. \4 E4 f5 s   uchar i;
" ~: m+ i9 U( k" J2 {7 i   for(i=0;i<4;i++)
        {
          if(Platform[xx+shape[This_shape].point.x][yy+shape[This_shape].point.y+1]==1)
4 d( p  S3 o; S# Y3 \8 Z$ m            return 1;
, m: G8 n" M+ Q1 n    }
  return 0;                          
}
//////////////////////////////////改变形状时产生的冲突检测////////////////////
! }0 ^: s5 E5 ?' F. o: r( m) B" ^: ibit Change_Shape_Anti()
/ n. D5 u7 G# y( I# z- h2 g' i; A{
& y$ Z4 q1 Z6 T5 k   uchar i;
   for(i=0;i<4;i++)
$ @! |9 ]( q' Z0 Y        {
          if(Platform[xx+shape[shape[This_shape].next].point.x][yy+shape[shape[This_shape].next].point.y]==1)
2 }7 e7 E; I. l; ~$ W, |            return 1;           //检测一个形状的冲突情况
2 N9 Z% j. y* a9 o0 [    }
) @: }& W% w0 Z7 m9 @" C) V   return 0;
; Y( F4 {% x: N% {* H; {}
//////////////////////////////////产生一个随机数,返回一个随机数///////////////
uchar Random()
{
+ w; F$ j# U9 O( ~  static uchar m;
2 k6 i6 g8 a+ B  m+=49;
* m( W/ m  u7 }/ `; H  return (m%19);
: m1 r. H; v* y3 B$ m( @, O}

0 S) W/ F' j' c$ _5 t/ W( B; M6 N. ^//////////////计分函数,参数为 消行行数n///////////////////////////////////////
) Z3 l: k1 t+ G) a2 ?: e
void Show_score(uchar n)
" u# C- L) b/ x2 T/ f{
  Game_Score=Game_Score+10*n;
) b5 ^1 s8 X! n' v( r
+ Q- x' |0 e  a, ^/ P  if(Game_Score<10)
* \1 J8 g0 X: S* N& a- {2 m9 }  {
     Show_num(13,6,Game_Score%10);                //显示个位
! x2 L* r9 O$ K: y  }
' {- c+ `1 f) n9 C1 i  else if(Game_Score<100)
5 {8 a6 M& N* V. p' e  {  
     Show_num(14,6,Game_Score%10);
         Show_num(13,6,Game_Score/10%100);        //显示个位,十位
3 U6 L/ d8 E9 V3 E; V3 I6 y  }
  else if(Game_Score<1000)
  {
" `& U( s. i$ A! [     Show_num(14,6,Game_Score%10);
7 w% _+ \5 |$ ^3 ^         Show_num(13,6,Game_Score/10%10);
         Show_num(12,6,Game_Score/100%10);        //显示个位 ,十位,百位
  }
3 c& K5 Q4 d" D+ X: D0 i. G  else
: ~; a1 E* X  k* T0 U  {  
  R) K4 Z8 O/ ^1 z         Show_num(15,6,Game_Score%10);
         Show_num(14,6,Game_Score/10%10);
         Show_num(13,6,Game_Score/100%10);        //显示个位 ,十位,百位,千位
         Show_num(12,6,Game_Score/1000);
  }
. }3 ~, X( h: ^7 L3 y  e/ H6 S
  if(Game_Score%1000==0)
  {
    if(Game_Score>0)
        {
3 x8 H( ]6 ?& {- z' x/ n3 X       Game_Level++;
$ f# Q5 m' J0 J6 S       if(Game_Level==10)
           {
4 [* }0 k  R1 t1 S1 U) u: g              Game_Stop=1;
              hanzhi(7,5,12,1);         //        输出“太棒了"
          hanzhi(7,7,13,1);         
                  hanzhi(7,9,14,1);

/ N# I( b/ r0 S+ ?. p1 b           }
$ i! e7 S5 I. J) h       Show_num(13,11,Game_Level);         //显示水平

    }
  }
}

//**************************************************************************
//= 函数原型:void Undisplay_line()
//= 功    能: 消除行
//= 参    数: 无                        
//= 返 回 值: 无
8 b! k# Z+ \5 M//= 函数性质：私有函数
//= 注    意：
//***************************************************************************   
void UnDisplay_line()
' X4 {) `: \& P7 ^{
   uchar Del_Line;      //标识要删除的行
   uchar Del_Line_Num=0;     //标识删除的行数
& k8 E9 n5 P. K% l$ |- g; a: c3 g   uchar i,j,k;
   bit HavePoint;                    //标识一行中是否有空白点
$ S8 o4 @0 T5 @- i' C
   for(i=0;i<4;i++)
1 J2 r# d! f$ Y  [   {
      for(j=1;j<13;j++)
& L7 N, Y7 B: m7 T          {
% B* x3 e3 w6 v$ u             if(Platform[j][yy+i]==0)
6 F6 n" P+ p, y% X  ^( b2 F; @9 I                    break;                   //如果这一行中有一个为空，则退出这一行的循环
                 else if(j==12)
                 {
                    Del_Line=yy+i;                 //确定要删除的行
                        if(Del_Line<20)
9 U" z9 z) X6 J9 N. o                        {
% i$ D- P) P) F                           Del_Line_Num++;                   //计算共删除的行数
                        for(k=1;k<13;k++)
6 i# B/ N# ?1 Q3 t: w/ b& ^                        {
: m, i: z7 A( Z( o% p                            XiaoFengKuai(k,Del_Line,0);           //删除行
- C6 n3 F7 J$ u% N                                Platform[k][Del_Line]=0;         //平台数据清零
) a: z2 H  o  B; o+ x                        }
: S: g# z* i5 G0 I( n: Y                        while(1)     //下移



…………限于本文篇幅 余下代码请从论坛下载附件…………
+ V! T: C6 m& U, {: V* h8 a: V- c+ z

游客，如果您要查看本帖隐藏内容请回复

' \. A5 |& `1 A3 H

kinidrily

谢谢分享 楼主好人

yxlk

这个不错啊】

sunygd

确实不错