/********************************************************************/
//宏观声明
#include
#include
#define nop() _nop_()
#define uchar unsigned char
#define uint unsigned int
/*
P3 Bit Registers (Mnemonics & Ports)
------------------------------------------------*/
sbit P3_0 = 0xB0;
sbit P3_1 = 0xB1;
sbit P3_2 = 0xB2;
sbit P3_3 = 0xB3;
sbit P3_4 = 0xB4;
sbit P3_5 = 0xB5;
sbit P3_6 = 0xB6;
sbit P3_7 = 0xB7;
/********************************************************************/
//EEPROM 声明文件
#define CMD_IDLE 0
#define CMD_READ 1
#define CMD_PROGRAM 2
#define CMD_ERASE 3
#define ENABLE_IAP 0x83
/********************************************************************/
//红外学习声明
uchar data IRcode[4],IRcode2[4];
uchar CodeTemp;
uchar i,j,k,p,studyi,num;
uchar IRS_STATE=0;
uchar idata key_ircode[30][4];
sbit IRsignal=P3^2;
sbit LED1=P1^6;
sbit LED2=P1^7;
/********************************************************************
sbit Skey=P2^7;
sbit key1=P2^0;
sbit key2=P2^1;
sbit key3=P2^2;
sbit key4=P2^3;
sbit key5=P2^4;
/********************************************************************/
//I2C声明文件
sbit SDA=P3^3;
sbit SCL=P3^7;
/********************************************************************/
uchar data keynum;
/********************************************************************/
//-----------------------------------------------------
//static bit OP; //红外发射管的亮灭
//static unsigned int count; //延时计数器
//static unsigned int endcount; //终止延时计数
static unsigned char Flag; //红外发送标志
char iraddr1; //十六位地址的第一个字节
char iraddr2; //十六位地址的第二个字节
sbit IR_SEND=P1^3;
uchar cnt;
uint value;
//------------------------------------------------------------
#define FOSC 11059200
#define T38KHz (FOSC / 4 / 37900)
/********************************************************************/
void Delay0_9ms(void)//0.9毫秒延迟
{
unsigned char i, j;
_nop_();
_nop_();
_nop_();
i = 10;
j = 170;
do
{
while (--j);
} while (--i);
}
void Delay1ms(void)//1毫秒延迟
{
/*********************************************************************/
unsigned char i, j;
_nop_();
i = 11;
j = 190;
do
{
while (--j);
} while (--i);
}
/********************************************************************/
void Delay4ms(void)//4毫秒延迟
{
unsigned char i, j;
_nop_();
_nop_();
_nop_();
i = 44;
j = 3;
do
{
while (--j);
} while (--i);
}
/********************************************************************
void Delay500us()//0.5毫秒延迟 //@11.0592MHz
{
unsigned char i, j;
i = 6;
j = 93;
do
{
while (--j);
} while (--i);
}
********************************************************************/
void Delay(void)// 普通延迟
{
uchar i,j,k;
for(i=200;i>0;i--)
for(j=200;j>0;j--)
for(k=3;k>0;k--);
}
/*****************************************************************/
void putchar(unsigned char data1)//字符发送函数
{
SBUF = data1; //将待发送的字符送入发送缓冲器
while(TI == 0); //等待发送完成
TI = 0; //发送中断标志请0
}
/*****************************************************************/
void putstring(unsigned char *dat)//字符串发送函数
{
for(i=0;i<4;i++) //判断字符串是否发送完毕
{
putchar(*dat); //发送单个字符
dat++; //字符地址加1,指向先下一个字符
}
}
/****************************************************************/
void initUart(void)//串口初始化
{
TMOD=0x20; //用定时器设置串口波特率
TH1=0xfd;
TL1=0xfd;
TR1=1;
REN=1; //串口初始化
SM0=0;
SM1=1;
EA=1; //开启总中断
ES=1;
}
/****************************************************************/
void IRinit()//红外学习声明初始化
{
IT0=1;
EX0=0;
EA=1;
CodeTemp=0;
}
void IICinitSteve()//I2C从总线初始化
{
IT1=0;
EX1=1;
EA=1;
}
/****************************************************************/
void PCAinit()//PCA定时器0初始化
{
CCON = 0; //Initial PCA control register
//PCA timer stop running
//Clear CF flag
//Clear all module interrupt flag
CL = 0; //Reset PCA base timer
CH = 0;
CMOD = 0x02; //Set PCA timer clock source as Fosc/2
//Disable PCA timer overflow interrupt
value = T38KHz;
CCAP0L = value; //P1.3 output 100KHz square wave
CCAP0H = value >> 8; //Initial PCA module-0
value += T38KHz; //Initial PCA module-0
CCAPM0 = 0x4d; //PCA module-0 work in 16-bit timer mode and enable PCA interrupt, toggle the output pin CEX0(P1.3)
CR = 0; //PCA timer start run
EA = 1;
cnt = 0;
}
/****************************************************************/
void T0init()
{
Flag = 0;
P3_4 = 1;
EA = 1; //允许CPU中断
TMOD |= 0x01; //设定时器0和1为16位模式1
ET0 = 1; //定时器0中断允许
}
/****************************************************************/
void IapIdle()//EEPROM初始化
{
IAP_CONTR=0;
IAP_CMD=0;
IAP_TRIG=0;
IAP_ADDRH=0X80;
IAP_ADDRL=0;
}
/****************************************************************/
uchar IapReadByte(uint addr)//EEPROM读取命令
{
uchar dat;
IAP_CONTR=ENABLE_IAP;
IAP_CMD=CMD_READ;
IAP_ADDRL=addr;
IAP_ADDRH=addr>>8;
IAP_TRIG=0x5a;
IAP_TRIG=0xa5;
nop();
dat=IAP_DATA;
IapIdle();
return dat;
}
/****************************************************************/
void IapProgramByte(uint addr,uchar dat)//EEPROM 写入命令
{
IAP_CONTR=ENABLE_IAP;
IAP_CMD=CMD_PROGRAM;
IAP_ADDRL=addr;
IAP_ADDRH=addr>>8;
IAP_DATA=dat;
IAP_TRIG=0x5a;
IAP_TRIG=0xa5;
nop();
IapIdle();
}
/****************************************************************/
void IapEraseSector(uint addr)//EEPROM清除命令
{
IAP_CONTR=ENABLE_IAP;
IAP_CMD=CMD_ERASE;
IAP_ADDRL=addr;
IAP_ADDRH=addr>>8;
IAP_TRIG=0x5a;
IAP_TRIG=0xa5;
nop();
IapIdle();
}
/****************************************************************
void keycan()
{
if(key1==0)
{
Delay();
if(key1==0)
{
while(key1==0);
keynum=0;
}
}
else if(key2==0)
{
Delay();
if(key2==0)
{
while(key2==0);
keynum=1;
}
}
else if(key3==0)
{
Delay();
if(key3==0)
{
while(key3==0);
keynum=2;
}
}
else if(key4==0)
{
Delay();
if(key4==0)
{
while(key4==0);
keynum=3;
}
}
else if(key5==0)
{
Delay();
if(key5==0)
{
while(key5==0);
keynum=4;
}
}
}
/****************************************************************/
void int0(void) interrupt 0 using 2//红外学习命令
{
EA=0;
for(k=0;k<10;k++)
{
Delay0_9ms();
if(IRsignal==1)
{
k=10;break;
}
else if(k==9)
{
while(IRsignal==0);
Delay4ms();
Delay1ms();
// Delay500us();
for(i=0;i<4;i++)
{
for(j=1;j<=8;j++)
{
while(IRsignal==0);
Delay0_9ms();
if(IRsignal==1)
{
Delay1ms();
CodeTemp=CodeTemp|0x80;
if(j<8) CodeTemp=CodeTemp>>1;
}
else
if(j<8)CodeTemp=CodeTemp>>1;
}
IRcode[i]=CodeTemp;
CodeTemp=0;
}
Delay();
studyi++;
}
}
if(studyi==1)
{
for(i=0;i<4;i++)
{
IRcode2[i]=IRcode[i];
}
}
if(studyi==2)
{
for(i=0;i<4;i++)
{
if(IRcode2[i]!=IRcode[i])
{
studyi=0;
break;
}
if(i==3)
{
for(i=0;i<4;i++)
{
key_ircode[keynum][i]=IRcode[i];
}
EX0=0;
LED2=1;
}
}
studyi=0;
}
EA=1;
}
void SendIRdata(uchar IR[])
{
int i;
char irdata;
//---发红外码
CR = 1;
//发送9ms的起始码
TH0 = 0xDF;
TL0 = 0x98; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;//开始计数
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
//发送4.5ms的结果码
TH0 = 0xEF;
TL0 = 0xcb; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;//开始计数
Flag=1;
P3_4=1;
do{}while(Flag!=0);
//发送十六位地址的前八位
irdata=IR[0];
for(i=0;i<8;i++)
{
//先发送0.56ms的38KHZ红外波(即编码中0.56ms的低电平)
CR=1;
TH0 = 0xfd;
TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
//停止发送红外信号(即编码中的高电平)
if(irdata-(irdata/2)*2) //判断二进制数个位为1还是0
{
TH0 = 0xf9;
TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //1为宽的高电平
}
else
{
TH0 = 0xfd;
TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //0为窄的高电平
}
Flag=1;
P3_4=1;
do{}while(Flag!=0);
irdata=irdata>>1;
}
//发送十六位地址的后八位
irdata=IR[1];
for(i=0;i<8;i++)
{
//先发送0.56ms的38KHZ红外波(即编码中0.56ms的低电平)
CR=1;
TH0 = 0xfd;
TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
//停止发送红外信号(即编码中的高电平)
if(irdata-(irdata/2)*2) //判断二进制数个位为1还是0
{
TH0 = 0xf9;
TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //1为宽的高电平
}
else
{
TH0 = 0xfd;
TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //0为窄的高电平
}
Flag=1;
P3_4=1;
do{}while(Flag!=0);
irdata=irdata>>1;
}
//发送八位数据
irdata=IR[2];
for(i=0;i<8;i++)
{
//先发送0.56ms的38KHZ红外波(即编码中0.56ms的低电平)
CR=1;
TH0 = 0xfd;
TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
//停止发送红外信号(即编码中的高电平)
if(irdata-(irdata/2)*2) //判断二进制数个位为1还是0
{
TH0 = 0xf9;
TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //1为宽的高电平
}
else
{
TH0 = 0xfd;
TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //0为窄的高电平
}
Flag=1;
P3_4=1;
do{}while(Flag!=0);
irdata=irdata>>1;
}
//发送八位数据的反码
irdata=IR[3];
for(i=0;i<8;i++)
{
//先发送0.56ms的38KHZ红外波(即编码中0.56ms的低电平)
CR=1;
TH0 = 0xfd;
TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
//停止发送红外信号(即编码中的高电平)
if(irdata-(irdata/2)*2) //判断二进制数个位为1还是0
{
TH0 = 0xf9;
TL0 = 0xee; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //1为宽的高电平
}
else
{
TH0 = 0xfd;
TL0 = 0xfa; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1; //0为窄的高电平
}
Flag=1;
P3_4=1;
do{}while(Flag!=0);
irdata=irdata>>1;
}
CR=1;
TH0 = 0xfd;
TL0 = 0xf6; //设定时值0为38K 也就是每隔26us中断一次
TR0 = 1;
Flag=1;
P3_4=0;
do{}while(Flag!=0);
CR=0;
IR_SEND=1;
P3_4=1;
Flag=0;
}
/****************************************************************/
bit iic_start_decide()////IIC 开始判断
{
while(SCL==0);////开始不满足条件
while((SCL==1)&&(SDA==1));///开始条件
if((SCL==1)&&(SDA==0))////开始
{
while(SCL==1);///等待到时钟开始低跳变
return 1;
}
else
return 0;
}
/****************************************************************/
bit iic_stop_decide()////IIC 结束判断
{
while(SCL==0);////结束不满足条件
if((SCL==1)&&(0==SDA))////结束
{
while(SDA==0);///等待到数据开始高跳变
return 1;
}
else
{
return 0;}
}
/****************************************************************/
uchar iic_receive()
{
uchar i;
uchar rdata='0';
SDA=1;
for(i=0;i<8;i++)
{
rdata<<=1;
while(SCL==0);///当时钟为低时,数据无效,等待
if(SDA==1)
rdata++;
while(SCL==1);///防止在一个高电平时读8次
}
return (rdata);
}
/****************************************************************/
bit iic_ack_decide()
{
bit ack_flag;///局部变量
SDA=0;////8位发送完毕,释放数据线SDA,准备接收应答位
while(SCL==0);///等待SCL变高电平
//ack_flag=0;
while(SCL==1);///等待SCL变高电平
SDA=1;
ack_flag=1;
return(ack_flag);
}
void keynum_receive()
{
iic_start_decide();
iic_receive();
iic_ack_decide();
iic_receive();
iic_ack_decide();
keynum=iic_receive();
iic_ack_decide();
iic_stop_decide();
}
/****************************************************************/
void main()//主程序
{
/*******************************************************************/
//初始化动作
studyi=0; //红外学习状态
initUart(); //串口初始化
IRinit(); //红外学习初始化
IICinitSteve();
PCAinit();
T0init();
keynum=0xff; //按键初始化
/********************************************************************/
for(p=0;p<30;p++)
{
for(i=0;i<4;i++)
{
key_ircode[p][i]=IapReadByte(0x0000+(p*4)+i);
}
}
/*******************************************************************/
while(1)
{
// keycan();
while(keynum==0xff);
if(IRS_STATE==0)//遥控状态
{
/********************************************************************
if(Skey==0)//触发学习键
{
Delay();
if(Skey==0);
{
while(Skey==0);
LED1=0;
IRS_STATE=1;
}
}
/********************************************************************/
if(keynum==16)//触发学习键
{
LED1=0;
IRS_STATE=1;
}
else if(keynum!=0xff)
{
putstring(key_ircode[keynum]);
SendIRdata(key_ircode[keynum]);
}
}
else if(IRS_STATE==1)//学习状态
{
/********************************************************************/
if((keynum!=0xff)&&(keynum!=16))
{
EX0=1;
LED2=0;
while(LED2==0);
}
/********************************************************************/
if(keynum==16)//触发学习键
{
LED1=1;
LED2=1;
EX0=0;
IapEraseSector(0x0000);
for(p=0;p<30;p++)
{
for(i=0;i<4;i++)
{
IapProgramByte((0x0000+(p*4)+i), key_ircode[p][i]);
}
}
IRS_STATE=0;
}
}
keynum=0xff;
}
}
/****************************************************************/
void ser() interrupt 4 //串口中断
{
RI=0;
num=1;
}
void PCA_isr() interrupt 7 using 1
{
CCF0 = 0; //Clear interrupt flag
CCAP0L = value;
CCAP0H = value >> 8; //Update compare value
value += T38KHz; //Clear interrupt flag
}
void timeint(void) interrupt 1
{
Flag=0;
TR0=0;
}
void II2C_INT1(void) interrupt 2
{
EX1=0;
keynum_receive();
EX1=1;
}
上一篇:I2C模拟程序----汇编语言格式
下一篇:89C52控制MAX7219驱动数码管
推荐阅读最新更新时间:2024-03-16 16:03