Es hat aber so funktioniert

Ich habe heute Mittag aber noch was anders gemacht, was die selbe Funktion hat. Ich denke das meinst du auch.

Hier ist meine neue Sub zum Fahren:
Code:
Sub Fahren()
   Dim Sensor As Word

   Sensor = Getadc(2)                                       'Sensor 1 aktivieren
   Config Pina.2 = Input                                    'Port als Input
   Porta.2 = 1                                              'Port hoch setzen


   Portc.7 = 1                                              'Motor 1 Vorwärts
   Portb.1 = 1                                              'Motor 2 Vorwärts

   Do                                                       'Endlosschleife
         If Getadc(2) < 1010 Then                           'Wenn Port runter gesetzt wird (Low)


                     Portc.6 = 1                            'Motor 1 Rückwärts
                     Portc.7 = 0

                     Portb.0 = 1                            'Motor 2 Rückwärts
                     Portb.1 = 0

                     Print "Hindernis, setze zurueck!"

                     Waitms 100

                     'Rechtsdrehung
                     Portc.7 = 1                            'Motor 1 Vorwärts
                     Portc.6 = 0

                     Waitms 50

                     'Geradeaus
                     Portb.1 = 1                            'Motor 2 Vorwärts
                     Portb.0 = 0


                     Print "Setze Fahrt fort!"

         End If
   Loop

End Sub