|
- UID
- 852722
|
基于STC12C2052AD单片机的红外遥控器源代码
基于STC12C2052AD单片机的红外遥控器源代码
// 中断函数注意养成指定寄存器组的习惯
//不同优先级的中断程序绝对不能使用同一组寄存器
/*****编程时防止中断把寄存器中的数据改变的解决方法是给中断指定寄存器，
同优先级的使用同一组没事。
1、写中断程序一定要用Using语句指定寄存器组。第1、2、3组都可以，不能是0.
2、51单片机的中断有两个优先级。一个中断不会打断另一个相同优先级的中断。
这样相同级别中断可以使用同一个组。比如：低优先级的中断函数都
用 Using 1，高优先级的中断都用 Using 2 。这样不会冲突。
下面是一个正常的例子：
C程序： Void Int0() Interrupt 0 Using 1
默认5个中断时同级的，不会冲突，但是最好养成好习惯
不指定中断要使用的寄存器，每次都要入栈保护数据，中断完还要出栈，代码会增加32字节
完整代码下载:Http://Www.51hei.Com/F/Hwxx52.Rar
********************************************************************/
#Include <Stc12c2052ad.H>
#Include <Intrins.H>
#Define Uchar Unsigned Char
#Define Uint Unsigned Int
//少占鱼制作 河北正定欢迎您 长沙航空职业技术学院 2010 年QQ:41165643
//
//定义Flash 操作等待时间及允许IAP/ISP/EEPROM 操作的常数
//#Define ENABLE_ISP 0x80 //系统工作时钟<30MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x81 //系统工作时钟<24MHz 时，对ISP_CONTR 寄存器设置此值
#Define ENABLE_ISP 0x82 //系统工作时钟<20MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x83 //系统工作时钟<12MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x84 //系统工作时钟<6MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x85 //系统工作时钟<3MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x86 //系统工作时钟<2MHz 时，对ISP_CONTR 寄存器设置此值
//#Define ENABLE_ISP 0x87 //系统工作时钟<1MHz 时，对ISP_CONTR 寄存器设置此值
Union Union _temp16
{
Uint Un_temp16;
Uchar Un_temp8[2];
}My_unTemp16;
Uchar Byte_Read(Uint Add); //读一字节，调用前需打开IAP 功能
Void Byte_Program(Uint Add, Uchar Ch); //字节编程，调用前需打开IAP 功能
Void Sector_Erase(Uint Add); //擦除扇区
Void IAP_Disable(); //关闭IAP 功能
Sbit JIESHOU=P1^0; //接收指示灯
Sbit FASHE=P1^1; //发射指示灯
Sbit KEY=P3^5;
Sbit Cin=P3^2; //接收端
Sbit Contrl=P3^0;//发射控制端
Sbit Khz=P3^1;//38KHZ产生 ，由T1设置
/****************************************************************/
Void Delayms(Uint);
Void ADC();
Void InitADC();
Void Init1();
Void Init2();
Void Fashe();
Void Jieshou();
Void Delayus(Uchar I);
Void Led(Uchar X);
/******************************************************/
Uint Voltage;
Bit Receive=0;//接收标志
Bit Flag=0;//低电平记录完成标志
Bit End=0;
Bit Finish=1;
Uchar A[43]={121,1,3,4,44,55,24,156,35};//间接寻址的高128RAM，内部256RAM高128只能间接寻址
Uchar J=0;
Uint Zu=0,Addr=0; //扇区地址
Uchar K;//按键代号
Uchar M=0;//写EEPROM时用来移动数组的
Uchar B[6];//用来存储每一组数据的总字节数
/**********************************************************************/
/****************************************************************/
Void Main()
{
Delayus(5);
Delayms(1000);
InitADC();//这里对其他用到P1口的地方有影响，尽量放前面
Contrl=0;//关闭38K输出
KEY=1;
Sector_Erase(0x0000);//擦除扇区 1
Sector_Erase(0x200);
Sector_Erase(0x400);
Sector_Erase(0x600);
Sector_Erase(0x800);
Sector_Erase(0xa00);
Sector_Erase(0xc00);//擦除扇区 7
Addr=0xc00;
FASHE=0;
JIESHOU=0;
FASHE=1;
Delayms(4900);
For(J=6;J>0;J--)//J是数据总长度，如此判断，不会存储多余的空位
{ Byte_Program(Addr,A
??);//从本组数据对应扇区首地址开始写EEPROM
M++; //数组下移
Addr++; //地址下移
Delayms(1);} //For End
M=Byte_Read(0xc00);
If(M==121)
{
JIESHOU=1;
Delayms(6000);
}
M=0;//下面还要用，所以清0
Addr=0;
Zu=0;
FASHE=0;
KEY=1;
JIESHOU=0;
Delayms(1000);
Sector_Erase(0x0000);//擦除扇区 1
Sector_Erase(0x200);
Sector_Erase(0x400);
Sector_Erase(0x600);
Sector_Erase(0x800);
Sector_Erase(0xa00);
Sector_Erase(0xc00);//擦除扇区 7
EX1=1; //开外部中断1
IT1=1;//外部中断1边沿触发，不然按住的时候一直中断
EA=1;
Delayms(1);
//等待按键时两个灯灭
While(1)
{
If(Receive)//外部按键中断1，正式进入接收函数
{
FASHE=0;//发射指示灯
JIESHOU=1; //接收指示灯
Delayms(3000);
JIESHOU=0;
Delayms(2);
FASHE=1;
Delayms(3000);
FASHE=0;
Jieshou(); //接收函数是T0定时开始后计数满溢出跳出的
}
If(!KEY) //KEY为0时进入发射模式
{
JIESHOU=0;
Delayms(200);
FASHE=1;
Delayms(200);
KEY=1;
Fashe();
}
}
}
/********************************************************************/
//接收函数初始化
Void Init1()//接收初始化
{
Finish=1;
EA=0; //因为下面要写EEPROM，必须关闭EA
TMOD=0x01;//T0方式1
TH0=0x00;
TL0=0x00;
TR0=0;
EX0=1;
EX1=0;//关闭外部中断1按键 ，一旦进入接收函数，就关闭按键防止干扰
ET0=1; //开T0中断
IT0=1; //外部中断边沿触发
EA=0;
}
//
/********************************************************************/
//发射函数初始化
Void Init2()//发射初始化
{
Contrl=0;//关闭发射端,由于它与38K输出端并联，所以拉低不输出
TMOD=0x21;//T0方式1，外部INTO唤醒 ,T1方式2
TH1=-(13/256);//定时13us翻转一次,即38KHZ (26us)
TL1=-(13%256);
ET1=1; //T1中断
TR1=1;
EA=1;
}
/************************************************************************/
// 红外接收子程序
Void Jieshou()
{
Init1(); //接收初始化
Delayms(3000);
Flag=0;
Finish=1;
JIESHOU=1;//接收灯亮才可以开始按遥控
EA=1;//开中断
EX0=1;
//接收灯亮等待接收
While(Finish) //退出接收循环检测
{
While(Flag)//T0已启动标志，用完记得清0，由外部中断0启动，初次启动检测
{//第一次低电平测宽已经开始
While(!Cin);//等待高电平到来,T0中断不会在这里发生，因为低电平宽度不会有65MS这么长
{
TR0=0;
A[J]=TH0; //低电平宽度 先存高8位数据
J++;
A[J]=TL0;//存储的是低电平宽度
J++;//数组下移
TH0=0;//重装T0
TL0=9;//补偿前面消耗的时间
TR0=1;//重新启动T0，计时高电平
}
//高电平测宽开始
While(Cin&&Flag);//等待Cin低电平到来。T0中断就是在这里等待的时候发生的，因为最后一个电平必然是高电平(无信号就是高)
//Flag=1表示T0还没中断，还是接收有效
If(Flag)//Flag为1才表示计时有效,Flag=0表示最后高电平很长结束了
{ //加个Flag才能退出这个等待
TR0=0;
A[J]=TH0; //先存高8位数据
J++;
A[J]=TL0;//存储的是低电平段
J++;//数组下移
TH0=0; //重装T0
TL0=0;
TR0=1;//重新启动T0，计时低电平
}
}
//判断是否退出接收
If(End)
{
Receive=0;//用完接收启动标志要清0
Flag=0;
FASHE=1;
Delayms(122);
JIESHOU=1;//亮两个灯表示接收成功
J=0;
Finish=0;
End=0;
}
}
//接收完亮两个灯
Finish=1;
EX1=1;//开外部按键中断1
EA=1;
}
/***********************************************/
// 红外发射子程序
Void Fashe() //发射程序里没有安排推出操作，所以只有重启才能重新进入选择模式
{
While(1)
{
ADC();
Switch(K)
{
Case 1:For(J=0<J<B[0];J++){A[J]=Byte_Read(J);}Led(B[0]); Break;
Case 2:For(J=0<J<B[1];J++){A[J]=Byte_Read(J+0x200);}Led(B[1]);Break;
Case 3:For(J=0<J<B[2];J++){A[J]=Byte_Read(J+0x400);}Led(B[2]);Break;
Case 4:For(J=0<J<B[3];J++){A[J]=Byte_Read(J+0x600);}Led(B[3]);Break;
Case 5:For(J=0<J<B[4];J++){A[J]=Byte_Read(J+0x800);}Led(B[4]);Break;
Case 6:For(J=0<J<B[5];J++){A[J]=Byte_Read(J+0xa00);}Led(B[5]);Break;
Default:k=0;Break;
}
Init2();//必须先读EEPROM再开定时器中断，不然会无法读EEPROM
}
}
//
/**********************************************************************/
Void Led(Uchar X)
{
J=0;
X=X/2;//2个数组是一段电平，而且肯定是偶数个数组 2*N 是偶数嘛
While(X)
{
TH0=A[J];
J++;
TL0=A[J];
J++;
TR0=1;//
While(!TF0);//等待T0溢出,因为没有采用T0中断
Contrl=!Contrl;
X--;
}
}
//
/***************************************************************/
/*****编程时防止中断把寄存器中的数据改变的解决方法是给中断指定寄存器，同优先级的使用同一组没事。
1、写中断程序一定要用Using语句指定寄存器组。第1、2、3组都可以，不能是0.
2、51单片机的中断有两个优先级。一个中断不会打断另一个相同优先级的中断。
这样相同级别中断可以使用同一个组。比如：低优先级的中断函数都用 Using 1，高优先级的中断都用 Using 2 。这样不会冲突。
下面是一个正常的例子：
C程序： Void Int0() Interrupt 0 Using 1
默认5个中断时同级的，不会冲突，但是最好养成好习惯
不指定中断要使用的寄存器，每次都要入栈保护数据，中断完还要出栈，代码会增加32字节
********************************************************************/
//中断函数要指定使用那组寄存器，使用同一组时可能会破坏了上次寄存器中的数据
//同一优先级的中断可以使用同一组寄存器
Void Time0() Interrupt 1 Using 1//定时器0中断
{
EA=0;
EX0=0;
EX1=0;
ET0=0;
FASHE=0;
Delayms(200);
JIESHOU=0; //接收指示灯
Delayms(1000);
//有65MS以上了，表示接收完毕
B[Zu/0x200]=J; //J是从0开始的，最后一次电平存完J自加1了，总长度正好是当前值
Addr=Zu;//因为下面Zu值还要用，所以这里转移其数据
//Zu是每个存储空间的起始地址
M=0;
For(;J>0;J--)//J是数据总长度，如此判断，不会存储多余的空位
{ Byte_Program(Addr,A
??);//从本组数据对应扇区首地址开始写EEPROM
M++; //数组下移
Addr++; //地址下移
Delayms(1);} //For End
I<(Zu<0xa00)//第一组代码完毕后，转到第二组，每组都是200个空间
Zu+=0x200; //测完一组 ，扇区地址指向下一个扇区
Else
{ Zu=0x000;} //超过6组代码，内存重新指向第1组
Flag=0;
Receive=0;//用完接收启动标志要清0
End=1;//退出接收函数最外层循环
}
/******************************************************/
// 发射频率38khz由T1产生
Void Time1() Interrupt 3 Using 1 //定时器1中断 ，因为默认是同优先级，所以可以使用同一组寄存器
{
Khz=!Khz;
}
/******************************************************/
// 外部中断 存储高电平长度
Void Interint0() Interrupt 0 Using 1 //外部中断0
{
If (Flag==0)//Flag=0表示是首次接收到脉冲
{
TH0=0;
TL0=10;//前面延时函数消耗的时间补上
TR0=1;
EX0=0;//关闭外部中断0,以后的计数都在接收函数里
Flag=1;//表示启动T0
}
}
//
/************************************************************/
/******************************************************/
// 外部按键中断 1
Void Interint1() Interrupt 2 Using 1 //外部中断1
{
Receive=1;
Delayms(122);//等过抖动时间
EA=0;
}
/******************************************************/
//AD转换初始化 ----打开ADC电源
Void InitADC()
{
P1=0xff;//这里对其他用到P1口的地方有影响
ADC_CONTR|=0x80;
Delayms(30);
//这两个寄存器用来设置 P1口四种状态,每一位对应一个P1引脚 ，按状态组合操作
P1M0=0x08;//这两个寄存器用来设置 P1口四种状态,每一位对应一个P1引脚 ，按状态组合操作
P1M1=0x08;//设置 P1.3做AD
}
/******************************************************************/
// AD转换程序
Void ADC()
{
ADC_DATA = 0; //清除结果
ADC_CONTR = 0x60; //转换速度设置 0x60 最快速度
ADC_CONTR = 0xE0; //1110,0000 清 ADC_FLAG, ADC_START 位和低 3 位
ADC_CONTR |= 0x03; //选择 A/D 当前通道 P1.3
Delayus(100); //使输入电压达到稳定
ADC_CONTR |= 0x08; //0000,1000 令 ADCS = 1, 启动A/D转换,
While(!(ADC_CONTR & 0x10)); //!的优先级比&高太多了
/***************
这里While 不能改成While(ADC_CONTR & 0x10==0） ；就错误了,因为优先级 ==比&高 ，所以要加括号
While( (ADC_CONTR & 0x10) ==0) 或者非一下 While(!(ADC_CONTR & 0x10)); //!的优先级比&高太多了
******************************/
ADC_CONTR &= 0xE7; //1111,0111 清 ADC_FLAG 位, 关闭A/D转换,
Voltage=ADC_DATA;
If( Vol<Age<40)
{
K=1; //对应0X000扇区内容
}
If(Voltage>=40&&Vol<Age<80)
{
K=2; //对应0X200扇区内容
}
If(Voltage>=80&&Vol<Age<110)
{
K=3;
}
If(Voltage>=110&&Vol<Age<130)
{
K=4;
}
If(Voltage>=130&&Vol<Age<148)
{
K=5;
}
If(Voltage>=148&&Vol<Age<160)//注意:默认是165 电压AD值
{
K=6;
}
}
/******************************************/
/*
--- STC International Limited ----------------
一个完整的EEPROM 测试程序，用宏晶的下载板可以直接测试
STC12C52xxAD 系列单片机 EEPROM/IAP 功能测试程序演示
STC11xx 系列单片机 EEPROM/IAP 功能测试程序演示
STC10xx 系列单片机 EEPROM/IAP 功能测试程序演示
--- STC International Limited ------------------
--- 宏晶科技 设计 2009/1/12 V1.0 --------------
***********************************************/
//读一字节，调用前需打开IAP 功能，入口 PTR = 字节地址，返回:A = 读出字节
Uchar Byte_Read(Uint Add)
{
ISP_DATA = 0x00;
ISP_CONTR = ENABLE_ISP; //打开IAP 功能, 设置Flash 操作等待时间
ISP_CMD = 0x01; //IAP/ISP/EEPROM 字节读命令
My_unTemp16.Un_temp16 = Add; //联合体变量赋值 ，这里是俩字节，因为公用内存，所以下面数组也是此内容
ISP_ADDRH = My_unTemp16.Un_temp8[0]; //设置目标单元地址的高8 位地址
ISP_ADDRL = My_unTemp16.Un_temp8[1]; //设置目标单元地址的低8 位地址
EA = 0;
ISP_TRIG = 0x46; //先送 5Ah,再送A5h 到ISP/IAP 触发寄存器,每次都需如此
ISP_TRIG = 0xB9; //送完A5h 后，ISP/IAP 命令立即被触发起动
_nop_();
//EA = 1;
IAP_Disable(); //关闭IAP 功能, 清相关的特殊功能寄存器,使CPU 处于安全状态,
//一次连续的IAP 操作完成之后建议关闭IAP 功能,不需要每次都关
Return (ISP_DATA); //数据在ISP_DATA寄存器中
}
//字节编程，调用前需打开IAP 功能，入口PTR = 字节地址, A= 须编程字节的数据
Void Byte_Program(Uint Add, Uchar Ch)
{
ISP_CONTR = ENABLE_ISP; //打开 IAP 功能, 设置Flash 操作等待时间
ISP_CMD = 0x02; //IAP/ISP/EEPROM 字节编程命令
My_unTemp16.Un_temp16 = Add; //联合体变量赋值 ，这里是俩字节，因为公用内存，所以下面数组也是此内容
ISP_ADDRH = My_unTemp16.Un_temp8[0]; //设置目标单元地址的高8 位地址
ISP_ADDRL = My_unTemp16.Un_temp8[1]; //设置目标单元地址的低8 位地址
ISP_DATA = Ch; //要编程的数据先送进ISP_DATA 寄存器
EA = 0;//必须关中断，不然没法写
ISP_TRIG = 0x46; //先送 46h,再送B9h 到ISP/IAP 触发寄存器,每次都需如此
ISP_TRIG = 0xb9; //送完B9h 后，ISP/IAP 命令立即被触发起动
_nop_();
//EA = 1;
IAP_Disable(); //关闭IAP 功能, 清相关的特殊功能寄存器,使CPU 处于安全状态,
//一次连续的IAP 操作完成之后建议关闭IAP 功能,不需要每次都关
}
//擦除扇区, 入口PTR = 扇区地址
Void Sector_Erase(Uint Add)
{
ISP_CONTR = ENABLE_ISP; //打开IAP 功能, 设置Flash 操作等待时间
ISP_CMD = 0x03; //IAP/ISP/EEPROM 扇区擦除命令
My_unTemp16.Un_temp16 = Add;
ISP_ADDRH = My_unTemp16.Un_temp8[0]; //设置目标单元地址的高8 位地址
ISP_ADDRL = My_unTemp16.Un_temp8[1]; //设置目标单元地址的低8 位地址
EA = 0;//必须关中断
ISP_TRIG = 0x46; //先送 46h,再送B9h 到ISP/IAP 触发寄存器,每次都需如此
ISP_TRIG = 0xB9; //送完B9h 后，ISP/IAP 命令立即被触发起动
_nop_();
//EA = 1;
IAP_Disable(); //关闭IAP 功能, 清相关的特殊功能寄存器,使CPU 处于安全状态,
//一次连续的IAP 操作完成之后建议关闭IAP 功能,不需要每次都关
}
Void IAP_Disable()
{
//关闭IAP 功能, 清相关的特殊功能寄存器,使CPU 处于安全状态,
//一次连续的IAP 操作完成之后建议关闭IAP 功能,不需要每次都关
ISP_CONTR = 0; //关闭IAP 功能
ISP_CMD = 0; //清命令寄存器,使命令寄存器无命令,此句可不用
ISP_TRIG = 0; //清命令触发寄存器,使命令触发寄存器无触发,此句可不用
ISP_ADDRH = 0;
ISP_ADDRL = 0;
}
//
Void Delayus(Uchar I )
{
While(I--);
}
//延时函数
Void Delayms(Uint K)
{
Uint Data I,J;
For(I<0;I<K;I++)
{
For(J<0;J<200;J++)
{;}
}
} |
|
