




已阅读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;i8;i+) DATA1i=0;DATA2i=0;RESUITi=0;void delay(msx) /msx为延时毫秒数uint i,j;for(i=0;i=msx;i+)for(j=0;j=110;j+);void display(uchar n,uchar m) /n是第几只数码管,m是显示的数字是多少 P0=P0&0x80; P0=P0|(n4); P0=P0|m;void tim0_isr (void) interrupt 1 using 1/定时器0中断服务函数irtime+;void ex0_isr (void) interrupt 0 using 0/外部中断0服务函数if(fir) if(irtime=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;i4;i+) /处理4个字节 for(j=1;j7) value=value|0x80; else value=value; if(j1; k+; IRcordi=value; value=0; if(IRcord0=IRcord1)&(IRcord2=IRcord3) X=IRcord2;fang2=1;void keyscan() /矩阵键值扫描子函数 if(irok)Ircordpro();irok=0;fang1=1; if(fang1=1)&(fang2=1) fang1=0;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;flag1=1;display(7,0);break; void DataOper() uchar i,j,m=0;lint k=0; for(i=0;i(px1-1);i+) /把第一个数组中的数处理成十进制数 k=DATA1i; for(j=0;j(px1-i-1);j+) k=k*10; x1=x1+k; x1=x1+DATA1px1-1; for(i=0;i(px2-1);i+) /把第二个数组中的数处理成十进制数 k=DATA2i; for(j=0;j(px2-i-1);j+) k=k*10; x2=x2+k;x2=x2+DATA2px2-1; if(f1=1) y=x1+x2; /根据标志位进行运算 else if(f2=1) y=x1-x2;else if(f3=1) y=x1*x2;else if(f4=1) y=x1/x2;RESUIT0=y/10000000; /把各位分离出来存入结果数组中RESUIT1=(y%10000000)/1000000;RESUIT2=(y%1000000)/100000;RESUIT3=(y%100000)/10000;RESUIT4=(y%10000)/1000;RESUIT5=(y%1000)/100;RESUIT6=(y%100)/10;RESUIT7=y%10;while(!RESUITm) m+;px3=m; void DataHandle() /把每次按键的结果记录下来,并存到适当的位置 if(key10)&(flag=1)&(flag1=0) DATA1px1=key; px1+; flag=0; else if(key10)&(flag=1)&(flag1=1) DATA2px2=key; px2+; flag=0; else if(flag1=1) switch(key)case 10 : f1=1;f2=0;f3=0;f4=0;break; / +case 11 : f1=0;f2=1;f3=0;f4=0;break; / -case 14 : f1=0;f2=0;f3=1;f4=0;break; / *case 15 : f1=0;f2=0;f3=0;f4=1;break; / / void DisplayHandle() /将数据显示在数码管上 uchar i,x; if(flag1=0)&(flag2=0) x=px1; if(px1=
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 石大学前儿童保育学课外必读:中国居民膳食营养素参考摄入量表(DRIS)
- 2025年三年级寓言故事阅读试题
- SnO2-钛中空纤维电催化膜的制备及水处理性能研究
- 饮料行业客户细分与个性化服务策略-洞察阐释
- 专精特新小巨人企业的定义与行业定位
- 绿色园区的能源管理与低碳减排策略
- 建立产业协同机制促进跨界融合
- 新文科背景下传统文化类课程建设与实践
- 第七章运动和力教学设计
- 高中美术跨学科教学的现状与发展趋势
- 电力拖动自动控制系统-运动控制系统期末试卷附答案共6套
- 医疗器械随货同行单模版
- 康复科实习生入科教育
- GB∕T 17466.1-2019 家用和类似用途固定式电气装置的电器附件安装盒和外壳 第1部分:通用要求
- 青岛市 主要片区 项目 拆迁补偿方案 链接
- Q∕GDW 11612.2-2018 低压电力线高速载波通信互联互通技术规范 第2部分:技术要求
- 《国际贸易实务》全书电子教案完整版教学设计
- JTT888-2020公共汽车类型划分及等级评定_(高清-最新)
- DR曝光参考条件
- 房地产营销策略外文翻译文献
- 办公室面积整改方案
评论
0/150
提交评论