|
仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載):
%EV9YHP]`57I%~XTFX9(826.png (97.15 KB, 下載次數(shù): 97)
下載附件
2017-6-13 21:49 上傳
0.png (58.06 KB, 下載次數(shù): 101)
下載附件
2017-6-14 00:35 上傳
單片機(jī)源程序如下:
- #include<reg51.h>
- #include<keyinput.h>
- #include<12864.h>
- #include<24C01.h>
- #define uchar unsigned char
- #define uint unsigned int
- sbit LED1=P1^5;
- sbit LED2=P1^6;
- sbit INIT=P2^2;
- sbit SOUND=P1^7;
- uchar idata key[6]={0,0,0,0,0,0};
- uchar idata iic[6]={0,1,2,3,4,5};
- /************************ 密碼校驗函數(shù) **************************/
- void press(uchar *s) {
- uchar dat;
- P3=0xf0; //第一位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,16);
- }
- s++;
- P3=0xf0; //第二位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,24);
- }
- s++;
- P3=0xf0; //第三位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,32);
- }
- s++;
- P3=0xf0; //第四位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,40);
- }
- s++;
- P3=0xf0; //第五位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,48);
- }
- s++;
- P3=0xf0; //第六位密碼
- while(P3==0xf0);
- dat=key_scan();
- if((dat!=0x0a)&&(dat!=0x0b))
- { *s=dat;
- Left();
- star_12864(star,0x05,56);
- }
- do{P3=0xf0; //鍵入Enter鍵盤繼續(xù)執(zhí)行下面語句,否則等待
- while(P3==0xf0);
- dat=key_scan();
- }while(dat!=0x0b);
- }
- /****************************** 延時10ms函數(shù) *******************************/
- void Delay10ms(void) {
- uint i,j,k;
- for(i=5;i>0;i--)
- for(j=4;j>0;j--)
- for(k=248;k>0;k--);
- }
- /****************************** 主函數(shù) *******************************/
- void main() {
- uchar dat;
- uchar i=0,j=0,k;
- uchar x;
- LED1=1;
- LED2=1;
- SOUND=0;
- INIT=1;
- if(INIT==0){ //密碼初始化,先從IIC器件中讀出密碼以供下面輸入密碼進(jìn)行比較
- x=SendB(iic,0x50,6);
- Delay10ms();
- }
- x=ReadB(iic,0x50,6);
- Init_12864();
- for(i=0;i<50;i++){Delay10ms();}
- do{ //若密碼不正確,循環(huán)執(zhí)行do{}while()
- LED1=1;
- System(); //顯示:請輸入密碼
- press(key);
- if((key[0]==iic[0])&&(key[1]==iic[1])&&(key[2]==iic[2])&&(key[3]==iic[3])&&(key[4]==iic[4])&&(key[5]==iic[5])) //密碼比較,若密碼正確責(zé)進(jìn)入系統(tǒng),若密碼不正確則顯示密碼錯誤,重新輸入密碼
- {
- true();
- do {
- P3=0xf0; //鍵入1或2繼續(xù)執(zhí)行下面語句,否則等待
- while(P3==0xf0);
- dat=key_scan();
- }while(dat!=0x01&&dat!=0x02);
- if(dat==1) { //開鎖
- LED1=0; j=0;
- unlock();
- for(i=0;i<100;i++){Delay10ms();}
- continue;
- }
- if(dat==2) { //修改密碼
- do{
- j=0;
- System();
- press(key);
- again();
- press(iic);
- if((key[0]==iic[0])&&(key[1]==iic[1])&&(key[2]==iic[2])&&(key[3]==iic[3])&&(key[4]==iic[4])&&(key[5]==iic[5]))
- {
- succeed(); //修改密碼成功
- for(i=0;i<100;i++){Delay10ms();}
- Delay10ms();
- x=SendB(iic,0x50,6);
- Delay10ms();
- x=ReadB(iic,0x50,6);break;
- }
- else { //修改密碼不成功,重新修改
- repeat();
- for(i=0;i<100;i++){Delay10ms();}
- }
- }while(1);
- }
-
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼
所有資料51hei提供下載:
電子密碼鎖.zip
(121.93 KB, 下載次數(shù): 141)
2017-6-13 21:50 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|
評分
-
查看全部評分
|