Infrared Object Detection
symbol irled = 2
symbol irsensor = Pin4
symbol RELAY = 1
main:
pwmout irled, 25, 52
'PWM on for 26 usec period
38.4kHz
pause 3 very brief pause before
reading
if irsensor =0 then
goto SawPulse
low RELAY ' RELAY off
goto skip1:
SawPulse:
high RELAY ' RELAY on
pause 1500 ' keep slower speed for 1.5
seconds
skip1:
pwmout irled,00,00 'turn
off PWM
pause 100 pause
1/10 second
goto main