Analogwert in Variable speichern

[Duesentrieb]

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

$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

[PicNick]

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.

[Duesentrieb]

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

[Inkoknito]

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