单片机/MCUwilliam hill官网
直播中

lee_st

12年用户 45163经验值
擅长:可编程逻辑 嵌入式技术 处理器/DSP RF/无线
私信 关注
[资料]

虚拟串口控制的俄罗斯方块游戏仿真及源码

转一个工程
给大家共享一个好东东，使用51单片机实现的俄罗斯方块游戏， 能虚拟串口控制，实用性还是比较高的，下面是仿真原理图，大家可以下载附件后直接用proteus打开。

//--------------------------------------------------------------------------//
//                                源程序大公开                              //
//                    (c) Copyright 2001－2025 xuwenjun                     //
//                            All Rights Reserved                           //
//                                    V1.00                                 //
//--------------------------------------------------------------------------//
//标　题: 俄罗斯方块程序                            ?                      //
//文件名: xwj_fk.c                                                          //
//版　本: V1.00                                                             //
//修改人: 徐文军                         E-mail:xuwenjun@21cn.com           //
//日　期: 05-13                                                           //
//描　述: 俄罗斯方块程序                            ?                      //
//声　明:                                                                   //
//        以下代码仅免费提供给学习用途，但引用或修改后必须在文件中声明出处. //
//        如用于商业用途请与作者联系.    E-mail:xuwenjun@21cn.com           //
//        有问题请mailto xuwenjun@21cn.com   欢迎与我交流!                  //
//--------------------------------------------------------------------------//
//老版本: 无                             老版本文件名:                      //
//创建人: 徐文军                         E-mail:xuwenjun@21cn.com           //
//日　期: 05-13                                                          //
//描　述:                                                                   //
//      1、功能完整，直接使用                                               //
//      2、模块独立性强，移植方便，外部仅init和move函数，修改显示和输入即可 //
//      3、对减少内存占用、尽量减少屏幕操作进行适当优化                     //
//      4、新方块生成高度随机，绝对无规律                                   //
//      5、仿真环境为Keil7.5+Proteus6.5,可以联机也可脱机运行                //
//      CODE SIZE        =   1845    ----                                   //
//      CONSTANT SIZE    =    326    ----                                   //
//      DATA SIZE        =     16      19                                   //
//      IDATA SIZE       =     50    ----                                   //
//      BIT SIZE         =      1       1                                   //
//--------------------------------------------------------------------------//
#include
#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]);
                for (j=fk_oldx;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]);
                for (j=fk_x;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]);
                for (j=NEWX;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])<)<                         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])<                 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                 {
                        if ((i < LINEMAX+4)&&(fk_map[i-fullline]!=fk_map))
                        {
                                fk_map[i-fullline]=fk_map;
                                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<                 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=0xffff;        //背景映象
        }        delay(3000);
        for (i=4;i         {
                if (i<(automapn+4))
                        fk_map=rand()-1|~FULLMAP; //背景映象
                else
                        fk_map=~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       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);
        }
}
*/

回帖（7）

王栋春

2016-11-2 20:16:14
这个现在玩不了  留着日后再说  感谢分享
举报

lee_st

2016-11-3 16:27:29
我也没玩呢，，，，，，
举报

jf_97291484

2020-11-3 13:52:35
厉害                                         
举报

lee_st

2020-11-4 21:20:36
客气
举报

lee_st

2020-11-4 21:23:30
谢谢支持
举报

lee_st

2020-11-4 21:23:35
加油
举报

lee_st

2020-11-4 21:23:40
哈哈
举报

更多回帖

7 0 1

相关帖子

俄罗斯方块
发帖
电子发烧友APP
|投诉反馈|电子发烧友网
© 2021 bbs.elecfans.com
湘ICP备2023018690号
×
20
完善资料，
赚取积分