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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › LCD1602显示红外值 单片机程序
返回列表 发新帖
查看: 1375|回复: 0
打印 上一主题 下一主题
收起左侧

LCD1602显示红外值 单片机程序

[复制链接]
跳转到指定楼层
楼主
ID:595580 发表于 2019-8-5 15:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
LCD1602显示红外值
部分源程序
  1. void main()
  2. {
  3. unsigned char i;
  4. IrInit();
  5. LcdInit();
  6. LcdWriteCom(0x80);
  7. for(i=0;i<13;i++)
  8. {
  9.   LcdWriteData(CDIS1[i]);
  10. }
  11. LcdWriteCom(0x80+0x40);
  12. for(i=0;i<13;i++)
  13. {
  14.   LcdWriteData(CDIS2[i]);
  15. }
  16. while(1)
  17. {
  18.   IrValue[4]=IrValue[2]>>4;     //高位
  19.   IrValue[5]=IrValue[2]&0x0f;  //低位
  20.   if(IrValue[4]>9)
  21.   {
  22.    LcdWriteCom(0xc0+0x09);   //设置显示位置
  23.    LcdWriteData(0x37+IrValue[4]); //将数值转换为该显示的ASCII码
  24.   }
  25.   else
  26.   {
  27.    LcdWriteCom(0xc0+0x09);
  28.    LcdWriteData(IrValue[4]+0x30); //将数值转换为该显示的ASCII码
  29.   }
  30.   if(IrValue[5]>9)
  31.   {
  32.    LcdWriteCom(0xc0+0x0a);
  33.    LcdWriteData(IrValue[5]+0x37);  //将数值转换为该显示的ASCII码
  34.   }
  35.   else
  36.   {
  37.    LcdWriteCom(0xc0+0x0a);
  38.    LcdWriteData(IrValue[5]+0x30);  //将数值转换为该显示的ASCII码
  39.   }
  40. }
  41. }         
  42. /*******************************************************************************
  43. * 函数名         : DelayMs()
  44. * 函数功能     : 延时
  45. * 输入           : x
  46. * 输出           : 无
  47. *******************************************************************************/
  48. void DelayMs(unsigned int x)   //0.14ms误差 0us
  49. {
  50. unsigned char i;
  51.   while(x--)
  52. {
  53.   for (i = 0; i<13; i++)
  54. {}
  55. }
  56. }
  57. /*******************************************************************************
  58. * 函数名         : IrInit()
  59. * 函数功能     : 初始化红外线接收
  60. * 输入           : 无
  61. * 输出           : 无
  62. *******************************************************************************/
  63. void IrInit()
  64. {
  65. IT0=1;//下降沿触发
  66. EX0=1;//打开中断0允许
  67. EA=1; //打开总中断
  68. IRIN=1;//初始化端口
  69. }
  70. /*******************************************************************************
  71. * 函数名         : ReadIr()
  72. * 函数功能     : 读取红外数值的中断函数
  73. * 输入           : 无
  74. * 输出           : 无
  75. *******************************************************************************/
  76. void ReadIr() interrupt 0
  77. {
  78. unsigned char j,k;
  79. unsigned int err;
  80. Time=0;      
  81. DelayMs(70);
  82. if(IRIN==0)  //确认是否真的接收到正确的信号
  83. {  
  84.   
  85.   err=1000;    //1000*10us=10ms,超过说明接收到错误的信号
  86.   /*当两个条件都为真是循环，如果有一个条件为假的时候跳出循环，免得程序出错的时
  87.   侯，程序死在这里*/
  88.   while((IRIN==0)&&(err>0)) //等待前面9ms的低电平过去   
  89.   {   
  90.    DelayMs(1);
  91.    err--;
  92.   }
  93.   if(IRIN==1)   //如果正确等到9ms低电平
  94.   {
  95.    err=500;
  96.    while((IRIN==1)&&(err>0))   //等待4.5ms的起始高电平过去
  97.    {
  98.     DelayMs(1);
  99.     err--;
  100.    }
  101.    for(k=0;k<4;k++)  //共有4组数据
  102.    {   
  103.     for(j=0;j<8;j++) //接收一组数据
  104.     {
  105.      err=60;  
  106.      while((IRIN==0)&&(err>0))//等待信号前面的560us低电平过去
  107. //     while (!IRIN)
  108.      {
  109.       DelayMs(1);
  110.       err--;
  111.      }
  112.      err=500;
  113.      while((IRIN==1)&&(err>0))  //计算高电平的时间长度。
  114.      {
  115.       DelayMs(1);//0.14ms
  116.       Time++;
  117.       err--;
  118.       if(Time>30)
  119.       {
  120.        EX0=1;
  121.        return;
  122.       }
  123.      }
  124.      IrValue[k]>>=1;  //k表示第几组数据
  125.      if(Time>=8)   //如果高电平出现大于565us，那么是1
  126.      {
  127.       IrValue[k]|=0x80;
  128.      }
  129.      Time=0;  //用完时间要重新赋值      
  130.     }
  131.    }
  132.   }
  133.   if(IrValue[2]!=~IrValue[3])
  134.   {
  135.    return;
  136.   }
  137. }   
  138. }
复制代码

剩余程序见压缩包

LCD1602显示红外值.rar

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

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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