Als erstes Prog für Analog:
Code:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 1200

Dim Result As Word
Dim Channel As Byte

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do
   Result = Getadc(0)
   Print " Count: " ; Result ;
   Wait 1
Loop

End
Musst du noch für deinen µC anpassen.

Bei "Getadc(x)" musst du für x den Kanal eingeben, den du abfragen willst.
in der Variablen "Result" wird der ADC-Wert gespeichert. Am besten machst du dir eine Tabelle mit ADC-Wert und Entfernung.

jon