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