roboforum.ru

Вот программа
тсоп 1736

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

$regfile = "attiny2313.dat"
$crystal = 1000000           

Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle
                                         
' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 10000 / 36 / 2 = 139

Compare1a = 139

'Portb.3 - выход сигнала
'Pind.4 - считываем состояние TSOPa
'Portb.1 - сигнальный светодиод

Config Pinb.3 = Output
Config Portb.1 = Output
Config Pind.4 = Input

Start Timer1
Do
If Pind.4 = 0 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop

End

При направлении на тсоп ик-излучателя появляется сигнал и пропадает. И чтобы появился сигнал снова приходиться убирать изучатель в сторону и направлять на тсоп заново. Вопрос. так и должно быть? или нет? Если излучатель и тсоп ставишь рядом и направляеш на какое либо препятствие сигнала нет. Помогите дайте совет что делать дальше?

$regfile = "attiny2313.dat"
$crystal = 1000000

Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle

' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 10000 / 36 / 2 = 139

Compare1a = 139

Ну дык ты расчет не правильно сделал
вот так попробуй - 1000/36/2=14

кажется я лишний нолик поставил. прошу прощения

Добавлено спустя 3 минуты 50 секунд:
при обнаружении препятствия сигнал должен быть постоянно

Config Portb.1 = Output

должно быть
Config Pinb.1 = Output

большое спасибо за помощь. всё работает на расстоянии 10 см видит препятствие. надо подпаять второй излучатель думаю препятствие тогда будет замечено на большем расстоянии

Еще можно препятствие перекрасить в белый цвет, тогда его будет дальше видно.