基于51单片机的密码锁.doc_第1页
基于51单片机的密码锁.doc_第2页
基于51单片机的密码锁.doc_第3页
基于51单片机的密码锁.doc_第4页
基于51单片机的密码锁.doc_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

#include#include#define uint unsigned int#define uchar unsigned charsbit led=P34;uchar flag,flag1,flag2,flag3,conflag;uchar code Tab =0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0x8e,0xff;void delay(uchar ms)/扫描法实现对矩阵键盘键值的扫描,右更为简单的线反转法 也可实现 uchar i;while(ms-)for(i=0;i250;i+)_nop_();_nop_();_nop_();_nop_();uchar keyscan()uchar temp,key;P1=0xfe;temp=P1;temp=temp&0xf0;if(temp!=0xf0)delay(10);temp=P1; temp=temp&0xf0;if(temp!=0xf0)temp=P1;switch(temp)case 0xee:key=1;break;case 0xde:key=2;break;case 0xbe:key=3;break;case 0x7e:key=4;break; while(temp!=0xf0) /等待按键松开 temp=P1;temp=temp&0xf0;P1=0xfd;temp=P1;temp=temp&0xf0;if(temp!=0xf0)delay(10);temp=P1; temp=temp&0xf0;if(temp!=0xf0)temp=P1;switch(temp)case 0xed:key=5;break;case 0xdd:key=6;break;case 0xbd:key=7;break;case 0x7d:key=8;break; while(temp!=0xf0) temp=P1;temp=temp&0xf0;P1=0xfb;temp=P1;temp=temp&0xf0;if(temp!=0xf0)delay(10);temp=P1; temp=temp&0xf0;if(temp!=0xf0)temp=P1;switch(temp)case 0xeb:key=9;break;case 0xdb:key=10;break;case 0xbb:key=11;break;case 0x7b:key=12;break; while(temp!=0xf0) temp=P1;temp=temp&0xf0;P1=0xf7;temp=P1;temp=temp&0xf0;if(temp!=0xf0)delay(10);temp=P1; temp=temp&0xf0;if(temp!=0xf0)temp=P1;switch(temp)case 0xe7:key=13;break;case 0xd7:key=14;break;case 0xb7:key=15;break;case 0x77:key=16;break; while(temp!=0xf0) temp=P1;temp=temp&0xf0;return key;void display(uchar m,uchar n,uchar x,uchar y)P0=Tabm;P2=0xfe;delay(1); /小于1ms才能产生人眼的视觉暂留P0=Tabn;P2=0xfd;delay(1);P0=Tabx;P2=0xfb;delay(1);P0=Taby;P2=0xf7;delay(1);void main()uchar temp,key_Value,key_Value1,key_Value2,key_Value3;while(1) temp=keyscan(); if(temp=1) key_Value=temp;display(key_Value,11,11,11);flag=1;if(flag=1)temp=keyscan();if(temp=2)key_Value1=temp;display(key_Value,key_Value1,11,11);flag1=1;if(flag1=1)temp=keyscan();if(temp=3) key_Value2=temp; display(key_Value,key_Value1,key_Value2,11); flag2=1;if(flag2=1)temp=keyscan();if(temp=4)key_Value3=temp;display(key_Value,key_Value1,key_Value2,

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论