電子密碼鎖設(shè)計(jì)24c01+12864,希望能幫到大家

ID:164371 · 發(fā)表于 2017-6-13 21:52

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）：

單片機(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};
/************************ 密碼校驗(yàn)函數(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);
}
/****************************** 延時(shí)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(); //顯示：請(qǐng)輸入密碼
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)，若密碼不正確則顯示密碼錯(cuò)誤，重新輸入密碼
{
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);
}
……………………
…………限于本文篇幅余下代碼請(qǐng)從51黑下載附件…………

復(fù)制代碼

所有資料51hei提供下載:

電子密碼鎖.zip (121.93 KB, 下載次數(shù): 141)

ID:82765 · 發(fā)表于 2017-6-14 09:39

提示: 作者被禁止或刪除內(nèi)容自動(dòng)屏蔽

ID:164371 · 發(fā)表于 2017-6-14 14:09

因?yàn)榘l(fā)送過于匆忙有些引腳的定義大家自己修改一下，程序是絕對(duì)沒問題的

ID:211258 · 發(fā)表于 2017-6-14 22:33

謝謝分享，太好了正好需要

ID:210484 · 發(fā)表于 2017-6-15 08:54

感謝樓主分享

ID:803444 · 發(fā)表于 2020-7-26 21:35

a8818075 發(fā)表于 2017-6-14 14:09
因?yàn)榘l(fā)送過于匆忙有些引腳的定義大家自己修改一下，程序是絕對(duì)沒問題的

朋友，是不是rs...rw...e三個(gè)要改，但是改了也不行啊，望指導(dǎo)，萬分感謝

ID:771985 · 發(fā)表于 2020-8-7 17:36

樓主，要設(shè)置多個(gè)密碼都能夠開鎖，程序要怎么搞呢

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

ID:82765 當(dāng)前離線積分 1420	沙發(fā) ID:82765 發(fā)表于 2017-6-14 09:39 \| 只看該作者提示: 作者被禁止或刪除內(nèi)容自動(dòng)屏蔽
ID:82765 當(dāng)前離線積分 1420
	回復(fù) 使用道具舉報(bào)

wwwxxx国产_337p日本欧洲亚洲大胆张筱雨_免费在线看成人av_日本黄色不卡视频_国产精品成熟老女人_99视频一区_亚洲精品97久久中文字幕_免费精品视频在线_亚洲色图欧美视频_欧美一区二三区

電子密碼鎖設(shè)計(jì)24c01+12864,希望能幫到大家

評(píng)分

相關(guān)帖子

	6^# 無效樓層，該帖已經(jīng)被刪除

	8^# 無效樓層，該帖已經(jīng)被刪除