ja das mit dem Poti hab ich mir schon gedacht..... gibt es auch noch eine möglichkeit die man ins programm schreiben kann?
als nächstes versuche ich den abgastemp sensor... 30 ohm und mit der temperatur nimmt widerstand zu......
hier nochmal mein code wollte den zweiten wert anzeigen lassen. bekomm immer ein fehler "LOOP expected"
100% hab ich den dreh mit dem schreiben noch nicht raus
deine Hilfe ist echt super. danke echt nett
Code:
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4
Deflcdchar Print , 17 , 32 , 14 , 17 , 17 , 17 , 14 , 32 ' replace ? with number (0-7)
Cls
Config Adc = Single , Prescaler = Auto
Start Adc
Dim Temp1 As Word , Kanal1 As Byte
Kanal1 = 0
Do
Temp1 = Getadc(5)
Print "ADC-Pin " ; Kanal1 ; ": Wert " ; Temp1
Incr Kanal1
If Kanal1 > 7 Then Kanal1 = 0
Waitms 100
Cls
Locate 1 , 1
Lcd Chr(0) ; "L: " ; Temp1
Dim Temp2 As Word , Kanal2 As Byte
Kanal2 = 0
Do
Temp2 = Getadc(4)
Print "ADC-Pin " ; Kanal2 ; ": Wert " ; Temp2
Incr Kanal2
If Kanal2 > 7 Then Kanal2 = 0
Waitms 100
Cls
Locate 2 , 1
Lcd "Abgas: " ; Temp2
Loop
End
=D>
Lesezeichen