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
Lesezeichen