hab nun mal den code etwas gekürzt....

'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat" 'AT Mega 32
$crystal = 8000000 'Quarz: 8 MHz
'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111000 'Pin PA 3-7 auf Output setzen
Do
If Pina.0 = 0 Then 'Wenn bei PA0 Spannung anliegt
Porta.4 = 0
Elseif Pina.0 = 1 Then 'Wenn keine Spannung bei PA0 anliegt 'Pin PA 3-7 auf High setzen
Porta.4 = 1
End If
Loop
End


nun mal das ganze wie gesagt mit einer LED ausprobiert, wie schon oben gesagt - normal leuchtet die LED , aber sobald einmal kurz Spannung an Pina.4 anliegt leuchtet sie nicht mehr

wenn man "ADCSRA = 0" in den Code einbaut kommt irgentwie eine Fehlermeldung...