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
Lesezeichen