ich habe ja eine spannung von ca. 4V anliegen gehabt (direkt) aber bekamm nur irgend welche scheisse rein. das mit der umrechnung ist kein hexenwerk das ist das einfachste an dem ganzen. nun habe ich einmal noch die counts des adc mitgesendet (schwanke doch sehr stark oder):

409
406
402
832
823
654

die liegen alle in dem bereich bis max. 800
Der datentyp der die werte aufnimmt ist WORD.

$regfile = "m32def.dat"
$crystal = 400000
$baud = 19200

Dim Result As Word
Dim Sresult As Single

Config Porta = Input


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




Start Adc

Do
Result = Getadc(0)
Print " Count:" ; Result;
Sresult = Result * 5
Sresult = Sresult / 1024
Print " Volt: " ; Fusing(sresult , "#.###")
Wait 1
Loop

End

das ist mein prog ein wenig seltsam vielleicht.

mfg