Den Sensor ließt du so aus:
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
jon