So, kopier mal folgendes in Bascom rein, denke so gehts
Code:
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Config Adc = Single , Prescaler = Auto
Start Adc

Config Pinc.2 = Input

Dim Sensor As Integer

Do

Sensor = Getadc(2)
Print "Sensor  " ; Sensor ;
Waitms 500

Loop
End