mima.i

基于MEGA16的密码锁

/*****************************************************

*****************************************************/

// CodeVisionAVR C Compiler
// (C) 1998-2001 Pavel Haiduc, HP InfoTech S.R.L.

// I/O registers definitions for the ATmega16


#pragma used+
sfrb TWBR=0;
sfrb TWSR=1;
sfrb TWAR=2;
sfrb TWDR=3;
sfrb ADCL=4;
sfrb ADCH=5;
sfrw ADCW=4;      // 16 bit access
sfrb ADCSRA=6;
sfrb ADMUX=7;
sfrb ACSR=8;
sfrb UBRRL=9;
sfrb UCSRB=0xa;
sfrb UCSRA=0xb;
sfrb UDR=0xc;
sfrb SPCR=0xd;
sfrb SPSR=0xe;
sfrb SPDR=0xf;
sfrb PIND=0x10;
sfrb DDRD=0x11;
sfrb PORTD=0x12;
sfrb PINC=0x13;
sfrb DDRC=0x14;
sfrb PORTC=0x15;
sfrb PINB=0x16;
sfrb DDRB=0x17;
sfrb PORTB=0x18;
sfrb PINA=0x19;
sfrb DDRA=0x1a;
sfrb PORTA=0x1b;
sfrb EECR=0x1c;
sfrb EEDR=0x1d;
sfrb EEARL=0x1e;
sfrb EEARH=0x1f;
sfrw EEAR=0x1e;   // 16 bit access
sfrb UBRRH=0x20;
sfrb UCSRC=0X20;
sfrb WDTCR=0x21;
sfrb ASSR=0x22;
sfrb OCR2=0x23;
sfrb TCNT2=0x24;
sfrb TCCR2=0x25;
sfrb ICR1L=0x26;
sfrb ICR1H=0x27;
sfrb OCR1BL=0x28;
sfrb OCR1BH=0x29;
sfrw OCR1B=0x28;  // 16 bit access
sfrb OCR1AL=0x2a;
sfrb OCR1AH=0x2b;
sfrw OCR1A=0x2a;  // 16 bit access
sfrb TCNT1L=0x2c;
sfrb TCNT1H=0x2d;
sfrw TCNT1=0x2c;  // 16 bit access
sfrb TCCR1B=0x2e;
sfrb TCCR1A=0x2f;
sfrb SFIOR=0x30;
sfrb OSCCAL=0x31;
sfrb OCDR=0x31;
sfrb TCNT0=0x32;
sfrb TCCR0=0x33;
sfrb MCUCSR=0x34;
sfrb MCUCR=0x35;
sfrb TWCR=0x36;
sfrb SPMCR=0x37;
sfrb TIFR=0x38;
sfrb TIMSK=0x39;
sfrb GIFR=0x3a;
sfrb GICR=0x3b;
sfrb OCR0=0X3c;
sfrb SPL=0x3d;
sfrb SPH=0x3e;
sfrb SREG=0x3f;
#pragma used-

// Interrupt vectors definitions



// CodeVisionAVR C Compiler
// (C) 1998-2000 Pavel Haiduc, HP InfoTech S.R.L.


#pragma used+

void delay_us(unsigned int n);
void delay_ms(unsigned int n);

#pragma used-


/***写命令***/
void cmd_w(unsigned char cmd)
{
  PORTD.5=0;
  PORTD.4  =0;
  PORTD.6=1;
  PORTC=cmd;
  delay_ms(1);
  PORTD.6=0;
}
/***写数据***/
void dat_w(unsigned char dat)
{
  PORTD.5=0;
  PORTD.4  =1;
  PORTD.6=1;
  PORTC=dat;
  delay_ms(1);
  PORTD.6=0;
}
/***清屏****/
void clear(void)
{
  cmd_w(0x01);	  //清屏
  cmd_w(0x02);	  //清屏回到左上角
}
/***初始化**/
void init(void)
{
  cmd_w(0x38);
  cmd_w(0x0d);	   
}
/***光标定位****/
void gotoxy(unsigned char x,unsigned char y)	//x是行数,y是列数
{
 if(x==1)
 {cmd_w(0x80+y);}
 else
 {cmd_w(0xc0+y);}
}


unsigned char num,key;

void spk (unsigned int i) 
{             
 	 DDRA=0X04;    //DDA2为输出
 	 PORTA.2=~PORTA.2;
 	 delay_ms(i);
	 PORTA.2=1;     //蜂鸣器关闭
}

unsigned char keyscan()
{
	unsigned char scan1,second1;
	PORTB=0xf0;  //输出1 
        DDRB=0x0f;  //使能键盘口高四位的上拉电阻
        delay_us(100);//延时等待电平稳定
	if((PINB&0xf0)!=0xf0) /*判断是否有键按下*/
	{
		delay_ms(10);
		if((PINB&0xf0)!=0xf0) /*再次判断*/
		{
			scan1=0xfe; /*逐行扫描*/
			while((scan1&0x10)!=0) /*只允许位移3位*/
			{
				PORTB=scan1; 
				delay_us(100);//延时等待电平稳定
				if((PINB&0xf0)!=0xf0)
				{
					second1=(PINB&0xf0)|0x0f;
					do
	 				{
					 	PORTB=0xf0;  //输出1 
                                                DDRB=0x0f;  //使能键盘口高四位的上拉电阻
                                                delay_us(100);//延时等待电平稳定
					}while((PINB&0xf0)!=0xf0); //等待按键松开
					return((~second1)+(~scan1));
				}
				else
					scan1=(scan1<<1)|0x01;
			}

		}
	

	}
	return(0);
}

void whatkey(unsigned char key11)
{
  switch(key11)
  {//key11
  case 0x11: {num=0x01;break;}
   case 0x21: {num=0x02;break;}  
   case 0x41: {num=0x03;break;}   
   case 0x81: {num=0x04;break;} 
   case 0x12: {num=0x05;break;}
   case 0x22: {num=0x06;break;}
   case 0x42: {num=0x07;break;}
   case 0x82: {num=0x08;break;}
   case 0x14: {num=0x09;break;}
   case 0x24: {num=0x00;break;}
   case 0x48: {num=0xf3;break;} // 删除键
   case 0x18: {num=0xf1;break;}//设置密码
   case 0x28: {num=0xf1;break;}//设置密码
   case 0x88: {num=0xf4;break;} // enter键
   default:{num=0xff;break;}  
  }
}

void keywork()
{
	num=0xff;
	key=keyscan();
    if(key!=0xff) whatkey(key);
}



        unsigned char  i;
        unsigned char cnt,state,state1,correct;



flash unsigned char show_0[]="press enter to input password!";
flash unsigned char show_1[]="The password is:" ;
flash unsigned char show_2[]="*";
flash unsigned char show_3[]="The password is wrong!";
flash unsigned char show_4[]="One chance left!";
flash unsigned char show_5[]="Try it after 5 minutes!";
flash unsigned char show_6[]="Correct! 'enter' to lock!";
flash unsigned char show_7[]="Old password:";
flash unsigned char show_8[]="Input it again!";
flash unsigned char show_9[]="New password: ";
flash unsigned char show_10[]="Successful to change password!";
flash unsigned char show_11[]=" ";
flash unsigned char show_12[]="Not same,again!";
unsigned char psd[8]={0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08};
unsigned char  pswd[8],pswd1[8];



void play(flash unsigned char *j,unsigned char k)	  //lcd显示函数，K是显示的个数,j是地址
{
	unsigned char ii;
   for(ii=0;ii<k;ii++)
   {
    dat_w(*(j+ii));
	delay_ms(20);
   }
}

unsigned char keycheck(unsigned char init_pswd[8]) //密码输入判断程序
{
	signed char iii;
	for(iii=0;;iii++)
	{
		do
		{
			keywork();

		}while((num>0x09 && num<0xF3)||(num>0xF4));
		spk(10);
		if(num<0xf3) //按下数字键时
		{
			if(iii<=7)
			{
				pswd[iii]=num;
				gotoxy(2,iii);
				play(show_2,1);
			}
			else
			{
				iii--;
			}
		}
		else if(num==0xf3 && iii!=0)  //输入密码过程中按下了删除时
		{	
			if(iii>8)
			{
				iii=8;
			}
			iii=iii-2;
			gotoxy(2,iii+1);
			play(show_11,1);
			gotoxy(2,iii+1);
		}
		else if(num==0xf4)   //按下确定键时
		{
			if(iii>7)
			{
				correct=0;
				for(i=0;i<8;i++)
				{
					if(pswd[i]==init_pswd[i])
					{
					correct++;
					}
				}
				if(correct==8) //输入密码正确
				{
					return(1);
				}
				else  //输入密码错误
				{
					return(0);
				}
			}
			else
			{
				iii--;
			}
		}	
	}
}


void main()
{

        PORTA=0xff;
        DDRA=0xFF;
        PORTB=0x00;
        DDRB=0xFF;
        PORTC=0x00;
        DDRC=0xFF;
        PORTD=0x00;
        DDRD=0xFF; 
        
        

        init();  
again:
        //lcd初始化
        clear(); //清屏

        //显示提示输入密码
        gotoxy(1,0);
        play(show_0,14);
        gotoxy(2,0);
        play(show_0+15,15);
        //扫描是否按下"enter"键
        do
	{
		keywork();//此函数将返回num的值表示键盘特征码
	}while((num!=0xf4)&&(num!=0xf1));
	spk(10);

        //输入密码状态 
	if(num==0xf4)
	{
		clear(); //清屏
		gotoxy(1,0);
		play(show_1,16);
		gotoxy(2,0);
		state=keycheck(psd);
		if(state==1)
		{
			clear(); //清屏
			gotoxy(1,5);
			play(show_6,8); //输入正确
			gotoxy(2,0);
			play(show_6+9,16);
			do  //按确定之后就重新上锁
			{
				keywork();
			}while(num!=0xf4);
			cnt=0;
			goto again;
		}
		else if(state==0)
		{
			cnt++;
			clear(); 
			gotoxy(1,0);
			play(show_3,12);
			gotoxy(2,0);
			play(show_3+13,9);
			delay_ms(1000);
			if(cnt==2)
			{
				clear(); //清屏
				gotoxy(1,0);
				play(show_4,16);
				delay_ms(1000);
				goto again;
			}
			else if(cnt>2)
			{
				clear();
				gotoxy(1,0);
				play(show_5,12);
				gotoxy(2,0);
				play(show_5+13,10);
				
				for(i=0;i<200;i++)   //3次输入错误，禁止输入密码5分钟
				        delay_ms(1500);
				
				cnt=0;
				goto again;
			}
			else
			{
				goto again;
			}
		}
	}

//设置密码状态
	else if(num==0xf1)
	{

notright:	clear(); //清屏
		gotoxy(1,0);
		play(show_7,13);
		gotoxy(2,0);
		state=keycheck(psd);
		if(state==1)
		{
			clear(); //清屏
			gotoxy(1,0);
			play(show_9,13);
			gotoxy(2,0);

			state1=keycheck(psd);
			for(i=0;i<8;i++)
			{
				pswd1[i]=pswd[i];
			}

notsame:	clear();
			gotoxy(1,0);
			play(show_8,15);
			gotoxy(2,0);
				
			state1=keycheck(pswd1);
			if(state1==1)
			{
				clear();
				gotoxy(1,0);
				play(show_10,13);
				gotoxy(2,0);
				play(show_10+14,16);
				for(i=0;i<8;i++)
				{
					psd[i]=pswd1[i];
				}
				delay_ms(1000);
				goto again;
			}
			else if(state1==0)
			{
				clear();
				gotoxy(1,0);
				play(show_12,15);
				delay_ms(1000);
				goto notsame;
			}
		}
		else if(state==0)
		{
			clear(); 
			gotoxy(1,0);
			play(show_3,12);
			gotoxy(2,0);
			play(show_3+13,9);
			delay_ms(1000);
			goto notright;
		}

	}

}