Hallo an die Runde,
mein zweizeiliges Display habe ich eingebunden. Nun möchte ich ADC Werte anzeigen. Ich habe auch schon unter den FQA's gesucht aber nichts gefunden.
Bisher habe ich es so versucht,
aber es will nicht klappen.
Ihr wißt sicher wo mein Fehler liegt.
Gruß Holger
mein zweizeiliges Display habe ich eingebunden. Nun möchte ich ADC Werte anzeigen. Ich habe auch schon unter den FQA's gesucht aber nichts gefunden.
Bisher habe ich es so versucht,
Code:
---------------------------------------------------------------------------------------------
'ADC-Werte-einlesen
'Hardware: Poti1 an PC5/ADC5
' MAX232 an PD0/PD1, Nullmodemkabel zum PC
'-------------------------------------------------------
$regfile = "m8def.dat" 'ATmega8-Deklarationen
$crystal = 3686400 'Quarz: 3,6864 MHz
$baud = 2400 'Baudrate zum PC: 2400 Baud
'
Dim Wert1 As Word
Dim Senden As Word 'Variable deklarieren
'
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cursor Off
Cls
Locate 1 , 4
Lcd "ADC einlesen"
Locate 2 , 5
Lcd Senden
Locate 2 , 12
Lcd "2"
Ddrc = &B00000000 'PC7...PC0=0: PortC-Pins auf Eingang
Config Timer1 = Timer , Prescale = 64
On Timer1 Anzeigen
Enable Timer1
Enable Interrupts
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
Wert1 = Getadc(5)
Senden = Str(wert1)
Loop
Anzeigen:
Print Senden
Return
End
-----------------------------------------------------------------
aber es will nicht klappen.
Ihr wißt sicher wo mein Fehler liegt.
Gruß Holger