'THIS CODE WILL OPERATE TWO SHARP
'GP2D12 IR DEVICES USING ADC
'2003 TED MACY
'HTTP://WWW.BOTSANDBYTES.COM
 
'INCLUDE THE REGFILE FOR YOUR CHIPSET
$regfile = "m128def.dat"

'YOUR OSCILLATOR VALUE IE.. 16 KHz
$crystal = 1600000
 
'PORT SETUP
Config Portb = Output

'SETUP ANALOG TO DIGITAL CONVERTER
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

'ASSOCIATE IR LEFT AND RIGHT WITH ADC PORTS
'ADC is 10 bit ie. 0 - 1024
Irl Alias Getadc(0)
Irr Alias Getadc(1)
 
'DIMENSION THE L/R IR WITH A SIZE VALUE IE.. BYTE, WORD, VARIABLE ETC...
Dim Irl As Word
Dim Irr As Word
 
'AN INITIAL VALUE FOR PORTB
Portb = 0
 
'DO SOMETHING........
Do
    '512 IS APPROX 40 CM
    If Irl > 512 Then
    Toggle Portb.0
    End If

    If Irr > 512 Then
    Toggle Portb.0
    End If

Loop

End