Analogwert in Variable speichern

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

Willst du Assembler programmieren oder Bascom ?
Ganz sicher bin ich mir bei deinem Code ja nicht.

Bascom jedenfalls bietet "config", "start" und "Getadc", die solltest du auch nehmen.

wo siehst du das Problem?
Ich kann doch auch in Bascom direkt über die Register programmieren.

also für bascom:



Dim X as word

start adc

x = getadc (0)

und schon müste der wert in der variable X sein

mfg