




已阅读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年成膜助剂项目立项申请报告模板
- 医疗质量安全核心制度要点释义(国家卫健委)
- FZ/T 51011-2014纤维级聚己二酰己二胺切片
- 电子版-铁路货物运价规则
- 《月光下的中国》朗诵稿
- 印染工业园八万吨日污水集中处理项目环境影响评价报告书简本
- 单片机红外遥控系统设计
- 第15课《驿路梨花》教学实录
- 园林绿化种子进场检验记录
- 混凝土基础质量检验记录表
- 二级社会体育指导员培训分析课件
- 抗滑桩施工监测监控措施
评论
0/150
提交评论