基于單片機1602和矩陣鍵盤的密碼鎖

ID:63924 · 發表于 2014-8-29 15:24

/*******************************************************************************************
程序名稱：單片機電子密碼鎖（可修改設置密碼）——基于51單片機與AT24C02與LCD1602顯示
————————————————單片機實驗課大作業——————————————————
程序介紹：輸入正確密碼時，液晶屏提示，打開繼電器，然后燈泡亮，蜂鳴器開始播放音樂；
   輸入密碼錯誤時, 液晶屏提示,當三次錯誤時，蜂蜜器發出報警聲
作者：walt740
編寫日期：2013/12/16
********************************************************************************************/
#include<reg52.h>
#include<string.h>
#include<intrins.h>
#include<compact.h>
#include<lcd1602.h>
#include<iic.h>
#include<keyboard.h>
#include<sounder.h>

void total_init(); //  總初始化
void lock_process(); // 密碼鎖處理過程
/***********************************************************************/
void main() //主函數
{
total_init();
while(1)
{
   lock_process();
}

}
/**********************************************************************/
void total_init()    //  總初始化
{

beep=0;
Time0_Init(); //定時器0中斷初始化
init();
init_lcd();
delayms(5);
/*------------------------------修改代碼(2014.8.29)-------------------------------------------*/

aa=Recstring(0xa0,1,buffer,6); //先從EEPROM中接收數據，存入buffer緩存中，
delayms(5);
if(buffer[0]==NULL)    //如果數組的首個元素為空，則表示EEPROM中未有數據
{
aa=Sendstring(0xa0,1,table2,6);    //執行發送語句，將默認密碼存入EEPROM中
delayms(5);
aa=Recstring(0xa0,1,buffer,6);    //重新接收數據，存入buffer緩存中，
delayms(10);
} /*首次執行密碼鎖程序會執行本段程序，以后則直接執行 aa=Recstring(0xa0,1,buffer,6);/

/*---------------------------------------------------------------------------------------------*/
P1=0x0f;
}
/**********************************************************************/
void lock_process() // 密碼鎖處理過程
{

if(P1!=0x0f)
{
temp=Keys_Scan();
switch(temp)
      {
         case 0:  case 1: case 2: case 3: case 4:
         case 5:  case 6: case 7: case 8: case 9:
            if (i<=5)          //密碼限制在6位以內
            {
               Userpassword=temp;
               DSY_BUFFER='*';
               Display_String(DSY_BUFFER,0xc0);
   i++;
            }break;
         case 10: //按A鍵開鎖
         for(k=0;k<6;k++)
{
      if(buffer[k]==(Userpassword[k]+48))
   flag=1;
else
   flag=0;
      }
            if (flag==1)
               {
   flag=0;
         i=0;
               relay=0;  //點亮LED
               clear_password();
               Display_String("OPEN OK!    ",0xc0);
               IS_valid_user = 1;
   j=0;
   Play_Song(0); //播放
               }
            else
            {
   j++;
               relay=1; //關閉LED
               clear_password();
               Display_String("ERROR!Have try ",0xc0);
   write_com(0xcf);
   write_date(0x30+j);
               IS_valid_user=0;
            }
               i=0;
            break;

         case 11: //按B鍵上鎖
               relay=1;
               clear_password();
               Display_String(table,0x80);
               Display_String("Lock OK!       ",0xc0);
               i=0;
               IS_valid_user=0;
            break;

         case 12: //按C鍵設置新密碼
                     //如果是合法用戶則提示輸入新密碼
            if ( !IS_valid_user)
{
i=0;
Display_String("No rights !    ",0xc0);
delayms(1000);
Display_String("Input Password...",0x80);
Display_String("Lock OK!       ",0xc0);
      }
            else
            {
                  i=0;
                  Display_String("New Password: ",0x80);
                  Display_String("             ",0xc0);
            }

            break;

         case 13: //按D鍵保存新密碼
            if ( !IS_valid_user)
{
i=0;
Display_String("No rights !    ",0xc0);
delayms(1000);
      Display_String("Input Password...",0x80);
      Display_String("Lock OK!       ",0xc0);
}
            else
            {
i = 0;
init();
delayms(5);
for(k=0;k<6;k++)
{
   Userpassword[k]=Userpassword[k]+48;
}
                  aa=Sendstring(0xa0,1,Userpassword,6);
delayms(5);
                  aa=Recstring(0xa0,1,buffer,6);
delayms(5);
                  clear_password();
                  Display_String(table,0x00);
                  Display_String("Password Saved! ",0xc0);
delayms(1000);
Display_String("Do lock agian ? ",0xc0);
                  }
            break;

         case 14: //按E鍵消除所有輸入
            i=0;
            clear_password();
            Display_String("             ",0xc0);
      break;

   case 15:    //清除一位
      if(i!=0)i--;
for(n=0;n<i;n++)
{
   DSY_BUFFER1[n]='*';
}
      Display_String(DSY_BUFFER1,0xc0);

}
P1=0x0f;
}
if(j==3)
{
Display_String("THIEF!!!THIEF!!!",0xc0);
j=0;
bell();
}
}
/***********************************END**************************************/
音樂數組文件
unsigned char code SONG[] ={    //祝你平安
0x26,0x20,0x20,0x20,0x20,0x20,0x26,0x10,0x20,0x10,0x20,0x80,0x26,0x20,0x30,0x20,
0x30,0x20,0x39,0x10,0x30,0x10,0x30,0x80,0x26,0x20,0x20,0x20,0x20,0x20,0x1c,0x20,
0x20,0x80,0x2b,0x20,0x26,0x20,0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x80,0x26,0x20,
0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x60,0x40,0x10,0x39,0x10,0x26,0x20,
0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x80,0x26,0x20,0x2b,0x10,0x2b,0x10,
0x2b,0x20,0x30,0x10,0x39,0x10,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x20,
0x20,0x10,0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x18,0x20,0x18,0x20,0x26,0x20,
0x20,0x20,0x20,0x40,0x26,0x20,0x2b,0x20,0x30,0x20,0x30,0x20,0x1c,0x20,0x20,0x20,
0x20,0x80,0x1c,0x20,0x1c,0x20,0x1c,0x20,0x30,0x20,0x30,0x60,0x39,0x10,0x30,0x10,
0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x10,0x26,0x10,0x26,0x10,0x2b,0x10,0x2b,0x80,
0x18,0x20,0x18,0x20,0x26,0x20,0x20,0x20,0x20,0x60,0x26,0x10,0x2b,0x20,0x30,0x20,
0x30,0x20,0x1c,0x20,0x20,0x20,0x20,0x80,0x26,0x20,0x30,0x10,0x30,0x10,0x30,0x20,
0x39,0x20,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x10,0x40,0x10,0x20,0x10,
0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x00,
                              //路邊的野華不要采
0x30,0x1C,0x10,0x20,0x40,0x1C,0x10,0x18,0x10,0x20,0x10,0x1C,0x10,0x18,0x40,0x1C,
0x20,0x20,0x20,0x1C,0x20,0x18,0x20,0x20,0x80,0xFF,0x20,0x30,0x1C,0x10,0x18,0x20,
0x15,0x20,0x1C,0x20,0x20,0x20,0x26,0x40,0x20,0x20,0x2B,0x20,0x26,0x20,0x20,0x20,
0x30,0x80,0xFF,0x20,0x20,0x1C,0x10,0x18,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,
0x20,0x2B,0x40,0x20,0x20,0x1C,0x10,0x18,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,
0x20,0x2B,0x40,0x20,0x30,0x1C,0x10,0x18,0x20,0x15,0x20,0x1C,0x20,0x20,0x20,0x26,
0x40,0x20,0x20,0x2B,0x20,0x26,0x20,0x20,0x20,0x30,0x80,0x20,0x30,0x1C,0x10,0x20,
0x10,0x1C,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,0x20,0x2B,0x40,0x20,0x15,0x1F,
0x05,0x20,0x10,0x1C,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,0x20,0x2B,0x40,0x20,
0x30,0x1C,0x10,0x18,0x20,0x15,0x20,0x1C,0x20,0x20,0x20,0x26,0x40,0x20,0x20,0x2B,
0x20,0x26,0x20,0x20,0x20,0x30,0x30,0x20,0x30,0x1C,0x10,0x18,0x40,0x1C,0x20,0x20,
0x20,0x26,0x40,0x13,0x60,0x18,0x20,0x15,0x40,0x13,0x40,0x18,0x80,0x00,

};
還有很多，你們可以看壓縮包里的

ID:63924 · 發表于 2014-8-29 15:35

初始密碼 123456

ID:51025 · 發表于 2014-8-29 17:39

今天一上來就看到這么好的作品當然要給分了

ID:63924 · 發表于 2014-8-29 18:11

如果密碼忘記了可以用其他含有iic的程序覆蓋就行了

ID:63924 · 發表于 2014-8-29 18:16

比如

/*-----------------------------------------------
  名稱：IIC協議 EEPROM24c02 存數讀取數據
  編寫：shifang
  修改：無
  內容：此程序用于檢測EEPROM性能，測試方法如下：寫入24c02一個數據，然后在內存中改變這些數據，
      掉電后主內存將失去這些信息，然后從24c02中調入這些數據。看是否與寫入的相同。這里用8個LED演示
            函數是采用軟件延時的方法產生SCL脈沖,固對高晶振頻率要作一定的修改....(本例是1us機器
            周期,即晶振頻率要小于12MHZ)
------------------------------------------------*/


#include <reg52.h>       //頭文件的包含
#include <intrins.h>

#define  _Nop()  _nop_()       //定義空指令

// 常,變量定義區


sbit SDA=P2^3;          //模擬I2C數據傳送位
sbit SCL=P2^2;          //模擬I2C時鐘控制位


bit ack;                   //應答標志位

void DelayUs2x(unsigned char t);//函數聲明
void DelayMs(unsigned char t);

/*------------------------------------------------
uS延時函數，含有輸入參數 unsigned char t，無返回值
unsigned char 是定義無符號字符變量，其值的范圍是
0~255 這里使用晶振12M，精確延時請使用匯編,大致延時
長度如下 T=tx2+5 uS
------------------------------------------------*/
void DelayUs2x(unsigned char t)
{
while(--t);
}
/*------------------------------------------------
mS延時函數，含有輸入參數 unsigned char t，無返回值
unsigned char 是定義無符號字符變量，其值的范圍是
0~255 這里使用晶振12M，精確延時請使用匯編
------------------------------------------------*/
void DelayMs(unsigned char t)
{

while(t--)
{
   //大致延時1mS
   DelayUs2x(245);
      DelayUs2x(245);
}
}

/*------------------------------------------------
                  啟動總線
------------------------------------------------*/
void Start_I2c()
{
  SDA=1; //發送起始條件的數據信號
  _Nop();
  SCL=1;
  _Nop(); //起始條件建立時間大于4.7us,延時
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  SDA=0;    //發送起始信號
  _Nop(); //起始條件鎖定時間大于4μ
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  SCL=0; //鉗住I2C總線，準備發送或接收數據
  _Nop();
  _Nop();
}
/*------------------------------------------------
                  結束總線
------------------------------------------------*/
void Stop_I2c()
{
  SDA=0; //發送結束條件的數據信號
  _Nop(); //發送結束條件的時鐘信號
  SCL=1; //結束條件建立時間大于4μ
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  _Nop();
  SDA=1; //發送I2C總線結束信號
  _Nop();
  _Nop();
  _Nop();
  _Nop();
}

/*----------------------------------------------------------------
               字節數據傳送函數
函數原型: void  SendByte(unsigned char c);
功能:  將數據c發送出去,可以是地址,也可以是數據,發完后等待應答,并對
   此狀態位進行操作.(不應答或非應答都使ack=0 假)
   發送數據正常，ack=1; ack=0表示被控器無應答或損壞。
------------------------------------------------------------------*/
void  SendByte(unsigned char c)
{
unsigned char BitCnt;

for(BitCnt=0;BitCnt<8;BitCnt++)  //要傳送的數據長度為8位
{
   if((c<<BitCnt)&0x80)SDA=1; //判斷發送位
   else  SDA=0;
   _Nop();
   SCL=1;             //置時鐘線為高，通知被控器開始接收數據位
   _Nop();
   _Nop();          //保證時鐘高電平周期大于4μ
   _Nop();
   _Nop();
   _Nop();
   SCL=0;
}

_Nop();
_Nop();
SDA=1;             //8位發送完后釋放數據線，準備接收應答位
_Nop();
_Nop();
SCL=1;
_Nop();
_Nop();
_Nop();
if(SDA==1)ack=0;
   else ack=1;       //判斷是否接收到應答信號
SCL=0;
_Nop();
_Nop();
}

/*----------------------------------------------------------------
               字節數據傳送函數
函數原型: unsigned char  RcvByte();
功能:  用來接收從器件傳來的數據,并判斷總線錯誤(不發應答信號)，
   發完后請用應答函數。
------------------------------------------------------------------*/
unsigned char  RcvByte()
{
  unsigned char retc;
  unsigned char BitCnt;

  retc=0;
  SDA=1;          //置數據線為輸入方式
  for(BitCnt=0;BitCnt<8;BitCnt++)
   {
      _Nop();
      SCL=0;    //置時鐘線為低，準備接收數據位
      _Nop();
      _Nop();    //時鐘低電平周期大于4.7us
      _Nop();
      _Nop();
      _Nop();
      SCL=1;    //置時鐘線為高使數據線上數據有效
      _Nop();
      _Nop();
      retc=retc<<1;
      if(SDA==1)retc=retc+1; //讀數據位,接收的數據位放入retc中
      _Nop();
      _Nop();
   }
  SCL=0;
  _Nop();
  _Nop();
  return(retc);
}

/*----------------------------------------------------------------
                  應答子函數
原型:  void Ack_I2c(void);

----------------------------------------------------------------*/
void Ack_I2c(void)
{

  SDA=0;
  _Nop();
  _Nop();
  _Nop();
  SCL=1;
  _Nop();
  _Nop();             //時鐘低電平周期大于4μ
  _Nop();
  _Nop();
  _Nop();
  SCL=0;             //清時鐘線，鉗住I2C總線以便繼續接收
  _Nop();
  _Nop();
}
/*----------------------------------------------------------------
                  非應答子函數
原型:  void NoAck_I2c(void);

----------------------------------------------------------------*/
void NoAck_I2c(void)
{

  SDA=1;
  _Nop();
  _Nop();
  _Nop();
  SCL=1;
  _Nop();
  _Nop();             //時鐘低電平周期大于4μ
  _Nop();
  _Nop();
  _Nop();
  SCL=0;             //清時鐘線，鉗住I2C總線以便繼續接收
  _Nop();
  _Nop();
}

/*----------------------------------------------------------------
                  向無子地址器件發送字節數據函數
函數原型: bit  ISendByte(unsigned char sla,ucahr c);
功能:    從啟動總線到發送地址，數據，結束總線的全過程,從器件地址sla.
         如果返回1表示操作成功，否則操作有誤。
注意：使用前必須已結束總線。
----------------------------------------------------------------*/
/*bit ISendByte(unsigned char sla,unsigned char c)
{
Start_I2c();             //啟動總線
SendByte(sla);          //發送器件地址
   if(ack==0)return(0);
SendByte(c);             //發送數據
   if(ack==0)return(0);
  Stop_I2c();                //結束總線
  return(1);
}
*/

/*----------------------------------------------------------------
                  向有子地址器件發送多字節數據函數
函數原型: bit  ISendStr(unsigned char sla,unsigned char suba,ucahr *s,unsigned char no);
功能:    從啟動總線到發送地址，子地址,數據，結束總線的全過程,從器件
      地址sla，子地址suba，發送內容是s指向的內容，發送no個字節。
         如果返回1表示操作成功，否則操作有誤。
注意：使用前必須已結束總線。
----------------------------------------------------------------*/
bit ISendStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no)
{
unsigned char i;

Start_I2c();             //啟動總線
SendByte(sla);          //發送器件地址
   if(ack==0)return(0);
SendByte(suba);          //發送器件子地址
   if(ack==0)return(0);

for(i=0;i<no;i++)
{
   SendByte(*s);          //發送數據
   if(ack==0)return(0);
   s++;
}
Stop_I2c();                //結束總線
  return(1);
}

/*----------------------------------------------------------------
                  向無子地址器件讀字節數據函數
函數原型: bit  IRcvByte(unsigned char sla,ucahr *c);
功能:    從啟動總線到發送地址，讀數據，結束總線的全過程,從器件地
      址sla，返回值在c.
         如果返回1表示操作成功，否則操作有誤。
注意：使用前必須已結束總線。
----------------------------------------------------------------*/
/*bit IRcvByte(unsigned char sla,unsigned char *c)
{
Start_I2c();             //啟動總線
SendByte(sla+1);          //發送器件地址
   if(ack==0)return(0);
*c=RcvByte();             //讀取數據
   NoAck_I2c();             //發送非就答位
   Stop_I2c();             //結束總線
  return(1);
}

*/
/*----------------------------------------------------------------
                  向有子地址器件讀取多字節數據函數
函數原型: bit  ISendStr(unsigned char sla,unsigned char suba,ucahr *s,unsigned char no);
功能:    從啟動總線到發送地址，子地址,讀數據，結束總線的全過程,從器件
      地址sla，子地址suba，讀出的內容放入s指向的存儲區，讀no個字節。
         如果返回1表示操作成功，否則操作有誤。
注意：使用前必須已結束總線。
----------------------------------------------------------------*/
bit IRcvStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no)
{
unsigned char i;

Start_I2c();             //啟動總線
SendByte(sla);          //發送器件地址
   if(ack==0)return(0);
SendByte(suba);          //發送器件子地址
   if(ack==0)return(0);

Start_I2c();
SendByte(sla+1);
   if(ack==0)return(0);

for(i=0;i<no-1;i++)
{
   *s=RcvByte();             //發送數據
   Ack_I2c();             //發送就答位
   s++;
}
*s=RcvByte();
NoAck_I2c();                //發送非應位
Stop_I2c();                   //結束總線
  return(1);
}
/*------------------------------------------------
                  主函數
------------------------------------------------*/
void main()
      {
      unsigned char flye;    // 定義臨時變量
      unsigned char i;

      IRcvStr(0xae,4,&flye,1);  //調用存儲數據

      while(1)
            {
               P1=flye;          //數值用二進制顯示，直接用8個LED表示
      for(i=0;i<5;i++)
            DelayMs(200);
      flye++;             //1s鐘變量自加1，改變值后存儲到24c02
                              //下次開機時將顯示當前數值
      ISendStr(0xae,4,&flye,1); //寫入24c02
               }
}

ID:63924 · 發表于 2014-8-29 18:18

lizi 發表于 2014-8-29 17:39
今天一上來就看到這么好的作品當然要給分了

好的，謝謝你

ID:63924 · 發表于 2014-8-29 22:18

實物初始密碼，000000

ID:63924 · 發表于 2014-8-29 22:18

實物初始密碼，000000

ID:66341 · 發表于 2014-9-19 16:20

今天一上來就看到這么好的作品當然要給分了

ID:66574 · 發表于 2014-9-24 12:28

好！值得頂起

ID:65893 · 發表于 2014-10-5 21:11

值得學習大的作品啊,謝謝樓主

ID:67760 · 發表于 2014-10-22 07:35

剛有做這個實驗的想法，感謝分享

ID:63924 · 發表于 2014-10-22 13:58

不用謝

ID:66501 · 發表于 2014-10-24 14:03

掘墓高手，專挖古墓，一挖一個坑，坑坑見墓。。

ID:63924 · 發表于 2014-10-25 08:05

什么的

ID:68421 · 發表于 2014-11-6 00:05

非常好的學習例程感謝樓主

ID:63924 · 發表于 2014-11-6 00:25

不用謝，

ID:65916 · 發表于 2014-11-6 21:25

非常給力

ID:70255 · 發表于 2014-12-27 18:44

厲害著都做得出來a

ID:71889 · 發表于 2015-1-9 00:00

贊一個

ID:70129 · 發表于 2015-1-11 17:20

謝謝樓主分享，和，很優秀的作品。

ID:79247 · 發表于 2015-5-7 22:23

請問各位大神,基于51單片機的電子密碼鎖,4*4按鍵沒反應有可能是什么原因啊,程序是別人做成功過的,電路也是照著焊的,查了好多遍,電路是通的,沒有短路,求大神指導

ID:75461 · 發表于 2015-5-7 23:09

好資料，頂起。。。

ID:80646 · 發表于 2015-5-20 22:46

好資料，下下來看看

ID:81073 · 發表于 2015-5-25 16:43

為什么我輸入密碼123456和000000都不對呢

ID:63924 · 發表于 2015-6-3 18:14

xxxxx111 發表于 2015-5-25 16:43
為什么我輸入密碼123456和000000都不對呢

你好，因為我近端來都沒有上論壇，沒有能看，你的問題你先仿真，鍵盤的和實際的有差別。

ID:63924 · 發表于 2015-6-3 18:14

bhjyqjs 發表于 2015-5-29 08:41
支持樓主

謝謝，，，。

ID:44267 · 發表于 2015-9-7 09:08

怎么不行啊

ID:79034 · 發表于 2015-9-11 19:08

好東西，值得學習。。

ID:93718 · 發表于 2015-10-27 10:54

新手報道學習學習

ID:64089 · 發表于 2015-12-22 18:03

GOOD JOB.I LIKE IT VERY MUCH!

ID:100253 · 發表于 2015-12-24 09:02

PROTEUS 完整的設計圖可以發下么？仿真文件，打不開

ID:99692 · 發表于 2015-12-24 09:38

好東西值得學習。謝謝樓主分享

ID:111090 · 發表于 2016-3-28 09:41

謝謝樓主，收藏了

ID:116631 · 發表于 2016-4-25 19:00

大贊樓主，給力給力

ID:92231 · 發表于 2016-4-28 09:26

榪欎箞瀹屾暣鐨勫伐紼嬶紝瀛︿範浜嗭紝璋㈣阿妤間富寮

ID:92231 · 發表于 2016-4-28 09:27

怎么出現亂碼了！

ID:63924 · 發表于 2016-4-29 22:09

怎么回事，是仿真時候還是程序

ID:63924 · 發表于 2016-4-30 12:00

密碼為：123456 最右邊的有提示

ID:63924 · 發表于 2016-4-30 12:01

whengfu 發表于 2016-4-28 09:27
怎么出現亂碼了！

你好，我的仿真和keil都沒有出現亂碼

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

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

基于單片機1602和矩陣鍵盤的密碼鎖

評分

評分