Ich habe es schon mal mit einem Atmega8 versucht und da hat das funktioniert und jetzt mache ich es mit einem atmega8a/au und es geht nicht mehr...

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

Config Portd.3 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Dim Wert As Word

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Portd.3 = 0

Do

Wert = Getadc(0)

If Wert < 300 Then
Portd.1 = 1
Portd.2 = 0
End If
If Wert > 300 Then
Portd.2 = 1
Portd.1 = 0
End If

Loop
End

ist da vielleicht etwas falsch?

Lg,
Franz112