51密码锁+proteus仿真

51单片机密码锁+proteus仿真调试，安装ISIS仿真工具使用

/*
六位密码原始密码为680424该程序有点问题也有不完善的地方就是修改密码后如果输入的密码与修改的密码
相同则锁会开如果有一次输入有错则密码会变回原来的密码即362330.可能因为定义的数组
pws[6]为全局变量但是也不肯定.希望下载的人提出宝贵的意见大家共同交流谢谢.
*/
#include
#define uchar unsigned char
#define uint unsigned int
uint num=10;	//开始让数码管什么都显示
bit set=0;		//定义设置密码的位
char count=-1;	//开始让COUNT=-1方便后面显示数码管
sbit Beep=P1^2; //蜂鸣器
uchar temp;
uchar pws[6]={680424};	//原始密码
uchar pwx[6];			//按下的数字存储区
bit rightflag;			//密码正确标志位
uchar workbuf[6];
uchar code tabledu[]={
0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f0x000x40
};			//段选码共阴极
uchar code tablewe[]={
0xfe0xfd0xfb0xf70xef0xdf
};			//位选码
uint keyscan（）;
void delay（uchar z）		//延时ms级	
{
	uchar y;
	for（;z>0;z--）
		for（y=120;y>0;y--）;
}
void setpw（）		//设置密码函数
{
	keyscan（）;
}
uint keyscan（）		//键盘扫描函数
{
	P3=0xfe;
	temp=P3;
	temp=temp&0xf0;
	if（temp!=0xf0）
	{
		delay（5）;	//键盘去抖最好20ms以上这里用了5ms
		temp=P3;
		temp=temp&0xf0;
		if（temp!=0xf0）
		{
			count++;//按键计数加1
			temp=P3;
			switch（temp）
			{
				case 0xee: 
				{	
					num=7;
					if（count<6）	//六位密码所以COUNT<6
					{	
						if（set==0）	//设置密码键没有按下时
						pwx[count]=num; //存储按下的数字
						else
						pws[count]=num; //设置密码键按下时设置新密码
						workbuf[count]=tabledu[11]; //相应位的数码管显示“--“不显示相应的数字密码是保密的
					}
				}
				break;
				case 0xde: 
				{	
					num=8;
					if（count<6）		//以下扫描键盘的原理差不多同上
					{
						if（set==0）
						pwx[count]=num;
						else
						pws[count]=num;
						workbuf[count]=tabledu[11];
					}
				}
				break;
				case 0xbe: 
				{	
					num=9;
					{
						if（count<6）
						{
							if（set==0）
							pwx[count]=num;
							else
							pws[count]=num;
							workbuf[count]=tabledu[11];
						}
					} 
				}
				break;
				case 0x7e:	//设置密码键按下
				{
					set=1;	//设置密码标志位置1
					P1_3=0;	//设置密码指示灯亮
					workbuf[0]=0x00;//数码管第一位不显示
					workbuf[1]=0x00;//......
					workbuf[2]=0x00;//......
					workbuf[3]=0x00;
					workbuf[4]=0x00;
					workbuf[5]=0x00;//......
					count=-1;	//按键计数复位为-1
					if（count<6）	//密码没有设置完继续设置密码
					{
						setpw（）;	//设置密码
					}
				}		
				break;
			}
			while（temp!=0xf0）  //按键抬起检测
			{
				temp=P3;
				temp=temp&0xf0;
			}	
		}
	}
	P3=0xfd;
	temp=P3;
	temp=temp&0xf0;
	if（temp!=0xf0）
	{
		delay（5）;
		temp=P3;
		temp=temp&0xf0;
		if（temp!=0xf0）
		{
			count++;
			temp=P3;
			switch（temp）
			{
				case 0xed: 
				{	
					num=4;
					if（count<6）
					{
						if（set==0）
						pwx[count]=num;
						else
						pws[count]=num;
						workbuf[count]=tabledu[11];
					}
				}
				break;
				case 0xdd: 
				{	
					num=5;
					if（count<6）
					{
						if（set==0）
						pwx[count]=num;
						else
						pws[count]=num;
						workbuf[count]=tabledu[11];
					}
				}
				break;
				case 0xbd:
				{
					num=6;
					if（count<6）
					{
						if（set==0）
						pwx[count]=num;
						else
						pws[count]=num;
						workbuf[count]=tabledu[11];
				

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-07-06 21:23  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\
     文件       12932  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng
     文件        3877  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.hex
     文件          31  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.lnp
     文件       19565  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.M51
     文件         962  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.Opt
     文件         177  2013-07-06 21:23  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.plg
     文件        2111  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng.Uv2
     文件         962  2010-06-30 19:37  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\hanmeng_Opt.Bak
     文件        7596  2010-06-29 20:31  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\mimasuo.c
     文件       25244  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\mimasuo.LST
     文件       15801  2013-07-06 21:15  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\mimasuo.OBJ
     目录           0  2013-07-06 21:23  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\原理图\
     文件      132923  2010-06-29 20:35  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\原理图\11.DSN
     文件         768  2013-07-06 21:23  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\原理图\11.PWI
     文件      132927  2010-06-29 20:28  密码锁仿真 51密码锁protues仿真 密码锁程序仿真图protues仿真\原理图\Last Loaded 11.DBK