设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 51单片机红外通讯程序（显示红外键盘键值）
返回列表 发新帖
查看: 1188|回复: 0
收起左侧

51单片机红外通讯程序（显示红外键盘键值）

[复制链接]
ID:704913 发表于 2020-3-23 17:22 | 显示全部楼层 |阅读模式
//利用单片机开发板上的红外接收器实现红外键值显示。
  1. #include "reg52.h"    //此文件中定义了单片机的一些特殊功能寄存器

  3. typedef unsigned int u16;   //对数据类型进行声明定义
  4. typedef unsigned char u8;
  5. sbit LSA=P2^2;
  6. sbit LSB=P2^3;
  7. sbit LSC=P2^4;
  8. sbit realy=P1^0;
  9. sbit IRIN=P3^2;
  10. u8 IrValue[6];
  11. u8 Time;
  12. u8 DisplayData[8];
  13. u8 code smgduan[17]={
  14. 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
  15. 0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0X76};
  16. //0、1、2、3、4、5、6、7、8、9、A、b、C、d、E、F、H的显示码
  17. /*******************************************************************************
  18. * 函 数 名         : delay
  19. * 函数功能     : 延时函数，i=1时，大约延时10us
  20. *******************************************************************************/
  21. void delay(u16 i)
  22. {
  23. while(i--);
  24. }

  26. /*******************************************************************************
  27. * 函数名         :DigDisplay()
  28. * 函数功能   :数码管显示函数
  29. * 输入           : 无
  30. * 输出           : 无
  31. *******************************************************************************/
  32. void DigDisplay()
  33. {
  34. u8 i;
  35. for(i=0;i<3;i++)
  36. {
  37.   switch(i)  //位选，选择点亮的数码管，
  38.   {
  39.    case(0):
  40.     LSA=0;LSB=0;LSC=0; break;//显示第0位
  41.    case(1):
  42.     LSA=1;LSB=0;LSC=0; break;//显示第1位
  43.    case(2):
  44.     LSA=0;LSB=1;LSC=0; break;//显示第2位
  45.   }
  46.   P0=DisplayData[i];//发送数据
  47.   delay(100); //间隔一段时间扫描
  48.   P0=0x00;//消隐
  49. }  
  50. }

  52. /*******************************************************************************
  53. * 函数名         : IrInit()
  54. * 函数功能     : 初始化红外线接收
  55. * 输入           : 无
  56. * 输出           : 无
  57. *******************************************************************************/
  58. void IrInit()
  59. {
  60. IT0=1;//下降沿触发
  61. EX0=1;//打开中断0允许
  62. EA=1; //打开总中断
  63. IRIN=1;//初始化端口
  64. }

  66. /*******************************************************************************
  67. * 函 数 名       : main
  68. * 函数功能   : 主函数
  69. * 输    入       : 无
  70. * 输    出      : 无
  71. *******************************************************************************/
  72. void main()
  73. {
  74. IrInit();
  75. while(1)
  76. {
  77.   DisplayData[0] = smgduan[IrValue[2]/16];
  78.   DisplayData[1] = smgduan[IrValue[2]%16];
  79.   DisplayData[2] = smgduan[16];
  80.      DigDisplay();

  82. }  
  83. }
  84. /*******************************************************************************
  85. * 函数名         : ReadIr()
  86. * 函数功能     : 读取红外数值的中断函数
  87. * 输入           : 无
  88. * 输出           : 无
  89. *******************************************************************************/
  90. void ReadIr() interrupt 0
  91. {
  92. u8 j,k;
  93. u16 err;
  94. Time=0;      
  95. delay(700); //7ms
  96. if(IRIN==0)  //确认是否真的接收到正确的信号
  97. {  
  98.   
  99.   err=1000;    //1000*10us=10ms,超过说明接收到错误的信号
  100.   /*当两个条件都为真是循环，如果有一个条件为假的时候跳出循环，免得程序出错的时
  101.   侯，程序死在这里*/
  102.   while((IRIN==0)&&(err>0)) //等待前面9ms的低电平过去   
  103.   {   
  104.    delay(1);
  105.    err--;
  106.   }
  107.   if(IRIN==1)   //如果正确等到9ms低电平
  108.   {
  109.    err=500;
  110.    while((IRIN==1)&&(err>0))   //等待4.5ms的起始高电平过去
  111.    {
  112.     delay(1);
  113.     err--;
  114.    }
  115.    for(k=0;k<4;k++)  //共有4组数据
  116.    {   
  117.     for(j=0;j<8;j++) //接收一组数据
  118.     {
  119.      err=60;  
  120.      while((IRIN==0)&&(err>0))//等待信号前面的560us低电平过去
  121.      {
  122.       delay(1);
  123.       err--;
  124.      }
  125.      err=500;
  126.      while((IRIN==1)&&(err>0))  //计算高电平的时间长度。
  127.      {
  128.       delay(10);  //0.1ms
  129.       Time++;
  130.       err--;
  131.       if(Time>30)
  132.       {
  133.        return;
  134.       }
  135.      }
  136.      IrValue[k]>>=1;  //k表示第几组数据
  137.      if(Time>=8)   //如果高电平出现大于565us，那么是1
  138.      {
  139.       IrValue[k]|=0x80;
  140.      }
  141.      Time=0;  //用完时间要重新赋值      
  142.     }
  143.    }
  144.   }
  145.   if(IrValue[2]!=~IrValue[3])
  146.   {
  147.    return;
  148.   }
  149. }
  150.    
  151. }
复制代码


实验26：红外通信.zip

636.82 KB, 下载次数: 5, 下载积分: 黑币 -5

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表