单片机红外通信控制继电器源程序

yxlk · 发表于 2018-11-28 09:43

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

单片机红外通信控制继电器源程序

+ v& ]/ X) m1 \( I
/***************************************************************************
本实验例程是用NEC红外线接收解码程序(红外线接收部分为板子配的林洋电子程序)
程序功能：
      1、运行程序，按遥控器按键，在数码管上显示相应的控制码（以16进制显示）；
      2、对特别的几个键，有相应的现象出现：
      (1)电源键，使继电器工作或断开；
      (2)静音键，使蜂鸣器响或不响；
      (3)快进键让LED灯向右出现一次走马灯现象；
      (4)快退键让LED灯向左出现一次走马灯现象；
      (5)按0~9，数码管显示所按的键号；
      (6)按其它键，不会改变已经按的数字键的显示，表示看电视台开关电源或静音、快进快退，都不会
改变台号。
(7)其它键没想好怎么以现有板产生相应功能，所以按下后，没有特别现象，只有显示其控制码。
******************************************************************************/
#include "reg51.h"//头文件:

#define LED8 P2//红外遥控功能之一是让LED灯亮，所以要将P2口改名

sbit hwx=P3^3;             //红外接收数据引脚，也是外部中断1的I/O口
sbit SMG_q = P1^0;       //定义数码管阳级控制脚（千位）
sbit SMG_b = P1^1;       //定义数码管阳级控制脚（百位）
sbit SMG_s = P1^2;       //定义数码管阳级控制脚（十位）
sbit SMG_g = P1^3;       //定义数码管阳级控制脚（个位）
sbit JDQ=P1^4;             //继电器
sbit Beep =  P1^5 ;       //蜂鸣器

code unsigned char table[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,
                                                      0x88,0x8c,0xc6,0xa1,0x86,0x8e};       //共阳数码管段值表 0-9 a-f

unsigned char ly_disdate[4]={0,0,0,0};
unsigned char ly_lhj[4],i;
bit ly_flag=1;
void display();

void delay(void);

void Delay10ms(unsigned int c)
{
unsigned char a,b;
for(c;c>0;c--)
      for(b=38;b>0;b--)
         for(a=130;a>0;a--);
}

void main(void)//主函数
{
      EA=1;
      EX1=1;
      IT1=1;
      TMOD=0X10;
      JDQ=1;
      ly_flag=0;
      while(1){
            if(ly_flag){
                     ly_flag=0;
                     if ((ly_lhj[2]==0x45))
                     {
                              JDQ=~JDQ;
                     }
                     if ((ly_lhj[2]==0x47))
                     {
                              Beep=~Beep;
                     }
                     if ((ly_lhj[2]==0x40))
                     {
                              LED8=0xfe;
                              for(i=0;i<8;i++)
                              {
                                    Delay10ms(10);
                                    LED8=LED8<<1;
                              }
                              LED8=0xff;
                     }
                     if ((ly_lhj[2]==0x43))
                     {
                              LED8=0x7f;
                              for(i=0;i<8;i++)
                              {
                                    Delay10ms(10);
                                    LED8=LED8>>1;
                              }
                              LED8=0xff;
                     }
                     if ((ly_lhj[2]==0x16))
                     {
                              ly_disdate[0]=0;
                     }
                     if ((ly_lhj[2]==0x0c))
                     {
                              ly_disdate[0]=1;
                     }
                     if ((ly_lhj[2]==0x18))
                     {
                              ly_disdate[0]=2;
                     }
                     if ((ly_lhj[2]==0x5e))
                     {
                              ly_disdate[0]=3;
                     }
                     if ((ly_lhj[2]==0x08))
                     {
                              ly_disdate[0]=4;
                     }
                     if ((ly_lhj[2]==0x1c))
                     {
                              ly_disdate[0]=5;
                     }
                     if ((ly_lhj[2]==0x5a))
                     {
                              ly_disdate[0]=6;
                     }
                     if ((ly_lhj[2]==0x42))
                     {
                              ly_disdate[0]=7;
                     }
                     if ((ly_lhj[2]==0x52))
                     {
                              ly_disdate[0]=8;
                     }
                     if ((ly_lhj[2]==0x4a))
                     {
                              ly_disdate[0]=9;
                     }
                     ly_disdate[2]=ly_lhj[2]/16;
                     ly_disdate[3]=ly_lhj[2]%16;
            }
            display();
      }
}

void hongwai(void) interrupt 2
{
      unsigned char i,ia;
      TL1=0;
      TH1=0;
      TR1=1;
      while(!hwx);
      TR1=0;
      if(TH1<30||TH1>40)
{
            return;
}
      TH1=0;
      TR1=1;
      while(hwx)                      //
      {
            delay();
            if(TH1>22)
                     return;
      }
      TR1=0;
      if(TH1<12)
            return;

      for(i=0;i<4;i++)
      {
            for(ia=0;ia<8;ia++)
            {
                     while(!hwx);

                     TH1=0;
                     TR1=1;
                     while(hwx)
                     {
                              delay();
                              if(TH1>15)
                                    return;
                     }
                     TR1=0;
                     ly_lhj>>=1;: Y  K0 b$ ^8 V9 M4 j2 a* |2 {
                     if(TH1>4)
, T2 T* E5 W! p1 f, C5 V                               ly_lhj|=0x80;
# M& P. s- |: S% k/ x- L: w             }
% U# K- o9 F* G$ q       }1 f* l  W6 i% ?* G* k- E
      ly_flag=1;$ V. C1 Y! Y7 `. O' Y- C+ {( n* ]; A" Q
      TF1=0;
& J7 P' A8 ^2 R* }1 e}. V+ C. m$ p5 C& k+ F! _7 l8 h

% e- a! {2 b; ~" j3 Evoid display()
0 A+ h/ A. q5 ]& f% |1 p) u5 ]) v% r6 X, V3 i% Q$ ^0 _2 E
{3 W& |. R. D3 m' \' E
      SMG_q=0;                      //选择千位数码管(亮)
, E; x9 h, ^0 j: l; k* G# D! @       P0=table[ly_disdate[0]];       //
1 z8 A( U8 ?0 v: c% J       delay();                      //- q$ w0 s- n9 i+ L% J2 E5 y  ?
      P0=0XFF;                      //% m# F$ F! r2 D5 J
      SMG_q=1;                      //(灭)
$ n1 A1 k1 w  F" L$ S- m
% j3 |7 X# ?% I- k       SMG_s=0;                      //选择十位数码管* W% l+ h6 M" u
      P0=table[ly_disdate[2]];       //
) S" Y# H* i5 I, y- V7 M       delay();                      //
& ]( a9 _, K6 M       P0=0XFF;                      //" |; O8 B# \% k4 G8 p
      SMG_s=1;                      //
" X+ ^; k  B' T- m  j8 n' [6 s+ G* ?, U

0 H- Y; m/ A2 h6 n9 Q. H& ]…………限于本文篇幅余下代码请从论坛下载附件…………% e7 K/ a0 h2 v
游客，如果您要查看本帖隐藏内容请回复

& P8 C# ^# K9 m6 p" K9 d
7 K; L( f$ {+ j; O6 h

relchhiclty · 发表于 2018-11-28 11:05

谢谢楼主，一步步来，学习中……

Hx0171 · 发表于 2020-10-23 15:15

谢谢楼主

帐号		自动登录	找回密码
密码			注册

单片机红外通信控制继电器源程序

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1