roboforum.ru

Здраствуйте.Собрал тележку из двух машинок ( как в теме "они выделяют фенол")

Первое что решил сделать это разобраться с TSOP 1736.Собрал на своей монтажке.

Как видно из следуещей фотографии при прямой видимости тсоп срабатывает и светится светик

Проблема заключается в том что если я делаю импровезированное препятствие тсоп срабатывает только при расстоянии до 3 сантиметров =( хотелось бы больше

Вот код программы ( codevisionavr 2,Atmega8,кварц на

Код: Выделить всё • Развернуть

#include <mega8.h>

char TimerCount = 0;


//-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
void SetIRLed()
{   PORTC.0 = ~PORTC.0; }

//-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
void SetLightLed(unsigned char flag)
{   PORTC.5 = flag; }
    

//-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
    // Reinitialize Timer 0 value
//    TCNT0=0x14;
    
    if(TimerCount<28)
        SetIRLed();
    else
        PORTC.0 = 0;
    TimerCount++;
    if(TimerCount==56)
        TimerCount = 0;
}


//-_-_-_-_ главная функция -_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
void main(void)
{
    PORTB=0x00;
    DDRB=0x00;
    PORTC=0x00;
    DDRC=0x7F;
    PORTD=0x00;
    DDRD=0x00;
    TCCR0=0x01;
    TCNT0=0x6F;
    TCCR1A=0x00;
    TCCR1B=0x00;
    TCNT1H=0x00;
    TCNT1L=0x00;
    ICR1H=0x00;
    ICR1L=0x00;
    OCR1AH=0x00;
    OCR1AL=0x00;
    OCR1BH=0x00;
    OCR1BL=0x00;
    ASSR=0x00;
    TCCR2=0x00;
    TCNT2=0x00;
    OCR2=0x00;
    MCUCR=0x00;
    TIMSK=0x01;
    ACSR=0x80;
    SFIOR=0x00;

    // Global enable interrupts
    #asm("sei")

    while (1)
    {
        if(PIND.1)
            SetLightLed(0);
        else
            SetLightLed(1);    
    };
}

Подскажите пожалуйста в чём проблема,хотелось бы большее расстояние.
Проект кодвизиан присоединен в архиве к топику

Какая чудная компановка!
А по теме, извиняюсь, сказать нечего

Можно попробовать ввести транзисторный ключ и подключить несколько светодиодов, для увеличения мощности...а так-же использовать оптические системы (линзы) для увеличения чувствительности приёмника...

Уважаемый EdGull ,извините не знал про фотографии,переделал.
Michael_K большое спасибо,так и думал что моя вина, тогда подскажие пожалуйста какой делитель использовать.Использую кварц на 8МГц.

Предлагаю системный подход (предполагается, что на тсоп есть описание). Может глючить как железо, так и программа (например часто путают выводы питания). Тсоп имеет три ноги, две это питание, третья выход открытый коллектор. Туда через резюк вешаем светодиод. Светим тсопу в глаз пультом от телевизора метров с 5 - светодиод на выходе тсопа мигает - железо приемное в порядке. Теперь как проверить передатчик. ИК - то не видимо. НО ИК отлично видно цифровым фотоаппаратом/камерой/телефонным фотоаппаратом. Ну это так, к сведению, у вас то светит. Железо в порядке - значит дело в программе. В некоторых контроллерах есть фуз делителя частоты, также нужно проверить что тактирование ведется от нужного источника тактирования. Если есть осциллограф - то смотрим сигнал на ноге контролера. Но мало у кого он есть. Берем временную диаграмму из даташита, пытаемся ее запрограммировать. Рисуем ее на бумажке в виде графика с временами, а прогу запускаем в симуляторе. Ошибке больше негде прятаться - она в коде. Но и симулятор не дает 100 % гарантии. Осциллограф - вот что бы помогло точно. Надеюсь, мои рассуждения вам помогут.

bondik писал(а): подскажие пожалуйста какой делитель использовать.Использую кварц на 8МГц.

Вот код настройки таймера1 в CV. Для TSOP 36, значение в регистре сравнения не 0х69, а другое. В прерывании по совпадению инвертируйте бит порта, к которому подключен ТСОП.

Код: Выделить всё • Развернуть

// Timer/Counter 1 initialization
// Clock source: System Clock
// Clock value: 8000,000 kHz
// Mode: CTC top=OCR1A
// OC1A output: Discon.
// OC1B output: Discon.
// Noise Canceler: Off
// Input Capture on Falling Edge
// Timer 1 Overflow Interrupt: Off
// Input Capture Interrupt: Off
// Compare A Match Interrupt: On
// Compare B Match Interrupt: Off
TCCR1A=0x00;
TCCR1B=0x09;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x00;
OCR1AL=0x69;
OCR1BH=0x00;
OCR1BL=0x00;

Для 36кГц: 8000/36=222. Чтобы получить меандр, прерывание должно возникать в два раза чаще. 222/2=111
111 = 0х6F = OCR1

Да, уверен, проверено на практике:)

В книге Белова А.В. "Создаем устройства на микроконтроллерах", 2007г., на стр.99 вверху описан режим "сброс при совпадении". На стр.112 скриншот с настройками для CV.