




已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 特质车辆加油合同范本
- 展会样品购销合同范本
- 网上合同范本怎么
- 田螺回收合同范本
- 健康产业展销会策划
- 2025年初级电工考试题目及答案
- 2025年小学数学黄冈题库及答案
- 2025年审计试题及答案案例分析
- 2025年汽车新能源考试题及答案
- 2025年上海市事业单位工勤技能考试题库(含答案)
- 《中华会计文化传承与变迁》课件-第八篇 现代会计文化
- 2025年湘教版八年级数学上册教学计划与实践
- 装饰工程项目管理方案
- 旅行社安全培训课件
- UL2775标准中文版-2019气溶胶灭火器UL中文版标准
- 2024年10月自考00107现代管理学试题及答案
- 《一个粗瓷大碗》公开课一等奖创新教案
- 治未病进修总结
- 工具模型-尤里奇2021年版新HR胜任力
- 中学八年级信息技术Excel-电子表格教案
- 华中师大版八年级全一册心理健康 1.别让时间悄悄溜走 教案
评论
0/150
提交评论