allo
also wie gesagt,
es läuft.
Ich habe nun die richtigenen werte.
Es lag an den internen wiederständen.
Hier mein code:

' Die gemessene Spannung wird in der Variablen W gespeichert.
' Channel ist der Pin, an dem die Spannung gemessen werden soll.

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

Const Adc_multi = 0.0048828125 ' = 5.0 / 1024.0

Config Adc = Single , Prescaler = Auto
Start Adc
Dim W As Word , Channel As Byte
Channel = 2
Do
W = Getadc(channel)
Dim Volt As Single
Volt = W * Adc_multi
Print "ADC-Pin " ; Channel ; ": Wert " ; W ; " Volt: " ; Volt
Incr Channel
If Channel > 2 Then Channel = 2
Wait 1
Loop
End
danke für eure hilfe.
gibt es eine mölichkeint (formel) um den adc wert in cm umzuwandeln?