找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 6345|回复: 10
打印 上一主题 下一主题
收起左侧

51单片机贪吃蛇+俄罗斯方块+万年历程序+仿真

  [复制链接]
跳转到指定楼层
楼主
分享一个用51单片机制作的贪吃蛇+俄罗斯方块+万年历
仿真原理图如下(proteus仿真工程文件可到本帖附件中下载):



单片机源程序如下:
  1. //版本:V1.0
  2. //作品:贪吃蛇+万年历+俄罗斯方块
  3. //作者所属院校:南阳理工学院
  4. //申明:转载请标明作品来源 知识产权归作者本人所有!
  5. //工作之余,写下此程序,程序、设计中有很多不足之处,风格、命名也很乱,这是下一个版本要改进的
  6. //在V1.1版本中还会增加矩阵键盘和科学计算器等功能,此程序已成功移植于AVR单片机。硬件上实现要修改底层驱动!
  7. #include <at89x51.h>
  8. #include "18b20.h"
  9. #include "1302.h"
  10. #include "12864.h"
  11. #include "zifu.h"
  12. uchar k,direction;
  13. bit flag;
  14. bit flag5=0;                           //flag5是外部中断1的标志位 flag1是步进标志
  15. uchar p,dengji;               //定时次数
  16. bit flag1=0;
  17. systemtime realtime;
  18. bit first=1;                                   //中断次数控制
  19. void dingshi() interrupt 1  using 1  //定时程序.产生步进时间
  20. {
  21.    if(p--)
  22.    {
  23.     TL0=0;
  24.         TH0=0xa0;
  25.         flag1=0;
  26.    }
  27.    else
  28.    {
  29.      flag1=1;
  30.          TL0=0;
  31.          TH0=0x00;
  32.          p=20-(dengji>>1);
  33.    }
  34. }
  35. /*开始确认暂停键的判断*/
  36. void zhongduan1() interrupt 2 using 2
  37. {
  38.    if(!flag5)
  39.    {
  40.      flag5=1;
  41.    }
  42.    else
  43.    {
  44.      flag5=0;
  45.    }
  46. }
  47. void zhongduan() interrupt 0 using 0
  48.   {
  49.     uchar i=0;
  50.         if(first)               //FIRST=1;打开方向按键判断标志
  51.         {
  52.         first=0;            
  53.         k=(P2>>6);           
  54.         k=k&0x03;                                
  55.         if(flag)
  56.           {
  57.             if(k==1)     direction=3;//左
  58.             if(k==2)         direction=1;//右
  59.              }
  60.           else
  61.            {
  62.             if(k==0)         direction=4;//上
  63.             if(k==3)         direction=2;//下
  64.              }
  65.         }
  66.   }
  67. /*显示四个小格的方块*/
  68. void playbuf(uchar buff,char offsetx,char offsety)         
  69. {
  70.   //i=(moxing+((dat&0xf0)|((dat&0x0f)<<2)));
  71.   change1((((*(moxing+((buff&0xf0)+((buff&0x0f)<<2))))&0xf0)>>4)+offsetx,((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))))&0x0f)+offsety);
  72.   change1((((*((moxing+((buff&0xf0)+((buff&0x0f)<<2))+1)))&0xf0)>>4)+offsetx,((*(((moxing+((buff&0xf0)|((buff&0x0f)<<2))))+1))&0x0f)+offsety);
  73.   change1((((*(((moxing+((buff&0xf0)|((buff&0x0f)<<2))))+2))&0xf0)>>4)+offsetx,((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+2))&0x0f)+offsety);
  74.   change1((((*(((moxing+((buff&0xf0)|((buff&0x0f)<<2))))+3))&0xf0)>>4)+offsetx,((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+3))&0x0f)+offsety);

  75. }
  76. /*判断方块停止向下运动*/
  77. bit tingzhixia(uchar buff,char offsetx,char offsety)
  78. {
  79.    char x0,y0,x1,y1,x2,y2,x3,y3;
  80.    bit tz=0;
  81.    x0=(((*(moxing+((buff&0xf0)|((buff&0x0f)<<2))))&0xf0)>>4)+offsetx;
  82.    x1=(((*((moxing+((buff&0xf0)|((buff&0x0f)<<2))+1)))&0xf0)>>4)+offsetx;
  83.    x2=(((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+2))&0xf0)>>4)+offsetx;
  84.    x3=(((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+3))&0xf0)>>4)+offsetx;
  85.    y2=((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+2))&0x0f)+offsety;
  86.    y3=((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+3))&0x0f)+offsety;
  87.    y0=((*(moxing+((buff&0xf0)|((buff&0x0f)<<2))))&0x0f)+offsety;
  88.    y1=((*((moxing+((buff&0xf0)|((buff&0x0f)<<2)))+1))&0x0f)+offsety;
  89.    
  90.    if(readfk(x0+1,y0))
  91.    {
  92.       if(!((((x0+1)==x1)&&(y0==y1))|(((x0+1)==x2)&&(y0==y2))|(((x0+1)==x3)&&(y0==y3))))
  93.          {
  94.           tz=1;
  95.           }
  96.    }
  97.     if(readfk(x1+1,y1))
  98.    {
  99.       if(!((((x1+1)==x0)&&(y1==y0))|(((x1+1)==x2)&&(y1==y2))|(((x1+1)==x3)&&(y1==y3))))
  100.          {
  101.           tz=1;
  102.          }
  103.    }
  104.    if(readfk(x2+1,y2))
  105.    {
  106.       if(!((((x2+1)==x0)&&(y2==y0))|(((x2+1)==x1)&&(y2==y1))|(((x2+1)==x3)&&(y2==y3))))
  107.           {
  108.            tz=1;
  109.           }
  110.    }
  111.    if(readfk(x3+1,y3))
  112.    {
  113.       if(!((((x3+1)==x0)&&(y3==y0))|(((x3+1)==x1)&&(y3==y1))|(((x3+1)==x2)&&(y3==y2))))
  114.           {
  115.            tz=1;
  116.           }
  117.    }
  118.    return(tz);
  119. }
  120. /*判断一行是否可以消除*/
  121. bit hangman(uchar x)
  122. {
  123. uchar i;
  124. bit   man=1;
  125. for(i=0;i<15;i++)
  126. {
  127.          man=man&(readfk(x,i));
  128.         if(!man)
  129.         break;
  130. }
  131. return(man);
  132. }
  133. /*消除一行*/
  134. void xiaohang(uchar x)
  135. {
  136.   uchar i,j;
  137.   for(i=0;i<15;i++)
  138.   {
  139.     clear1(x,i);
  140.   }
  141.   for(i=1;i<=x;i++)
  142.   {
  143.    for(j=0;j<15;j++)
  144.    {
  145.      if(readfk(x-i,j))
  146.          {
  147.           change1(x-i+1,j);
  148.           clear1(x-i,j);
  149.          }
  150.    }
  151.   }
  152. }
  153. /*判断是否停止向右*/
  154. bit tingzhiyou(uchar buff,char offsetx,char offsety)
  155. {
  156.    char x0,y0,x1,y1,x2,y2,x3,y3;
  157.    
  158.   
  159. ……………………

  160. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
贪吃蛇 俄罗斯方块 万年历.zip (176.69 KB, 下载次数: 262)



评分

参与人数 1黑币 +100 收起 理由
admin + 100 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏22 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:209863 发表于 2017-6-27 20:55 来自手机 | 只看该作者
好资料,51黑有你更精彩!!!

51hei.gif (82.51 KB, 下载次数: 9)

51hei.gif
回复

使用道具 举报

板凳
ID:102293 发表于 2017-6-27 21:42 | 只看该作者
好资料,谢谢分享,
回复

使用道具 举报

地板
ID:215283 发表于 2017-6-27 22:11 | 只看该作者
好东西 感谢分享
回复

使用道具 举报

5#
ID:619095 发表于 2019-10-3 21:55 | 只看该作者
这资料太棒了!!!是我现在急需的可以激发我学习兴趣的内容。
回复

使用道具 举报

6#
ID:623119 发表于 2019-10-13 21:34 | 只看该作者
好资料,非常有帮助
回复

使用道具 举报

7#
ID:599674 发表于 2019-10-25 11:31 | 只看该作者
太感谢你了
回复

使用道具 举报

8#
ID:619861 发表于 2020-1-1 08:55 | 只看该作者
没有仿真图,谨慎下载
回复

使用道具 举报

9#
ID:690339 发表于 2020-4-20 21:28 | 只看该作者
赞 谢谢作者
回复

使用道具 举报

10#
ID:666011 发表于 2020-5-2 18:54 | 只看该作者
进位方面可以考虑完善一下
回复

使用道具 举报

11#
ID:813486 发表于 2020-9-23 09:37 | 只看该作者
感谢楼主分享,仿真成功
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表