инфракрасный детектор препятствия

[slav0n]

ну, уже на что-то похоже.
Пакеты нормально принимаются?

[Speys]

Да нормально.Ну хоть стабильно по выходу

[slav0n]

ща сделаю контроль приема

[slav0n]

вот пробуй

[Speys]

на выходе не меняется

[slav0n]

вот еще вариант. в протеусе вроде работает

[slav0n]

вот вариант с генератором случайного кода пакета

[slav0n]

вот, собственно, получилась такая писанина

Код: Выделить всё

/****************************************************
made slav0n

Chip type           : ATtiny13
9.6 MHz
фузы  заводские, только снять галку CKDIV8
;Hfuse FF
;Lfuse 7A
****************************************************/


#include <avr/io.h>
#include <avr/interrupt.h>
//#include <util/delay.h>     /* for _delay_ms() */
//#include "m8_128.h"


#define out_36kHz   PB1
#define swch_36_38    PB4
#define out_1      PB0
#define out_2      PB2
#define TSOP      PB3


volatile unsigned char flg_err;

ISR(SIG_OUTPUT_COMPARE0B)
{
   static unsigned char timer_strob;
   static unsigned char timer_paket;
   static unsigned char flg_err_paket;
   
   timer_strob++;

      if(timer_strob==66)//середина пачки
      {   
         if(timer_paket <15)
         {
            //проверяем принял-ли TSOP сигнал и поднимаем флаг ошибки
            if(PINB&(1<<TSOP) && TCCR0A&(1<<COM0B0))flg_err_paket =1;
            
            TCCR0A ^= (1<<COM0B0);//изменяем сигнал на противоположный
         }
      }
      else
      if(timer_strob==66+66)//конец-начало пачки
      {
         timer_strob =0;
         timer_paket++;
         if(timer_paket ==65)//конец-начало пакета
         {
            timer_paket =0;
            
            if(flg_err_paket)flg_err =1;//были-ли ошибки в пакете?
            else         flg_err =0;
            
            flg_err_paket =0;
         }
         
         if(timer_paket <15)
         {   
            //конфигурация Галуа, рандомгенератор
            static unsigned char Q = 1;
            Q = (Q>>1) ^ (Q&1 ? 0b11010111 : 0);
            
            if(Q&1)TCCR0A |= (1<<COM0B0);
            else TCCR0A &=~(1<<COM0B0);   
         }
         else   TCCR0A &=~(1<<COM0B0);//отключаем выход если пауза пакета
      }   
}

//============================================================

int __attribute__((naked)) main(void)
{
   PORTB    = (1<<swch_36_38)|(1<<TSOP);//подтяжка
   DDRB    = (1<<out_36kHz)|(1<<out_1)|(1<<out_2);//выходы

   TCCR0A   = (1<<COM0B0)|(1<<WGM01); //на выходе меандр. сброс при совпадении
   TCCR0B   = 1;   //предделитель на 1, запуск таймера
   //TCCR0B   = 0;   //стоп таймер
   
   TIMSK0 = (1<<OCIE0B);//разрешаем прерывание по совпадению В
   
   if(PINB & (1<<swch_36_38))OCR0A = 124; //38khz
   else                 OCR0A   = 131;    //36khz
   
   sei();

   while(1)
   {      
      if(flg_err){PORTB |=(1<<out_1);PORTB &=~(1<<out_2);}
      else      {PORTB |=(1<<out_2);PORTB &=~(1<<out_1);}
   }
}


[slav0n]

код легко модифицируется.
Можно поставить желаемое количество символов в пакете, период пакетов.
И еще одна идея.
В таком виде сработка будет даже если пропущен хотя-бы один символ.
Но можно сделать счетчик допустимых ошибок в пакете, как-бы программное загрубление чувствительности.

[Speys]

Схема,и плата. Чувствительность очень большая.

[slav0n]

Еще одна идея.
Видна некоторая задержка в приёме. Интересно, зависит-ли она от чего-нибудь? Например от силы излучения?

[Speys]

Схема выходного реле, для управления нагрузкой.Вариант исполнения в корпусе разьема RS232.Передающий ИК диод выносной! Снизу установлен диод, в качестве индикатора срабатывания.

[slav0n]

Кому интересно, окончательный код выложил в первый пост.

[Icik]

В коде следует заменить SIG_OUTPUT_COMPARE0B на TIM0_COMPB_vect иначе не компилируется.

[slav0n]

описание векторов прерываний