Code:
'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat" 'AT Mega 32
$crystal = 8000000 'Quarz: 8 MHz
'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111000 'Pin PA 3-7 auf Output setzen
Porta = &B11111000 'Pin PA 3-7 auf High setzen
Ddrb = &B00000001 'Pin PB 0 auf Output setzen
Portb = &B00000001 'Pin PB 0 auf High setzen
'------------------------------------------------------------------------------
'------------------ MainLoop --------------------------------------------------
'------------------------------------------------------------------------------
Do
'------------------ Motore einschalten ----------------------------------------
Porta.3 = 1 'Motor Rechts einschalten
Porta.6 = 1 'Motor Links einschalten
'######################################################################################################################
If Pina.0 = 0 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 'rückwärts Links
'######################################################################################################################
Else 'Wenn keine Spannung bei PA0, PA1 und PA2 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
wie schon oben beschrieben , das selbe ergebnis das er nicht mehr vorwärts fahren will
Lesezeichen