红外线远程控制密码锁 · 51单片机项目实战

以下是红外线远程控制密码锁的程序，还有一个是用遥控器的程序么有附上来，你可以选择自带的遥控器，或者选择自己做。以下代码是我可以直接使用的，请注意职业道德，尊重原创。如果图不是很清晰的话可以在这里下载pdf文档，下载地址：**[红外线远程控制密码锁](http://download.csdn.net/detail/qq_21792169/9248979)** ![](https://box.kancloud.cn/2016-03-01_56d547e098bd1.jpg) 本源码是网络人VS灰鸽子的一个朋友所写，在这里分享出来希望能够给大家有一定引导性的作用，不要直接复制，这样对你的学习是没有帮助的，希望大家还是坚持把代码看下来，这样我相信你会学到更多 ~~~ #include <REG52.h> #include<intrins.h> #define LCM_Data P0 #define uchar unsigned char #define uint unsigned int //#define w 6//定义密码位数 //时间计算 #define Imax 14000 //此处为晶振为11.0592时的取值, #define Imin 8000 //如用其它频率的晶振时, #define Inum1 1450 //要改变相应的取值。 #define Inum2 700 #define Inum3 3000 sbit lcd1602_rs=P2^5; sbit lcd1602_rw=P2^6; sbit lcd1602_en=P2^7; sbit Scl=P3^4;//24C02串行时钟 sbit Sda=P3^5;//24C02串行数据 sbit ALAM = P2^1;//报警 sbit KEY = P3^6;//开锁 sbit open_led=P2^2;//开锁指示灯 bit operation=0;//操作标志位 bit pass=0;//密码正确标志 bit ReInputEn=0;//重置输入充许标志 bit s3_keydown=0;//3秒按键标志位 bit key_disable=0;//锁定键盘标志 unsigned char countt0,second;//t0中断计数器,秒计数器 //解码变量 unsigned char Im[4]={0x00,0x00,0x00,0x00}; //全局变量 uchar f; unsigned char m,Tc; unsigned char IrOK; //void Delay5Ms(void); unsigned char code a[]={0xFE,0xFD,0xFB,0xF7}; //控盘扫描控制表 unsigned char code start_line[]= {"password: "}; unsigned char code name[] = {"===Coded Lock==="};//显示名称 unsigned char code Correct[] = {" correct "};//输入正确 unsigned char code Error[] = {" error "}; //输入错误 unsigned char code codepass[]= {" pass "}; unsigned char code LockOpen[]= {" open "};//OPEN unsigned char code SetNew[] = {"SetNewWordEnable"}; unsigned char code Input[] = {"input: "};//INPUT unsigned char code ResetOK[] = {"ResetPasswordOK "}; unsigned char code initword[]= {"Init password..."}; unsigned char code Er_try[]= {"error,try again!"}; unsigned char code again[]= {"input again "}; unsigned char InputData[6];//输入密码暂存区 unsigned char CurrentPassword[6]={1,3,1,4,2,0}; //当前密码值 unsigned char TempPassword[6]; unsigned char N=0;//密码输入位数记数 unsigned char ErrorCont;//错误次数计数 unsigned char CorrectCont;//正确输入计数 unsigned char ReInputCont; //重新输入计数 unsigned char code initpassword[6]={0,0,0,0,0,0}; //=====================5ms延时============================== void Delay5Ms() { unsigned int TempCyc = 5552; while(TempCyc--); } //===================400ms延时============================== void Delay400Ms() { unsigned char TempCycA = 5; unsigned int TempCycB; while(TempCycA--) { TempCycB=7269; while(TempCycB--); } } //============================================================================================= //================================24C02======================================================== //============================================================================================= void mDelay(uint t) //延时 { uchar i; while(t--) { for(i=0;i<125;i++) {;} } } void Nop() //空操作 { _nop_(); _nop_(); _nop_(); _nop_(); } /*起始条件*/ void Start(void) { Sda=1; Scl=1; Nop(); Sda=0; Nop(); } /*停止条件*/ void Stop(void) { Sda=0; Scl=1; Nop(); Sda=1; Nop(); } /*应答位*/ void Ack(void) { Sda=0; Nop(); Scl=1; Nop(); Scl=0; } /*反向应答位*/ void NoAck(void) { Sda=1; Nop(); Scl=1; Nop(); Scl=0; } /*发送数据子程序，Data为要求发送的数据*/ void Send(uchar Data) { uchar BitCounter=8; uchar temp; do { temp=Data; Scl=0; Nop(); if((temp&0x80)==0x80) Sda=1; else Sda=0; Scl=1; temp=Data<<1; Data=temp; BitCounter--; } while(BitCounter); Scl=0; } /*读一字节的数据，并返回该字节值*/ uchar Read() { uchar temp=0; uchar temp1=0; uchar BitCounter=8; Sda=1; do{ Scl=0; Nop(); Scl=1; Nop(); if(Sda) temp=temp|0x01; else temp=temp&0xfe; if(BitCounter-1) { temp1=temp<<1; temp=temp1; } BitCounter--; } while(BitCounter); return(temp); } void WrToROM(uchar Data[],uchar Address,uchar Num) { uchar i; uchar *PData; PData=Data; for(i=0;i<Num;i++) { Start(); Send(0xa0); Ack(); Send(Address+i); Ack(); Send(*(PData+i)); Ack(); Stop(); mDelay(20); } } void RdFromROM(uchar Data[],uchar Address,uchar Num) { uchar i; uchar *PData; PData=Data; for(i=0;i<Num;i++) { Start(); Send(0xa0); Ack(); Send(Address+i); Ack(); Start(); Send(0xa1); Ack(); *(PData+i)=Read(); Scl=0; NoAck(); Stop(); } } //================================================================================================== //=======================================LCD1602==================================================== //================================================================================================== #define yi 0x80 //LCD第一行的初始位置,因为LCD1602字符地址首位D7恒定为1（100000000=80） #define er 0x80+0x40 //LCD第二行初始位置（因为第二行第一个字符位置地址是0x40） //----------------延时函数，后面经常调用---------------------- void delay(uint xms)//延时函数，有参函数 { uint x,y; for(x=xms;x>0;x--) for(y=110;y>0;y--); } //--------------------------写指令--------------------------- void write_1602com(uchar com)//****液晶写入指令函数**** { lcd1602_rs=0;//数据/指令选择置为指令 lcd1602_rw=0; //读写选择置为写 P0=com;//送入数据 delay(1); lcd1602_en=1;//拉高使能端，为制造有效的下降沿做准备 delay(1); lcd1602_en=0;//en由高变低，产生下降沿，液晶执行命令 } //-------------------------写数据----------------------------- void write_1602dat(uchar dat)//***液晶写入数据函数**** { lcd1602_rs=1;//数据/指令选择置为数据 lcd1602_rw=0; //读写选择置为写 P0=dat;//送入数据 delay(1); lcd1602_en=1; //en置高电平，为制造下降沿做准备 delay(1); lcd1602_en=0; //en由高变低，产生下降沿，液晶执行命令 } //-------------------------初始化------------------------- void lcd_init() { write_1602com(0x01);//清显示 write_1602com(0x38);//设置液晶工作模式，意思：16*2行显示，5*7点阵，8位数据 write_1602com(0x0c);//开显示不显示光标 write_1602com(0x06);//整屏不移动，光标自动右移 } //======================================================================================== //========================================================================================= //==============将按键值编码为数值========================= unsigned char coding(unsigned char m1,unsigned char hh) { unsigned char k; if(IrOK==1) { IrOK=0; switch(m1) { case (0x0c): k=1;break; case (0x18): k=2;break; case (0x5e): k=3;break; //case (0xff): k='A';break;// case (0x08): k=4;break; case (0x1c): k=5;break; case (0x5a): k=6;break; //case (0x82): k='B';break; // case (0x42): k=7;break; case (0x52): k=8;break; case (0x4a): k=9;break; //case (0x84): k='C';break;// case (0x43): k='*';break; //撤销 case (0x16): k=0;break; case (0x15): k='#';break; //确认键 case (0x0d): k='D';break; //重设密码 case (0x45): k='A';break;// case (0x47): k='A';break;// case (0x44): k='A';break;// case (0x40): k='A';break;// case (0x07): k='A';break;// case (0x09): k='A';break;// case (0x19): k='A';break;// //default:; } } else { switch(hh) { case (0x11): k=1;break; case (0x21): k=2;break; case (0x41): k=3;break; case (0x81): k='A';break; case (0x12): k=4;break; case (0x22): k=5;break; case (0x42): k=6;break; case (0x82): k='B';break; case (0x14): k=7;break; case (0x24): k=8;break; case (0x44): k=9;break; case (0x84): k='C';break; case (0x18): k='*';break; case (0x28): k=0;break; case (0x48): k='#';break; case (0x88): k='D';break; //default:; } } return(k); } //=====================按键检测并返回按键值=============================== unsigned char keynum() { unsigned char row,col,i; P1=0xf0; if((P1&0xf0)!=0xf0) { Delay5Ms(); Delay5Ms(); if((P1&0xf0)!=0xf0) { row=P1^0xf0; //确定行线 i=0; P1=a[i]; //精确定位 while(i<4) { if((P1&0xf0)!=0xf0) { col=~(P1&0xff); //确定列线 break; //已定位后提前退出 } else { i++; P1=a[i]; } } } else { return 0; } while((P1&0xf0)!=0xf0); return (row|col);//行线与列线组合后返回 } else return 0; //无键按下时返回0 } //=======================一声提示音，表示有效输入======================== void OneAlam() { ALAM=0; Delay5Ms(); ALAM=1; } //========================二声提示音，表示操作成功======================== void TwoAlam() { ALAM=0; Delay5Ms(); ALAM=1; Delay5Ms(); ALAM=0; Delay5Ms(); ALAM=1; } //========================三声提示音,表示错误======================== void ThreeAlam() { ALAM=0; Delay5Ms(); ALAM=1; Delay5Ms(); ALAM=0; Delay5Ms(); ALAM=1; Delay5Ms(); ALAM=0; Delay5Ms(); ALAM=1; } //=====================显示输入的N个数字，用H代替以便隐藏============================ void DisplayOne() { //DisplayOneChar(9+N,1,'*'); write_1602com(yi+5+N); write_1602dat('*'); } //=======================显示提示输入========================= void DisplayChar() { unsigned char i; if(pass==1) { //DisplayListChar(0,1,LockOpen); write_1602com(er); for(i=0;i<16;i++) { write_1602dat(LockOpen[i]); } } else { if(N==0) { //DisplayListChar(0,1,Error); write_1602com(er); for(i=0;i<16;i++) { write_1602dat(Error[i]); } } else { //DisplayListChar(0,1,start_line); write_1602com(er); for(i=0;i<16;i++) { write_1602dat(start_line[i]); } } } } void DisplayInput() { unsigned char i; if(CorrectCont==1) { //DisplayListChar(0,0,Input); write_1602com(er); for(i=0;i<16;i++) { write_1602dat(Input[i]); } } } //========================重置密码================================================== //================================================================================== void ResetPassword() { unsigned char i; unsigned char j; if(pass==0) { pass=0; DisplayChar(); ThreeAlam(); } else { if(ReInputEn==1) { if(N==6) { ReInputCont++; if(ReInputCont==2) { for(i=0;i<6;) { if(TempPassword[i]==InputData[i])//将两次输入的新密码作对比 i++; else { //DisplayListChar(0,1,Error); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(Error[j]); } ThreeAlam();//错误提示 pass=0; ReInputEn=0;//关闭重置功能， ReInputCont=0; DisplayChar(); break; } } if(i==6) { //DisplayListChar(0,1,ResetOK); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(ResetOK[j]); } TwoAlam();//操作成功提示 WrToROM(TempPassword,0,6);//将新密码写入24C02存储 ReInputEn=0; } ReInputCont=0; CorrectCont=0; } else { OneAlam(); //DisplayListChar(0, 1, again); //显示再次输入一次 write_1602com(er); for(j=0;j<16;j++) { write_1602dat(again[j]); } for(i=0;i<6;i++) { TempPassword[i]=InputData[i];//将第一次输入的数据暂存起来 } } N=0;//输入数据位数计数器清零 } } } } //=======================输入密码错误超过三过，报警并锁死键盘====================== void Alam_KeyUnable() { P1=0x00; { ALAM=~ALAM; Delay5Ms(); } } //=======================取消所有操作============================================ void Cancel() { unsigned char i; unsigned char j; //DisplayListChar(0, 1, start_line); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(start_line[j]); } TwoAlam();//提示音 for(i=0;i<6;i++) { InputData[i]=0; } KEY=1;//关闭锁 ALAM=1;//报警关 operation=0;//操作标志位清零 pass=0;//密码正确标志清零 ReInputEn=0;//重置输入充许标志清零 //ErrorCont=0;//密码错误输入次数清零 CorrectCont=0;//密码正确输入次数清零 ReInputCont=0;//重置密码输入次数清零 open_led=1; s3_keydown=0; key_disable=0; N=0;//输入位数计数器清零 } //==========================确认键，并通过相应标志位执行相应功能=============================== void Ensure() { unsigned char i,j; RdFromROM(CurrentPassword,0,6); //从24C02里读出存储密码 if(N==6) { if(ReInputEn==0)//重置密码功能未开启 { for(i=0;i<6;) { if(CurrentPassword[i]==InputData[i]) { i++; } else { i=7; ErrorCont++; if(ErrorCont>=3&&KEY==1)//错误输入计数达三次时，报警并锁定键盘 { write_1602com(er); for(i=0;i<16;i++) { write_1602dat(Error[i]); } Alam_KeyUnable(); TR0=1;//开启定时 key_disable=1;//锁定键盘 pass=0; break; } } } if(i==6) { CorrectCont++; if(CorrectCont==1)//正确输入计数，当只有一次正确输入时，开锁， { //DisplayListChar(0,1,LockOpen); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(LockOpen[j]); } TwoAlam();//操作成功提示音 ErrorCont=0; KEY=0;//开锁 pass=1;//置正确标志位 TR0=1;//开启定时 open_led=0;//开锁指示灯亮 for(j=0;j<6;j++)//将输入清除 { InputData[i]=0; } } else//当两次正确输入时，开启重置密码功能 { //DisplayListChar(0,1,SetNew); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(SetNew[j]); } TwoAlam(); //操作成功提示 ReInputEn=1;//允许重置密码输入 CorrectCont=0;//正确计数器清零 } } else//=========================当第一次使用或忘记密码时可以用131420对其密码初始化============ { if((InputData[0]==1)&&(InputData[1]==3)&&(InputData[2]==1)&&(InputData[3]==4)&&(InputData[4]==2)&&(InputData[5]==0)) { WrToROM(initpassword,0,6); //强制将初始密码写入24C02存储 //DisplayListChar(0,1,initword);//显示初始化密码 write_1602com(er); for(j=0;j<16;j++) { write_1602dat(initword[j]); } TwoAlam(); Delay400Ms(); TwoAlam(); N=0; } else { //DisplayListChar(0,1,Error); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(Error[j]); } ThreeAlam();//错误提示音 pass=0; } } } else//当已经开启重置密码功能时，而按下开锁键， { //DisplayListChar(0,1,Er_try); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(Er_try[j]); } ThreeAlam(); } } else { //DisplayListChar(0,1,Error); write_1602com(er); for(j=0;j<16;j++) { write_1602dat(Error[j]); } ThreeAlam();//错误提示音 pass=0; } N=0;//将输入数据计数器清零，为下一次输入作准备 operation=1; } //==============================主函数=============================== void main() { unsigned char KEY,NUM; unsigned char i,j; P1=0xFF; EA=1; TMOD=0x11; IT1=1;//下降沿有效 EX1=1;//外部中断1开 TH0=0;//T0赋初值 TL0=0; TR0=0;//t0开始计时 TL1=0xB0; TH1=0x3C; ET1=1; TR1=0; Delay400Ms(); //启动等待，等LCM讲入工作状态 lcd_init(); //LCD初始化 write_1602com(yi);//日历显示固定符号从第一行第0个位置之后开始显示 for(i=0;i<16;i++) { write_1602dat(name[i]);//向液晶屏写日历显示的固定符号部分 } write_1602com(er);//时间显示固定符号写入位置，从第2个位置后开始显示 for(i=0;i<16;i++) { write_1602dat(start_line[i]);//写显示时间固定符号，两个冒号 } write_1602com(er+9);//设置光标位置 write_1602com(0x0f);//设置光标为闪烁 Delay5Ms(); //延时片刻(可不要) N=0;//初始化数据输入位数 while(1) { if(key_disable==1) Alam_KeyUnable(); else ALAM=1;//关报警 KEY=keynum(); if(KEY!=0||IrOK==1) { if(key_disable==1) { second=0; } else { NUM=coding(Im[2],KEY); { switch(NUM) { case ('A'): ;break; case ('B'):; break; case ('C'): ;break; case ('D'): ResetPassword();break; //重新设置密码 case ('*'): Cancel();break; //取消当前输入 case ('#'): Ensure(); break; //确认键， default: { //DisplayListChar(0,1,Input); write_1602com(er); for(i=0;i<16;i++) { write_1602dat(Input[i]); } operation=0; if(N<6) //当输入的密码少于6位时，接受输入并保存，大于6位时则无效。 { OneAlam();//按键提示音 //DisplayOneChar(6+N,1,'*'); for(j=0;j<=N;j++) { write_1602com(er+6+j); write_1602dat('*'); } InputData[N]=NUM; N++; } else//输入数据位数大于6后，忽略输入 { N=6; break; } } } } } } } } //*********************************中断服务函数************************************** void time1_int() interrupt 3 { TL1=0xB0; TH1=0x3C; countt0++; if(countt0==20) { countt0=0; second++; if(pass==1) { if(second==1) { open_led=1;//关指示灯 TR1=0;//关定时器 TL1=0xB0; TH1=0x3C; second=0; } } else { if(second==3) { TR1=0; second=0; key_disable=0; s3_keydown=0; TL1=0xB0; TH1=0x3C; } else TR1=1; } } } //外部中断解码程序_外部中断0 void intersvr1() interrupt 2 using 1 { TR0=1; Tc=TH0*256+TL0;//提取中断时间间隔时长 TH0=0; TL0=0; //定时中断重新置零 if((Tc>Imin)&&(Tc<Imax)) { m=0; f=1; return; } //找到启始码 if(f==1) { if(Tc>Inum1&&Tc<Inum3) { Im[m/8]=Im[m/8]>>1|0x80; m++; } if(Tc>Inum2&&Tc<Inum1) { Im[m/8]=Im[m/8]>>1; m++; //取码 } if(m==32) { m=0; f=0; if(Im[2]==~Im[3]) { IrOK=1; TR0=0; } else IrOK=0; //取码完成后判断读码是否正确 } //准备读下一码 } } ~~~