Hallo,

ich möchte einen Wert an einem analogen Eingang einlesen und in einer Variablen speicern.
Aus irgent einem Grund bekomme ich den Wert allerdings nicht in die Variable rein

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


Dim Tx1 As Integer



Ddrc = &B00000000
Admux = &B01100000

Adcsra = &B11100010                                         'AD-Konverter einschalten auf ADC0

Tx1 = Adch

Adcsra = &B00000000                                         'AD-Konverter wieder ausschalten

Gosub Zeitausgabe



Do

 "Hauptprogramm in dem die Variable genutzt werden soll"

Loop


Zeitausgabe:

Print Tx1

Return
Kann mir jemand den Fehler sagen?

Daniel