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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

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

单片机红外控制Led程序

[复制链接]
跳转到指定楼层
楼主
ID:541128 发表于 2019-7-14 18:12 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一个很简单的程序，写的不是很好

单片机源程序如下:
  1. #include "reg52.h"

  3. #define  Led P2
  4. typedef unsigned char u8;
  5. typedef unsigned int u16;

  7. //#define uint unsigned int;
  8. //#define uchar unsigned char;

  10. sbit IRIN=P3^2;

  12. u8  Time;
  13. u8  IrValue[6];
  14. u8 code IRdata[22]={0x45,0x46,0x47,0x44,0x40,0x43,0x07,0x15,0x09,0x16,0x19,
  15.                     0x0d,0x0c,0x18,0x5e,0x08,0x1c,0x5a,0x42,0x52,0x4a};

  17. void delay(u16 i)
  18. {
  19.    while(i--);
  20. }

  22. void IrInit()
  23. {
  24.   IT0=1;
  25.         EX0=1;
  26.         EA=1;
  27.         IRIN=1;
  28. }



  32. void Ircontrol()
  33. {
  34.         u8 i;
  35.         
  36. //        for(i=0;i<8;i++)
  37. //        {
  38. //          switch(IrValue[2])
  39. //                {
  40. //                        case(0x45):Led=0xfe;break;
  41. //                        case(0x46):Led=0xfc;break;
  42. //                        case(0x47):Led=0xfa;break;
  43. //                        case(0x44):Led=0xf7;break;
  44. //                        case(0x40):Led=0xef;break;
  45. //                        case(0x43):Led=0xcf;break;
  46. //                        case(0x07):Led=0xaf;break;
  47. //                        case(0x15):Led=0x7f;break;
  48. //                }
  49. //        }
  50.         for(i=0;i<22;i++)
  51.         {
  52.           if(IrValue[2]==IRdata[i])
  53.                         Led=IRdata[i];
  54.         }
  55.                
  56.         
  57. }


  60. void main()
  61. {
  62.          IrInit();
  63.          while(1)
  64.          {
  65.            Ircontrol();
  66.          }
  67. }        
  68.          

  70. void ReadIr() interrupt 0
  71. {
  72.   u8 k,j;
  73.         u16 err;
  74.         Time=0;
  75.         delay(700);
  76.         if(IRIN==0)
  77.         {
  78.           err=1000;
  79.                
  80.                 while((IRIN==0)&&(err>0))
  81.                 {
  82.                   delay(1);
  83.                         err--;
  84.                 }
  85.                 if(IRIN==1)
  86.                 {
  87.                   err=500;
  88.                         while((IRIN==1)&&(err>0))
  89.                         {
  90.                           delay(1);
  91.                                 err--;
  92.                         }
  93.                         for(k=0;k<4;k++)
  94.                         {
  95.                           for(j=0;j<8;j++)
  96.                                 {
  97.                                   err=60;
  98.                                         while((IRIN==0)&&(err>0))
  99.                                         {
  100.                                           delay(1);
  101.                                                 err--;
  102.                                         }
  103.                                         err=500;
  104.                                         while((IRIN==1)&&(err>0))
  105.                                         {
  106.                                           delay(10);
  107.                                                 Time++;
  108.                                                 err--;
  109.                                                 if(Time>30)
  110.                                                 {
  111.                                                   return;
  112.                                                 }
  113.                                         }
  114.                                         IrValue[k]>>=1;
  115.                                         if(Time>=8)
  116.                                         {
  117.                                           IrValue[k]|=0x80;
  118.                                         }
  119.                                         Time=0;
  120.                                 }
  121.                         }
  122.                 }
  123.                
  124.                 if(IrValue[2]!=~IrValue[3])
  125.                  {
  126.                    return;
  127.                  }
  128.         }
  129. }        
  130.   
复制代码

所有程序51hei提供下载:
红外通信2.zip (22.88 KB, 下载次数: 29)




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

使用道具 举报

沙发
ID:282095 发表于 2019-7-15 05:12 | 只看该作者
采用红外对管实现LED的控制
回复

使用道具 举报

板凳
ID:584220 发表于 2019-7-15 10:39 | 只看该作者
还不错
回复

使用道具 举报

地板
ID:292518 发表于 2021-9-8 11:00 | 只看该作者
电路板部分呢？能不能发出来看看
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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