设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机8*8点阵做的电梯 ，附带程序和Proteus仿真
返回列表 发新帖
查看: 5083|回复: 14
收起左侧

单片机8*8点阵做的电梯 ，附带程序和Proteus仿真

  [复制链接]
ID:310081 发表于 2019-6-5 16:01 | 显示全部楼层 |阅读模式
用点阵做的电梯 ，附带程序和仿真
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
电梯.png 0.png

单片机源程序如下:
  1. #include <regx52.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int
  4. extern void disp3216();
  5. extern uchar key_get();
  6. /* 电梯控制与传感器信号I/O        */
  7. sbit s1=P1^6;sbit s2=P1^7;sbit s3=P3^7;
  8. sbit mk1=P3^4;sbit mk2=P3^5;
  9. #define dtSTOP {s1=1;s2=1;}
  10. #define dtUP   {s1=0;s2=1;}
  11. #define dtDOWN {s1=1;s2=0;}
  12. sbit dF1=P2^0;sbit dF2=P2^1;sbit dF3=P2^2;sbit dF4=P2^3;
  13. sbit dF5=P2^4;sbit dF6=P2^5;sbit dF7=P2^6;sbit dF8=P2^7;

  15. #define fSTOP 0
  16. #define fUP   1
  17. #define fDOWN 2
  18. uchar dir;   //电梯方向，0=停，1=上行，2=下行

  20. uchar LCount;                  //楼层计数
  21. #define kOUT        0x01         /*请求出门*/
  22. #define kUP                0x08         /*请求上行*/
  23. #define kDOWN        0x40         /*请求下行*/

  25. extern uchar dispBuf[3];                //显存
  26. uchar dat[8]={0,0,0,0,0,0,0,0}; //对应8～1楼，标志数据
  27. uchar c,t10,s,min,hor;                //时钟与定时

  29. //判断是否上行
  30. bit UpOk(){
  31.         switch(LCount){
  32.                 case 1:if(dat[6]&(kOUT|kUP|kDOWN))return 1;
  33.                 case 2:if(dat[5]&(kOUT|kUP|kDOWN))return 1;
  34.                 case 3:if(dat[4]&(kOUT|kUP|kDOWN))return 1;
  35.                 case 4:if(dat[3]&(kOUT|kUP|kDOWN))return 1;
  36.                 case 5:if(dat[2]&(kOUT|kUP|kDOWN))return 1;
  37.                 case 6:if(dat[1]&(kOUT|kUP|kDOWN))return 1;
  38.                 case 7:if(dat[0]&(kOUT|kDOWN))return 1;
  39.                 case 8:return 0;               
  40.         }
  41.         return 0;
  42. }
  43. //判断是否下行
  44. bit DownOk(){
  45.         switch(LCount){
  46.                 case 8:if(dat[1]&(kOUT|kUP|kDOWN))return 1;
  47.                 case 7:if(dat[2]&(kOUT|kUP|kDOWN))return 1;
  48.                 case 6:if(dat[3]&(kOUT|kUP|kDOWN))return 1;
  49.                 case 5:if(dat[4]&(kOUT|kUP|kDOWN))return 1;
  50.                 case 4:if(dat[5]&(kOUT|kUP|kDOWN))return 1;
  51.                 case 3:if(dat[6]&(kOUT|kUP|kDOWN))return 1;
  52.                 case 2:if(dat[7]&(kOUT|kUP))return 1;
  53.                 case 1:return 0;
  54.         }
  55.         return 0;
  56. }
  57. //电梯到达某层时，判断是否停下开门
  58. //入口：LCount当前到达层号
  59. //条件：梯内有出或梯外有“顺向”进，则开门。
  60. km(){       
  61.         bit b=0;        uchar i;
  62.         if(LCount==1)dir=fUP;        //最下层，方向改向上
  63.         else if(LCount==8)dir=fDOWN; //最上层，方向改向下
  64.         //梯内有人出
  65.         if(kOUT==(dat[8-LCount]&kOUT)){
  66.                 dat[8-LCount]&=(~kOUT);b=1;
  67.                 if(dir==fUP&&!UpOk())dat[8-LCount]&=(~kDOWN);
  68.                 if(dir==fDOWN&&!DownOk())dat[8-LCount]&=(~kUP);
  69.         }
  70.         //上行时，看梯外有无人上行
  71.         if(dir==fUP&&kUP==(dat[8-LCount]&kUP)&&LCount!=8){
  72.                 dat[8-LCount]&=(~kUP);
  73.                 if(!UpOk())dat[8-LCount]&=(~kDOWN);
  74.                 b=1;
  75.         }
  76.         //下行时，看梯外有无人下行
  77.         if(dir==fDOWN&&kDOWN==(dat[8-LCount]&kDOWN)&&LCount!=1){
  78.                 dat[8-LCount]&=(~kDOWN);
  79.                 if(!DownOk())dat[8-LCount]&=(~kUP);
  80.                 b=1;
  81.         }
  82.         //到达底层或顶层，清空梯内按键信息
  83.         if(LCount==1||LCount==8){
  84.                 for(i=1;i<7;i++)dat[i]&=(~kOUT);       
  85.         }
  86.         if(b){dtSTOP;s3=0;t10=100;}        
  87. }
  88. void main(){
  89.         uchar k;
  90.         bit bkey;
  91.         dir=fUP;
  92.         c=t10=s=0;
  93.         min=0;hor=12;
  94.         TMOD=0x01;
  95.         EA=ET0=TR0=1;
  96.         //检测电梯所在楼层
  97. sta:
  98.         if (dF1==0)LCount=dispBuf[1]=1;
  99.         else if (dF2==0)LCount=dispBuf[1]=2;
  100.         else if (dF3==0)LCount=dispBuf[1]=3;
  101.         else if (dF4==0)LCount=dispBuf[1]=4;
  102.         else if (dF5==0)LCount=dispBuf[1]=5;
  103.         else if (dF6==0)LCount=dispBuf[1]=6;
  104.         else if (dF7==0)LCount=dispBuf[1]=7;
  105.         else if (dF8==0)LCount=dispBuf[1]=8;
  106.         else {dir=fDOWN;s2=0;goto sta;}        //若电梯位于两楼之间，令其下行
  107.         s1=s2=1;                                                //电梯停止
  108.         while(1){
  109.                 if(!bkey)k=key_get(),bkey=1;
  110.                 if((LCount!=(k&0x0F))||s3){
  111.                         if(k>0&&k<9)dat[8-k]^=kOUT;                         //出电梯键
  112.                         else if(k>10&&k<18)dat[18-k]|=kUP;         //上行键
  113.                         else if(k>21&&k<29)dat[28-k]|=kDOWN; //下行键
  114.                         k=0;
  115.                 }
  116.                 if(!key_get())bkey=0;               
  117.                 //楼层到达信号，diapBuf[1]为楼号显示缓存       
  118.                 if(dF1==0)dispBuf[1]=1;
  119.                 else if(dF2==0)dispBuf[1]=2;
  120.                 else if(dF3==0)dispBuf[1]=3;
  121.                 else if(dF4==0)dispBuf[1]=4;
  122.                 else if(dF5==0)dispBuf[1]=5;
  123.                 else if(dF6==0)dispBuf[1]=6;
  124.                 else if(dF7==0)dispBuf[1]=7;
  125.                 else if(dF8==0)dispBuf[1]=8;
  126.                 //到达某层，判断是否需要开门，开门后定时自动关门。
  127.                 if(LCount!=dispBuf[1]){         //如果是新楼层
  128.                         LCount=dispBuf[1];   //更新楼号
  129.                         km();                                 //开门？
  130.                 }
  131.                 if(dir==fUP&&mk1==0&&s3==1){//是否继续上行？
  132.                         if(UpOk()){dtUP;}                //上行
  133.                         else {dir=fDOWN;if(P2!=0xff)dtSTOP;km();}//不上，反转
  134.                 }else if(dir==fDOWN&&mk1==0&&s3==1){//是否继续下行？
  135.                         if(DownOk()){dtDOWN;}
  136.                         else {dir=fUP;if(P2!=0xff)dtSTOP;km();}
  137.                 }
  138.                 //静止状态下，本层是否有请求？
  139.                 if(mk1==0&&s3==1&&s1==1&&s2==1){
  140.                         if (0!=(dat[8-LCount]&kOUT)){
  141.                                 s3=0;t10=100;
  142.                                 dat[8-LCount]&=(~kOUT);
  143.                         }
  144.                         if(0!=(dat[8-LCount]&kUP)&&dir==fUP){
  145.                                 dat[8-LCount]&=(~kUP);
  146.                                 s3=0;t10=100;
  147.                         }
  148.                         if(0!=(dat[8-LCount]&kDOWN)&&dir==fDOWN){
  149.                                 dat[8-LCount]&=(~kDOWN);
  150.                                 s3=0;t10=100;
  151.                         }                       
  152.                 }
  153.                 //定时到，关门
  154.                 if(t10==0)s3=1;
  155.                 //电梯门“开/关”好显示
  156.                 if(mk1==0&&mk2==1)dispBuf[2]=14;
  157.                 else if(mk1==1&&mk2==0)dispBuf[2]=13;
  158.                 else dispBuf[2]=15;
  159.                 //电梯“上行/下行”符号
  160.                 if(s1==0&&s2==1)dispBuf[0]=10;
  161. ……………………

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

所有资料51hei提供下载:
(电梯仿真及程序).rar (58.09 KB, 下载次数: 144)

评分

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

查看全部评分

回复

使用道具 举报

ID:564523 发表于 2019-6-19 13:02 | 显示全部楼层
谢谢大佬
回复

使用道具 举报

ID:564297 发表于 2019-6-19 15:03 | 显示全部楼层
非常不错额
回复

使用道具 举报

ID:564523 发表于 2019-6-20 11:28 | 显示全部楼层
非常不错额
回复

使用道具 举报

ID:641976 发表于 2019-11-14 15:20 | 显示全部楼层
谢谢大佬，正好用到了这个
回复

使用道具 举报

ID:630068 发表于 2019-11-14 19:36 | 显示全部楼层
厉害厉害大佬，很有帮助
回复

使用道具 举报

ID:641236 发表于 2019-11-14 21:22 来自手机 | 显示全部楼层
这是高手啊
回复

使用道具 举报

ID:562784 发表于 2019-12-13 13:55 | 显示全部楼层
请问有大佬有另外一个芯片的代码吗
回复

使用道具 举报

ID:102963 发表于 2020-2-23 09:29 | 显示全部楼层
高手，不错的设计，就是程序只有一部分，缺一个单片机的程序。
回复

使用道具 举报

ID:432653 发表于 2020-2-23 16:27 | 显示全部楼层
高手在民间，真乃神人也，这5分花的太值了
回复

使用道具 举报

ID:432653 发表于 2020-2-23 18:03 | 显示全部楼层
怎么设置时间？
回复

使用道具 举报

ID:688122 发表于 2020-2-23 19:38 | 显示全部楼层
看不懂，理解消化一下
回复

使用道具 举报

ID:282869 发表于 2020-2-25 20:35 | 显示全部楼层
另一種電梯模擬，謝謝分享
回复

使用道具 举报

ID:74293 发表于 2020-3-16 12:25 来自手机 | 显示全部楼层
有没有全部的程序？
回复

使用道具 举报

ID:146782 发表于 2020-7-28 12:08 | 显示全部楼层
资料不完整，缺少另外一个芯片的源程序
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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