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

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

EDA365欢迎您登录！

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

x

单片机红外通信控制继电器源程序
# ?! U1 j( K# C, S% y' [

/***************************************************************************
本实验例程是用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;8 h! a3 i# m: E$ i: d8 ]3 k
                     if(TH1>4)- a' s% d% [8 C7 l0 ^( f
                              ly_lhj|=0x80;
; c6 o- R! M; x4 x! O             }, T4 i' f3 p# B- e! d  x
      }
* J9 ~, X) b4 Z- u       ly_flag=1;  A/ q: o6 G! K$ U$ {
      TF1=0;% j) [; u! [, t1 s5 X  s& s
}- A+ F- u$ }  @) g4 {7 {

0 ]$ r, K: a( Zvoid display()' {2 f1 h) {6 Q
; \; |  P+ u+ g9 Z$ @
{* m0 D& I# ]# w3 G1 L1 n" a
      SMG_q=0;                      //选择千位数码管(亮)4 F7 ?) F9 E- p# j1 v
      P0=table[ly_disdate[0]];       //; w! h6 F$ H$ J/ h: |
      delay();                      //7 h' R3 l7 Q( @0 N% X1 R$ S  |
      P0=0XFF;                      //
6 c. t- R1 U$ B. W       SMG_q=1;                      //(灭)
5 n* M4 Z* Z* U5 e* l8 D% W7 c2 e3 A4 ]% G4 \
      SMG_s=0;                      //选择十位数码管! h  |# a$ n0 I; \1 n% a6 \& l
      P0=table[ly_disdate[2]];       //% X& M% e+ `$ r2 o# ]* n* |
      delay();                      //
0 \- Y/ G- K* o" h/ f       P0=0XFF;                      //
$ n* s4 }9 i4 `7 h8 r& T       SMG_s=1;                      //
5 U) j1 h# O& R, [
$ D' M: K; H5 k" M. J* |
  ]+ B# h4 R1 h* R…………限于本文篇幅余下代码请从论坛下载附件…………
/ N5 ~0 ^: B9 m. c  p
游客，如果您要查看本帖隐藏内容请回复
$ m( f2 @6 B9 O

( F1 {2 ?( n. ]/ D

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

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

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

谢谢楼主

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

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

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1