Endlich habe ich auch ein (Teil)-Erfolg zu melden.Ziel ist es meineTerasse von 10m*5m autonom Mähen zu lassen.Der Mäher ist schon ne Weile fertig doch als Laie im Programmieren hab ich da meine Propleme.Heute hab ich es geschafft das er sich alleine bewegt!Sicherlich ist mein Programm für euch Profis lachhaft doch ich bin stolz wie Oskar.Das Programm läßt sich mit Sicherheit noch verbessern doch mein nägstes Haubtziel ist es jetzt ein Bumper vorn und hinten anzusteuern.Ich habe noch ein Scharp 2D120X F 22 und ein Sharp 2Y0A02 F 0Z rumliegen,die später die Bumper ersetzen sollen nur hab ich kein Plan wo ich die am Control1.4 anschließen soll noch wie ich die ansteuern kann.
Mein Erfolg:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$crystal = 16000000

Config Pinc.6 = Output
Config Pinc.7 = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output


Do

Wait 1 'Pause zwischen vor &zurück
Portc.6 = 0 'Richtung vorwärts
Portc.7 = 1 'Richtung vorwärts
Portd.4 = 1 'Linker Motor ein/aus
Portb.0 = 0 'bestimmt Richtung rechter Motor
Portb.1 = 1 'bestimmt Richtung rechter Motor
Portd.5 = 1 'rechter Motor ein/aus

Wait 20 'xx lang vorwärts
Portd.4 = 0 'stop rechter Motor
Portd.5 = 0 'stop linker Motor


Wait 1
Portc.6 = 1 'Richtung zurück
Portc.7 = 0 'Richtung zurück
Portd.4 = 1 'Linker Motor ein/aus
Portb.0 = 1 'bestimmt Richtung rechter Motor
Portb.1 = 0 'bestimmt Richtung rechter Motor
Portd.5 = 1
Wait 1 'xx lang Richtung zurück fahren
Portd.4 = 0 'Stop rechter Motor
Portd.5 = 0 'Stop linker Motor
Waitms 45 'xx lang drehen
Portc.6 = 0
Portc.7 = 1
Portd.4 = 0 'Links drehen ein/aus
Portb.0 = 0
Portb.1 = 1
Portd.5 = 1 'rechts drehen ein/aus
Loop

End

Für Tips bin ich dankbar.

Gruß KlaRo