вот прога!
[code]$regfile = "m8def.dat" 'используем Mega8
$crystal = 16000000 'частота кварцевого резонатора 16mHz 'Генерация частоты 36kHz
'Настраиваем Timer1
Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle
' Расчитываем Compare1a
' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 16000 / 36 / 2 = 222
Compare1a = 222
'Portb.1 - выход сигнала
'Pind.7 - считываем состояние TSOPa
'Portc.0 - сигнальный светодиод
Config Pinb.1 = Output
Config Portc.0 = Output
Config Pind.7 = Input
Start Timer1
Do
If Pind.7 = 0 Then
Portc.0 = 1
Else
Portc.0 = 0
End If
Loop
End
вот фото!
Добавлено (29.03.2009, 13:07)
---------------------------------------------
ir выход соединил на В1,
аут от тсопа на D7,
и ничего нет! даже ик светики не горят!
Добавлено (29.03.2009, 13:53)
---------------------------------------------
и вот так переделал!
тсоп ловит(на пульт реагирует)
вот на МК не идет што ли светодиод на МК не горит!