51单片机电子密码锁Proteus仿真+程序+原理图

51单片机电子密码锁 仿真和程序源代码都有电路原理图可以下载附件打开仿真文件即可看到


51单片机源程序：

1. //-----------------------------------------------------------------
   
2. //原始程序中相邻两位密码不能相同.
   
3. //本压缩包中的HEX由修改后的新程序编译生成,允许输入任意密码.
   
4. //-----------------------------------------------------------------
   
5. //实训100例中本例内的main函数可用以下代码替换.
   
6. //改动的主要是main函数中while循环内的代码.
   
7. //-----------------------------------------------------------------
   
8. // 主程序
   
9. //-----------------------------------------------------------------
   
10. void main()
    
11. {
    
12.    uchar i = 0;
    
13.    uchar IIC_Password[10];
    
14.    uchar IS_Valid_User = 0;
    
15.    P0 = 0xFF;     
    
16.    P1 = 0xFF;
    
17.    P2 = 0xFF;  
    
18. 
    
19.    TMOD = 0x02;                     //T0设置为8位自动重装模式
    
20.    TH0 = 175;                  
    
21.    TL0 = 175;
    
22.    TR0 = 1;                         //启动T0
    
23. 
    
24.    DelayMS(10);               
    
25.    LCD_Init();                      //初始化LCD  
    
26.    
    
27.    IIC_24C04_Init();                //初始化24C04  
    
28.    
    
29.    Display_String(Title_Text,0x00); //在第1行显示标题
    
30.    
    
31.    //24C04的内容已由初始化BIN文件导入
    
32.    //将24C04中预先写入的密码读入pass
    
33.    RecString(0xa0, 0 , IIC_Password, 6);   
    
34.    IIC_Password[6] = '\0';
    
35. 
    
36.    while(1)
    
37.    {
    
38.       P1 = 0xF0;
    
39.       if(P1 != 0xF0) KeyNo = Keys_Scan();  //扫描键盘获取键序号KeyNo
    
40. 
    
41.       switch ( KeyNo )
    
42.       {
    
43.            case 0:  case 1: case 2: case 3: case 4:
    
44.            case 5:  case 6: case 7: case 8: case 9:
    
45.                         
    
46.                    if ( i<= 5 )             //密码限制在6位以内
    
47.                    {
    
48.                         //如果i为0则执行一次清屏
    
49.                         if (i ==0) Display_String("                ",0x40);
    
50.                     
    
51.                         UserPassword[i] = KeyNo + '0';
    
52.                         UserPassword[i+1] = '\0';
    
53.               
    
54.                         DSY_BUFFER[i] = '*';
    
55.                         DSY_BUFFER[i+1] = '\0';
    
56.                     
    
57.                         Display_String(DSY_BUFFER,0x40);
    
58.                      
    
59.                         i++;
    
60.                     }
    
61.                     break;
    
62.                
    
63.            case 10: //按A键开锁
    
64.                     if (strcmp(UserPassword,IIC_Password) == 0)
    
65.                     {
    
66.                        LED_OPEN = 0;  //点亮LED
    
67.                        Clear_Password();
    
68.                        Display_String("Unlock OK!      ",0x40);
    
69.                        IS_Valid_User = 1;
    
70.                     }
    
71.                     else
    
72.                     {
    
73.                        LED_OPEN =1;   //关闭LED
    
74.                        Clear_Password();
    
75.                        Display_String("ERROR !         ",0x40);
    
76.                        IS_Valid_User = 0;
    
77.                     }
    
78.                     i = 0;
    
79.                     break;
    
80.                     
    
81.            case 11: //按B键上锁
    
82.                     LED_OPEN =1;   
    
83.                     Clear_Password();
    
84.                     Display_String(Title_Text,0x00);
    
85.                     Display_String("                ",0x40);
    
86.                     i = 0;                        
    
87.                     IS_Valid_User = 0;               
    
88.                     break;
    
89.                                    
    
90.            case 12: //按C键设置新密码
    
91.                     //如果是合法用户则提示输入新密码
    
92.                     if ( !IS_Valid_User ) Display_String("No rights !",0x40);
    
93.                     else
    
94.                     {
    
95.                        i = 0;
    
96.                        Display_String("New Password:   ",0x00);
    
97.                        Display_String("                ",0x40);
    
98.                      }
    
99.            
    
100.                     break;                        
     
101.                     
     
102.            case 13: //按D键保存新密码
     
103.                     if ( !IS_Valid_User ) Display_String("No rights !",0x40);
     
104.                     else
     
105.                     {
     
106.                        SendString(0xa0, 0 , UserPassword, 6);
     
107.                        
     
108.                        //重新读入刚写的密码
     
109.                        RecString(0xa0, 0 , IIC_Password, 6);   
     
110.                        IIC_Password[6] = '\0';                           
     
111.                        
     
112.                        i = 0;
     
113.                        Display_String(Title_Text,0x00);
     
114.                        Display_String("Password Saved! ",0x40);
     
115.                      }               
     
116.                     
     
117.                     break;                        
     
118.       
     
119.            case 14: //按E键消除所有输入
     
120.                     i = 0;
     
121.                     Clear_Password();
     
122.                     Display_String("                ",0x40);            
     
123.        }
     
124. 
     
125.        Beep();         
     
126.        DelayMS(100);
     
127.        P1= 0xF0;
     
128.        while (P1 != 0xF0);    //如果有键未释放则等待
     
129.        while (P1 == 0xF0);    //如果没有再次按下按键则等待
     
130.    }
     
131. }
     

复制代码

不错哦 谢谢楼主的分享

修改密码后，显示密码是错误的

非常好 感谢楼主

很有用，谢大神。

很详细，很好

不错，很好的资料

谢谢楼主分享

不错很不错的资料能解决燃煤直接！谢谢楼主

不错很不错的资料能解决燃煤直接！谢谢楼主

请问楼主有源程序吗

谢谢楼主分享

谢谢楼主分享

非常棒的分享

代码生成hex文件不能仿真啊

代码不完整

不错 下来看看

感谢楼主分享

感谢楼主 学习了

学习密码锁了

正在学习，感谢lz

我要下载 可是没有黑币

程序有错误

yanl0306 发表于 2016-10-30 14:13
代码不完整

对，有错误

加112356778

太棒啦

让我试试

不错 ，谢谢楼主的分享

如何获取黑比

好。。。。。。。

好东西

设置新密码功能无法实现；
原始密码123456，设置新密码后，保存新密码，但最后开锁还是要用123456，这个BUG要修复

我想要

谢谢楼主

谢谢楼主的无私分享

能发给我一份看看不

挺不错的，有说明就更好了

可以密码改成8位吗

非常用心，写的很精准

不错哦 谢谢楼主的分享