找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

搜索
查看: 2692|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

AT89C51密碼鎖仿真資料分享

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:428443 發(fā)表于 2018-11-17 21:51 | 只看該作者 |只看大圖 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
AT89C51密碼鎖資料 共享
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  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. }
復(fù)制代碼

所有資料51hei提供下載:
AT89S51密碼鎖資料.zip (93.4 KB, 下載次數(shù): 49)


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表