功能很全的單片機電子密碼鎖Proteus仿真與源碼分享

ID:88481 · 發(fā)表于 2018-4-20 17:51

電子密碼鎖仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

資料包：

密碼鎖的單片機源程序如下:

/********
1.按鍵說明: 按鍵K1~K3為數(shù)字"1~3",K5~K7為數(shù)字"4~6",K9~K11為數(shù)字"7~9",
K13為"0",K14為設(shè)置鍵,K15為取消鍵,K16為回車鍵.
2.程序說明: 按數(shù)字鍵輸入正確密碼,回車確定.LED亮.否則5次錯誤,蜂鳴器響.按鍵暫時失效.
按設(shè)置鍵進入修改密碼,先輸入舊密碼,再輸入兩次新密碼,回車確定.
關(guān)電后密碼自動保存.
3.使用說明: 先找到程序中"E2Read(num0,0x05,sizeof(num0));"語句屏蔽后下載到單片機,
操作一次密碼設(shè)置(初始密碼為"0"),以清除EEPROM內(nèi)原有數(shù)據(jù),關(guān)電.解除屏蔽再下載. **********/
#include "Lcd1602.h"
#include "Key.h"
#include "Eeprom.h"
bit BeedOn = 0; //蜂鳴器標志
bit set = 0; //設(shè)置標志
bit On = 0; //密碼打開標志
bit clag = 0; //清除輸入指針標志
uchar Paserror = 0; //密碼錯誤次數(shù)
uchar Passcou = 0; //更改密碼引索
uchar T0RH=0,T0RL=0;
uchar num0[8],num1[8],num2[8];
void ConfigTime0(uchar ms);
void main()
{
EA = 1;
ConfigTime0(2);
Lcd1602Init();
E2Read(num0,0x05,sizeof(num0));
LcdShowStr(0,0,"Please input...");
while(1)
{
KeyDriver();
}
}
void InCoumNum(uchar *buf,uchar n) //輸入數(shù)據(jù)
{
static uchar i;
if (clag)
{
i = 0;
clag = 0;
}
if (i < 8)
{
buf[i] = n;
i++;
LcdShowStr(16-i,1,"*");
}
else
i = 0;
}
bit ContNum(uchar *dat1,uchar *dat2) //對比數(shù)據(jù)
{
uchar i;
for (i=0;i<8;i++)
{
if (*dat1++ != *dat2++)
return 0;
}
return 1;
}
void ClsNum(uchar *dat) //清除數(shù)據(jù)
{
uchar i;
for (i=0;i<8;i++)
{
*dat++ = 0;
}
}
void CopyNum(uchar *dat1,uchar *dat2) //復(fù)制數(shù)據(jù)
{
uchar i;
for (i=0;i<8;i++)
{
*dat1++ = *dat2++;
}
}
void PasErrCou() //密碼錯誤次數(shù)顯示
{
uchar str[1];
Paserror++;
str[0] = Paserror+'0';
LcdShowStr(0,1,"ERROR");
LcdShowStr(6,1,str);
if (Paserror >= 5)
{
BeedOn = 1;
}
}
void SetPass()
{
if (!On && !set)
{
LcdClsFull();
LcdShowStr(0,0,"Set the Passwor");
set = 1;
}
}
void Esc() //復(fù)位
{
Passcou = 0;
On = 0;
set = 0;
BeedOn = 0;
Pout = 1;
clag = 1;
ClsNum(num1);
ClsNum(num2);
}
void Enter()
{
if (!set)
{
if (!ContNum(num1,num0))
{
ClsNum(num1);
LcdClsStr(0,1,16);
PasErrCou();
}
else
{
LcdClsFull();
LcdShowStr(0,0,"Welcome to use!");
LcdShowStr(0,1,"Turn ON");
ClsNum(num1);
Paserror =0;
Pout = 0;
On = 1;
}
}
else
{
switch (Passcou)
{
case 0: if (ContNum(num1,num0)) //密碼輸入正確
{
LcdClsFull();
LcdShowStr(0,0,"Enter the new");
ClsNum(num1);
Passcou = 1;
}
else //密碼輸入錯誤清除輸入數(shù)
{
ClsNum(num1);
LcdClsStr(0,1,16);
PasErrCou();
}
break;
case 1: LcdClsFull();
LcdShowStr(0,0,"Enter new too");
Passcou = 2;
break;
case 2: if (ContNum(num1,num2))
{
LcdClsFull();
LcdShowStr(0,0,"Set pass OK ");
CopyNum(num0,num2);
E2Write(num0,0x05,sizeof(num0));
Esc();
}
else
{
ClsNum(num2);
LcdClsStr(0,1,16);
}
default: break;
}
}
clag = 1;
}
void KeyAction(uchar kcod)
{
if (Paserror < 5)
{
if ((kcod >= 0x00) && (kcod <= 0x09))
{
if (!On) //密碼打開狀態(tài)禁止輸入
{
switch(Passcou)
{
case 0: InCoumNum(num1,kcod); //輸入數(shù)字
break;
case 1: InCoumNum(num1,kcod);
break;
case 2: InCoumNum(num2,kcod);
break;
default:
break;
}
}
}
else if (kcod == 0x1b)
{
if (!On)
SetPass(); //設(shè)置密碼
}
else if (kcod == 0x0d) //復(fù)位
{
LcdClsStr(0,1,16);
LcdShowStr(0,0,"Please input...");
Esc();
}
else if (kcod == 0x27)
{
if (!On)
Enter(); //確認
}
}
}
void ConfigTime0(uchar ms)
{
ulong tmp;
tmp = 11059200/12;
tmp = (tmp*ms)/1000;
tmp = (65536-tmp);
T0RH = (uchar)(tmp>>8);
T0RL = (uchar)tmp;
TH0 = T0RH;
TL0 = T0RL;
TMOD &= 0xf0;
TMOD |= 0x01;
TR0 = 1;
ET0 = 1;
}
void InterruptTime0() interrupt 1
{
static uint Errortime = 0; //密碼錯誤計時
TH0 = T0RH;
TL0 = T0RL;
KeyScan();
if (BeedOn)
Bee = ~Bee;
else
Bee = 1;
if (Paserror >= 5)
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復(fù)制代碼

所有資料51hei提供下載:

密碼鎖.zip (100.26 KB, 下載次數(shù): 81)

ID:543147 · 發(fā)表于 2019-5-20 21:21

解決了我仿真不出圖的問題

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

功能很全的單片機電子密碼鎖Proteus仿真與源碼分享