es lag nun wirklich an diesem
Ddra = &B11111111


'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat" 'AT Mega 32
$crystal = 8000000 'Quarz: 8 MHz

'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111111 'Pin PA 3-7 auf Output setzen

Ddrb = &B00000001 'Pin PB 0 auf Output setzen

'------------------------------------------------------------------------------
'------------------ MainLoop --------------------------------------------------
'------------------------------------------------------------------------------
Do

'------------------ Motore einschalten ----------------------------------------
Porta.3 = 1 'Motor Rechts einschalten
Porta.6 = 1 'Motor Links einschalten

'################################################# ################################################## ###################
If Pina.0 = 1 Then 'Wenn bei PA0 Spannung anliegt
'rückwärts fahren
Porta.4 = 0 'vorwärts Rechts
Portb.0 = 0 'vorwärts Links
Porta.5 = 1 'rückwärts Rechts
Porta.7 = 1
End If 'rückwärts Links
'################################################# ################################################## ###################
If Pina.0 = 0 Then 'Wenn keine Spannung bei PA0 anliegt
'vorwärts fahren
Porta.4 = 1 'vorwärts Rechts
Portb.0 = 1 'vorwärts Links
Porta.5 = 0 'rückwärts Rechts
Porta.7 = 0 'rückwärts Links
End If
'################################################# ################################################## ###################


Loop
End