hi, wo ist hier denn der fehler? ich krieg da immer "batteriespannung: 0 V" geliefert.

Code:
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

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

Start Adc

Dim Wert As Word , Channel As Byte , Spannung As Word

Channel = 0




Do

Wert = Getadc(channel)

Spannung = Wert * 0.00244140625

Spannung = Spannung * 4.9

Print "Batteriespannung: " ; Spannung ; " V";





Wait 2


Loop
End
mfg hacker