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>