基于51单片机的红外遥控计算器程序附电路图,注释详细_第1页
基于51单片机的红外遥控计算器程序附电路图,注释详细_第2页
基于51单片机的红外遥控计算器程序附电路图,注释详细_第3页
基于51单片机的红外遥控计算器程序附电路图,注释详细_第4页
基于51单片机的红外遥控计算器程序附电路图,注释详细_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

/*基于 51 单片机的红外遥控计算器程序*/*本程序用基于 TC9012 遥控器可直接操作,电路图,遥控器编码图在最后*/#include#include#include#define uint unsigned int#define uchar unsigned char#define lint unsigned long int sbit IR=P32; /红外接口标志bit irpro_ok,irok;uchar irtime,X,mir,fir; /红外用全局变量uchar IRcord4, irdata33;uchar DATA18=0,0,0,0,0,0,0,0; /第一个数uchar DATA28=0,0,0,0,0,0,0,0; /第二个数uchar RESUIT8=0,0,0,0,0,0,0,0; /结果 uchar px1=0,px2=0,px3=0,flag=0,flag1=0,flag2=0,flag3=0,f1=0,f2=0,f3=0,f4=0; /各全局变量uchar temp,key,fang1,fang2;lint x1=0,x2=0,y=0; /输入的数及其结果void delay(msx); /ms 延时函数void Init(); /系统初始化void INTInit(); /中断初始化void Ircordpro(); /红外码值处理函数void keyscan(); /键值检测void delay(uint); /延时void DataOper(); /数据运算void DataHandle(); /数据接收void DisplayHandle(); /显示处理void display(uchar,uchar); /数码管显示函数void main()INTInit();P0=0x00;while(1)keyscan();DataHandle();DisplayHandle(); void INTInit()TMOD=0x02; /定时器 0 工作方式 2,TH0 是重装值, TL0 是初值TH0=0x00; /reload valueTL0=0x00; /initial valueET0=1; /开中断TR0=1;IT0 = 1; / Configure interrupt 0 for falling edge on /INT0 (P3.2)EX0 = 1; / Enable EX0 InterruptEA = 1; void Init() /初始化,所有数据归零uchar i;px1=0;px2=0;px3=0;flag=0;flag1=0;flag2=0;flag3=0;f1=0;f2=0;f3=0;f4=0; x1=0;x2=0;y=0;for(i=0;i=31)mir=0; /4.5ms+4.5msirdatamir=irtime;irtime=0;mir+;if(mir=33)irok=1;mir=0;fir=0;elseirtime=0;fir=1;void Ircordpro(void) /红外码值处理函数 unsigned char i, j, k;unsigned char cord,value;k=1;for(i=0;i7) value=value|0x80;else value=value;if(j1;k+;IRcordi=value;value=0; if(IRcord0=IRcord1)fang2=1;void keyscan() /矩阵键值扫描子函数if(irok)Ircordpro();irok=0;fang1=1;if(fang1=1)fang2=0;switch(X)case 0x08: key=0;flag=1;break;case 0x01: key=1;flag=1;break;case 0x02: key=2;flag=1;break;case 0x03: key=3;flag=1;break;case 0x05: key=4;flag=1;break;case 0x06: key=5;flag=1;break;case 0x07: key=6;flag=1;break;case 0x09: key=7;flag=1;break;case 0x0A: key=8; flag=1;break;case 0x0B: key=9; flag=1;break;case 0x10: key=10;flag1=1;display(7,0);break;case 0x1A: key=11;flag1=1;display(7,0);break;case 0x16: key=12;flag2=1;Init();break;case 0x11: key=13;flag2=1;DataOper();break;case 0x15: key=14;flag1=1;display(7,0);break;case 0x19: key=15;fl

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论