Guten morgen,

noch einmal Danke für die Ideen, ich habe mal ein Programm geschrieben, weiss aber nicht ob es funktioniert, denn erstens scheint mein Sensor nicht so richtig zu arbeiten und 2 habe ich ein Problem, ich habe gelesen das der Pin 5 nur max 8 Bit beim A/D Wandler hat aber es funktioniert nur wenn ich es mit 10 Bit rechne, hier mal mein Code.
Sagt m,ir bitte was ihr davon haltet!
Die Led habe ich nur als Test erstmal geschaltet, damit ich verfolgen kann bei welchem Wert der Sensor gerade ist.


$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Ddrc = &B00000000

Dim Tempwert As Long

Config Pinb.2 = Output 'Rote LED
Led_red Alias Portb.2
Config Pinb.1 = Output 'Grüne LED
Led_green Alias Portb.1


Config Adc = Single , Prescaler = Auto

Do
Start Adc
Tempwert = Getadc(5)
If Tempwert < 541 Then 'entspricht 2,601V
Set Led_green
Set Led_red
Waitms 250
Reset Led_green
Reset Led_red
Waitms 250
Else
If Tempwert < 651 Then 'entspricht 3,128V
Set Led_green
Reset Led_red
Else
If Tempwert < 777 Then 'entspricht 3,734V
Reset Led_red
Set Led_green
Waitms 250
Reset Led_green
Waitms 250
Else
If Tempwert > 777 Then
Reset Led_green
Set Led_red
End If
End If
End If
End If
Loop