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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › AT89C51密码锁仿真资料分享
返回列表 发新帖
查看: 2763|回复: 0
收起左侧

AT89C51密码锁仿真资料分享

[复制链接]
ID:428443 发表于 2018-11-17 21:51 | 显示全部楼层 |阅读模式
AT89C51密码锁资料 共享
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
0.png

单片机源程序如下:
  1. #include<reg51.h>
  2. sbit P1_4=P1^4;
  3. sbit P1_5=P1^5;
  4. sbit P1_6=P1^6;
  5. sbit P1_7=P1^7;
  6. sbit sound=P3^7;
  7. unsigned char keyval;

  9. void delay(void)
  10. {
  11.         unsigned  char i;
  12.         for(i=0;i<200;i++);
  13. }

  15. void delay20ms(void)
  16. {
  17.         unsigned char i,j;
  18.         for(i=0;i<100;i++)
  19.                 for(j=0;j<60;j++);
  20. }

  22. void main(void)
  23. {
  24.         unsigned char D[]={0,8,0,8,7,4,11};
  25.         EA=1;
  26.         ET0=1;
  27.         TMOD=0x01;
  28.         TH0=(65536-500)/256;
  29.         TL0=(65536-500)%256;
  30.         TR0=1;
  31.         keyval=0xff;
  32.         while(keyval!=D[0])
  33.                 ;
  34.         while(keyval!=D[1])
  35.                 ;
  36.         while(keyval!=D[2])
  37.                 ;
  38.         while(keyval!=D[3])
  39.                 ;
  40.         while(keyval!=D[4])
  41.                 ;
  42.         while(keyval!=D[5])
  43.                 ;
  44.         while(keyval!=D[6])
  45.                 ;
  46.         P3=0xfe;
  47. }

  49. void time0_interserve(void)interrupt 1 using 1
  50. {
  51.         unsigned char i;
  52.         TR0=0;
  53.         P1=0xf0;
  54.         if((P1&0xf0)!=0xf0)
  55.         delay20ms();
  56.         if((P1&0xf0)!=0xf0)
  57.         {
  58.                 P1=0xfe;
  59.                 if(P14==0)
  60.                         keyval=1;
  61.                 if(P15==0)
  62.                         keyval=2;
  63.                 if(P16==0)
  64.                         keyval=3;
  65.                 if(P17==0)
  66.                         keyval=4;
  67.                 P1=0xfd;
  68.                 if(P14==0)
  69.                         keyval=5;
  70.                 if(P15==0)
  71.                         keyval=6;
  72.                 if(P16==0)
  73.                         keyval=7;
  74.                 if(P17==0)
  75.                         keyval=8;
  76.                 P1=0xfb;
  77.                 if(P14==0)
  78.                         keyval=9;
  79.                 if(P15==0)
  80.                         keyval=0;
  81.                 if(P16==0)
  82.                         keyval=11;
  83.                 for(i=0;i<200;i++)
  84.                 {
  85.                         sound=0;
  86.                         delay();
  87.                         sound=1;
  88.                         delay();
  89.                 }
  90.         }
  91.         TR0=1;
  92.         TH0=(65536-500)/256;
  93.         TL0=(65536-500)%256;
  94. }
复制代码

所有资料51hei提供下载:
AT89S51密码锁资料.zip (93.4 KB, 下载次数: 49)


回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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