自己做的基于單片機(jī)的密碼鎖設(shè)計(jì)（c語言設(shè)計(jì)）

系統(tǒng)說明

     該系統(tǒng)如圖所示使用了80C51單片機(jī)、普通鍵盤、排阻、1602液晶。

該系統(tǒng)的功能：

    ①該系統(tǒng)輸入正確的密碼LED燈會(huì)亮（其實(shí)就是很多操作都可以，用LED只是代表作用，主要是操作簡(jiǎn)單，效果明顯。）

②系統(tǒng)可以修改密碼；（系統(tǒng)斷電后重啟后必須用初始密碼（初始密碼是：000000）重新改密，當(dāng)然修改的密碼可以與掉電前的一樣。）

具體操作：

      ①系統(tǒng)開機(jī)時(shí)顯示請(qǐng)輸入密碼的提示,直接輸入密碼#鍵確認(rèn)

②系統(tǒng)會(huì)自動(dòng)提醒密碼錯(cuò)誤，數(shù)秒后系統(tǒng)會(huì)再次提醒重新輸密碼。

③在系統(tǒng)提醒輸入密碼的界面可以按*鍵修改密碼，系統(tǒng)會(huì)提醒輸入兩次密碼，并且會(huì)檢查兩次密碼是否相同。同則修改成功。否則在數(shù)秒后可以重新按*鍵修改。

④在改密前（就是按了*鍵后系統(tǒng)）會(huì)提醒身份識(shí)別，請(qǐng)輸入舊密碼，系統(tǒng)判斷舊密碼正確方可更改密碼。

源程序

#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit lcdrs=P3^0;
sbit lcdrw=P3^1;
sbit lcden=P3^2;
sbit h1=P1^0;
sbit h2=P1^1;
sbit h3=P1^2;
sbit sa=P1^3;
sbit sb=P1^4;
sbit sc=P1^5;
sbit sd=P1^6;
sbit kd=P3^7;
uchar code table[]="  PLEASE INPUT ";
uchar code table1[]="CODE:        ";
uchar code table2[]=" *****WIN*****";
uchar code table3[]=" PLEASE AFFIRM";
uchar code table4[]=" *****FAIL*****";
uchar code table5[]="   MODIFICATION";
uchar code table6[]=" IDENTITY LIMITS ";
uchar unm,M1,M2,M3,M4,M5,M6,sex,k1,k2,k3,k4,k5,k6,flge,flge1;
uchar q1,q2,q3,q4,q5,q6,w1,w2,w3,w4,w5,w6,g;

void delay(int z)
{
 int x,y;
 for(x=z;x>0;x--)
  for(y=110;y>0;y--);
}

void delay1(int z)
{
 int x,y;
 for(x=z;x>0;x--)
  for(y=20000;y>0;y--);
}

void writen_com(uchar com)   //1602寫命令
{
 lcdrs=0;
 P0=com;
 delay(1);
 lcden=1;
 delay(1);
 lcden=0;
}

void writen_dat(uchar dat)   //1602寫數(shù)據(jù)
{
 lcdrs=1;
 P0=dat;
 delay(1);
 lcden=1;
 delay(1);
 lcden=0;
}

void main();

void cheak_mima()    //檢查第二次確認(rèn)密碼是否與第一次相同
{
if(q1==w1)
{
 if(q2==w2)
 {
  if(q3==w3)
  {
   if(q4==w4)
   {
    if(q5==w5)
 {
  if(q6==w6)
  {
    writen_com(0x01);
    writen_com(0x0f);
       writen_com(0x06);
       writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table5[unm]);
        delay(5);
      }
       writen_com(0x80+0x40+1);
        for(unm=0;unm<14;unm++)
         {
          writen_dat(table2[unm]);
    delay(5);
         }
    
        M1=w1;
  M2=w2;
  M3=w3;
  M4=w4;
  M5=w5;
  M6=w6;

  delay1(6);
  main();
   }
/*-----------------------------------*/   //密碼確認(rèn)錯(cuò)誤返回
   writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
    }       
   writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
   }
      writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
  }
      writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
  }
      writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
 }
      writen_com(0x01);
   writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table4[unm]);
        delay(5);
      }
   delay1(6);
   main();
}

/*------------------------------------*/  //第二次確認(rèn)密碼

void affirm_code()
{
 P1=0x07;
 if(P1!=0x07)
  delay(1);
  if(P1!=0x07)
   {
    P1=0x77;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=1;break;
    case 1:w2=1;break;
    case 2:w3=1;break;
    case 3:w4=1;break;
    case 4:w5=1;break;
    case 5:w6=1;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=2;break;
    case 1:w2=2;break;
    case 2:w3=2;break;
    case 3:w4=2;break;
    case 4:w5=2;break;
    case 5:w6=2;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=3;break;
    case 1:w2=3;break;
    case 2:w3=3;break;
    case 3:w4=3;break;
    case 4:w5=3;break;
    case 5:w6=3;break;
   }
   sex++;
  }
 }
/*-------------------------------*/
    P1=0x6f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=4;break;
    case 1:w2=4;break;
    case 2:w3=4;break;
    case 3:w4=4;break;
    case 4:w5=4;break;
    case 5:w6=4;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=5;break;
    case 1:w2=5;break;
    case 2:w3=5;break;
    case 3:w4=5;break;
    case 4:w5=5;break;
    case 5:w6=5;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=6;break;
    case 1:w2=6;break;
    case 2:w3=6;break;
    case 3:w4=6;break;
    case 4:w5=6;break;
    case 5:w6=6;break;
   }
   sex++;
  }
 }
/*--------------------------------*/
    P1=0x5f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=7;break;
    case 1:w2=7;break;
    case 2:w3=7;break;
    case 3:w4=7;break;
    case 4:w5=7;break;
    case 5:w6=7;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=8;break;
    case 1:w2=8;break;
    case 2:w3=8;break;
    case 3:w4=8;break;
    case 4:w5=8;break;
    case 5:w6=8;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=9;break;
    case 1:w2=9;break;
    case 2:w3=9;break;
    case 3:w4=9;break;
    case 4:w5=9;break;
    case 5:w6=9;break;
   }
   sex++;
  }
 }
   /*-----------------------------------*/
    P1=0x3f;
    if(h2==0)  //0鍵掃描
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:w1=0;break;
    case 1:w2=0;break;
    case 2:w3=0;break;
    case 3:w4=0;break;
    case 4:w5=0;break;
    case 5:w6=0;break;
   }
   sex++;
  }
 }
 if(h3==0)   //#鍵掃描
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
    while(!flge1)
    cheak_mima();
  }
 }
   }
}

/*--------------------------------------*/  //修改密碼[!--empirenews.page--]void set_mima()
{
 P1=0x07;
 if(P1!=0x07)
  delay(1);
  if(P1!=0x07)
   {
    P1=0x77;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=1;break;
    case 1:q2=1;break;
    case 2:q3=1;break;
    case 3:q4=1;break;
    case 4:q5=1;break;
    case 5:q6=1;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=2;break;
    case 1:q2=2;break;
    case 2:q3=2;break;
    case 3:q4=2;break;
    case 4:q5=2;break;
    case 5:q6=2;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=3;break;
    case 1:q2=3;break;
    case 2:q3=3;break;
    case 3:q4=3;break;
    case 4:q5=3;break;
    case 5:q6=3;break;
   }
   sex++;
  }
 }
    P1=0x6f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=4;break;
    case 1:q2=4;break;
    case 2:q3=4;break;
    case 3:q4=4;break;
    case 4:q5=4;break;
    case 5:q6=4;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=5;break;
    case 1:q2=5;break;
    case 2:q3=5;break;
    case 3:q4=5;break;
    case 4:q5=5;break;
    case 5:q6=5;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=6;break;
    case 1:q2=6;break;
    case 2:q3=6;break;
    case 3:q4=6;break;
    case 4:q5=6;break;
    case 5:q6=6;break;
   }
   sex++;
  }
 }
    P1=0x5f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=7;break;
    case 1:q2=7;break;
    case 2:q3=7;break;
    case 3:q4=7;break;
    case 4:q5=7;break;
    case 5:q6=7;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=8;break;
    case 1:q2=8;break;
    case 2:q3=8;break;
    case 3:q4=8;break;
    case 4:q5=8;break;
    case 5:q6=8;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=9;break;
    case 1:q2=9;break;
    case 2:q3=9;break;
    case 3:q4=9;break;
    case 4:q5=9;break;
    case 5:q6=9;break;
   }
   sex++;
  }
 }
    P1=0x3f;
    if(h2==0)  //0鍵掃描
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:q1=0;break;
    case 1:q2=0;break;
    case 2:q3=0;break;
    case 3:q4=0;break;
    case 4:q5=0;break;
    case 5:q6=0;break;
   }
   sex++;
  }
 }
 if(h3==0)   //#鍵掃描
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
    writen_com(0x01);
    writen_com(0x0f);
       writen_com(0x06);
       writen_com(0x80);
      for(unm=0;unm<14;unm++)
      {
        writen_dat(table3[unm]);
        delay(5);
      }
       writen_com(0x80+0x40);

        for(unm=0;unm<5;unm++)
         {
          writen_dat(table1[unm]);
          delay(5);
         }
   sex=0;
   while(!flge1)
       affirm_code();
  }
 }
   }
 }

void init();
void cheak_identity2()
{
 if(k1==M1)
  {
   if(k2==M2)
    {
  if(k3==M3)
   {
    if(k4==M4)
     {
   if(k5==M5)
    {
     if(k6==M6)
     {
      sex=0;
   init();
      while(!flge1)
   set_mima();    
     }
 writen_com(0x01);
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
   delay1(6);
main();   
    }
 writen_com(0x01);
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
   delay1(6);
main(); 
  }
 writen_com(0x01);    
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
  } 
 delay1(6);
 main();
   }
 writen_com(0x01);
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
 delay1(6);
main();
 }
 
  }
 writen_com(0x01);
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
 delay1(6);
main();
}

void cheak_identity()
{
 P1=0x07;
 if(P1!=0x07)
  delay(1);
  if(P1!=0x07)
   {
    P1=0x77;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=1;break;
    case 1:k2=1;break;
    case 2:k3=1;break;
    case 3:k4=1;break;
    case 4:k5=1;break;
    case 5:k6=1;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=2;break;
    case 1:k2=2;break;
    case 2:k3=2;break;
    case 3:k4=2;break;
    case 4:k5=2;break;
    case 5:k6=2;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=3;break;
    case 1:k2=3;break;
    case 2:k3=3;break;
    case 3:k4=3;break;
    case 4:k5=3;break;
    case 5:k6=3;break;
   }
   sex++;
  }
 }
/*-------------------------------*/[!--empirenews.page--]P1=0x6f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=4;break;
    case 1:k2=4;break;
    case 2:k3=4;break;
    case 3:k4=4;break;
    case 4:k5=4;break;
    case 5:k6=4;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=5;break;
    case 1:k2=5;break;
    case 2:k3=5;break;
    case 3:k4=5;break;
    case 4:k5=5;break;
    case 5:k6=5;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=6;break;
    case 1:k2=6;break;
    case 2:k3=6;break;
    case 3:k4=6;break;
    case 4:k5=6;break;
    case 5:k6=6;break;
   }
   sex++;
  }
 }
/*--------------------------------*/
    P1=0x5f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=7;break;
    case 1:k2=7;break;
    case 2:k3=7;break;
    case 3:k4=7;break;
    case 4:k5=7;break;
    case 5:k6=7;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=8;break;
    case 1:k2=8;break;
    case 2:k3=8;break;
    case 3:k4=8;break;
    case 4:k5=8;break;
    case 5:k6=8;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=9;break;
    case 1:k2=9;break;
    case 2:k3=9;break;
    case 3:k4=9;break;
    case 4:k5=9;break;
    case 5:k6=9;break;
   }
   sex++;
  }
 }
   /*-----------------------------------*/[!--empirenews.page--] P1=0x3f;
    if(h2==0)  //0鍵掃描
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=0;break;
    case 1:k2=0;break;
    case 2:k3=0;break;
    case 3:k4=0;break;
    case 4:k5=0;break;
    case 5:k6=0;break;
   }
   sex++;
  }
 }
 if(h3==0)   //#鍵掃描
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
    while(!flge1)
    cheak_identity2();
  }
 }
   }
}
 /*---------------------------------------*/  //鍵盤掃描
void keyscan()
{
 P1=0x07;
 if(P1!=0x07)
  delay(1);
  if(P1!=0x07)
   {
    P1=0x77;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=1;break;
    case 1:k2=1;break;
    case 2:k3=1;break;
    case 3:k4=1;break;
    case 4:k5=1;break;
    case 5:k6=1;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=2;break;
    case 1:k2=2;break;
    case 2:k3=2;break;
    case 3:k4=2;break;
    case 4:k5=2;break;
    case 5:k6=2;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=3;break;
    case 1:k2=3;break;
    case 2:k3=3;break;
    case 3:k4=3;break;
    case 4:k5=3;break;
    case 5:k6=3;break;
   }
   sex++;
  }
 }
/*-------------------------------*/[!--empirenews.page--]P1=0x6f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=4;break;
    case 1:k2=4;break;
    case 2:k3=4;break;
    case 3:k4=4;break;
    case 4:k5=4;break;
    case 5:k6=4;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=5;break;
    case 1:k2=5;break;
    case 2:k3=5;break;
    case 3:k4=5;break;
    case 4:k5=5;break;
    case 5:k6=5;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=6;break;
    case 1:k2=6;break;
    case 2:k3=6;break;
    case 3:k4=6;break;
    case 4:k5=6;break;
    case 5:k6=6;break;
   }
   sex++;
  }
 }
/*--------------------------------*/
    P1=0x5f;
    if(h1==0)
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=7;break;
    case 1:k2=7;break;
    case 2:k3=7;break;
    case 3:k4=7;break;
    case 4:k5=7;break;
    case 5:k6=7;break;
   }
   sex++;
  }
 }
    if(h2==0)
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=8;break;
    case 1:k2=8;break;
    case 2:k3=8;break;
    case 3:k4=8;break;
    case 4:k5=8;break;
    case 5:k6=8;break;
   }
   sex++;
  }
 }
 if(h3==0)
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=9;break;
    case 1:k2=9;break;
    case 2:k3=9;break;
    case 3:k4=9;break;
    case 4:k5=9;break;
    case 5:k6=9;break;
   }
   sex++;
  }
 }
   /*-----------------------------------*/
    P1=0x3f;
    if(h1==0)  //*鍵掃描
  {
   delay(1);
   if(h1==0)
   {
    while(!h1);
    writen_com(0x0f);
       writen_com(0x06);
       writen_com(0x80);
      for(unm=0;unm<16;unm++)
      {
        writen_dat(table6[unm]);
        delay(5);
      }
    while(!flge1)
    cheak_identity();
   }
 }
    if(h2==0)  //0鍵掃描
  {
   delay(1);
   if(h2==0)
   {
    while(!h2);
   writen_com(0x80+0x45+sex);
   writen_dat('*');
   switch(sex)
   {
    case 0:k1=0;break;
    case 1:k2=0;break;
    case 2:k3=0;break;
    case 3:k4=0;break;
    case 4:k5=0;break;
    case 5:k6=0;break;
   }
   sex++;
  }
 }
 if(h3==0)   //#鍵掃描
  {
   delay(1);
   if(h3==0)
   {
    while(!h3);
    flge=1;
  }
 }
   }
 }

/*-------------------------------------*/   //密碼檢查
void init();
void check_code()
{
 if(k1==M1)
  {
   if(k2==M2)
    {
  if(k3==M3)
   {
    if(k4==M4)
     {
   if(k5==M5)
    {
     if(k6==M6)
     {
      writen_com(0x01);
   kd=0;
   writen_com(0x0c);
            writen_com(0x06);
   writen_com(0x80);
   for(unm=0;unm<14;unm++)
    {
     writen_dat(table2[unm]);
     delay(5);
    }
      delay1(6);
      kd=1;
               main();
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
   delay1(6);
   main();    
     }
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
   delay1(6);
main();   
    }
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
   delay1(6);
main(); 
  }  
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
  } 
 delay1(6);
 main();
   }
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
 delay1(6);
main();
 }
 
  }
 writen_com(0x0c);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table4[unm]);
  delay(5);
 }
 delay1(6);
main();
}

void now_mima()
{
 M1=0;
 M2=0;
 M3=0;
 M4=0;
 M5=0;
 M6=0;
 g=0;
}
void init()
{
if(g==0)
 now_mima();
 g=1;
flge1=0;
 flge=0;
 sex=0;
 lcdrw=0;
 lcden=0;
 writen_com(0x01);
 writen_com(0x38);
 writen_com(0x0f);
 writen_com(0x06);
 writen_com(0x80);
for(unm=0;unm<14;unm++)
 {
  writen_dat(table[unm]);
  delay(5);
 }
 writen_com(0x80+0x40);

for(unm=0;unm<5;unm++)
 {
  writen_dat(table1[unm]);
  delay(5);
 }
}

void main()
{
while(1)
{
 init();
 set_mima();
 while(!flge)
 keyscan();
 check_code();
}
}