Hallo,

ich bin gerade(schon ein bischen länger) dabei ein Programm zu schreiben, das, wenn der IR-Sensor etwas erkennt der Roboter nach hinten fährt. Mein Problem ist aber, dass er schon beim Start rückwärts fährt. Hier mein Programm, was ist der Fehler ?

Code:
  $crystal = 8000000
 $regfile = "m8def.dat"

  Dim Result As Word

  Config Pinb.0 = Output
Config Pind.7 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1

Start Adc

Do
 Compare1a = 255
 Compare1b = 255
 Portb.0 = 1
 Portb.1 = 0
 Portd.7 = 0
 Portb.2 = 1

  Result = Getadc(6)
  If Result > 450 Then
 Compare1a = 255
 Compare1b = 255
 Portb.0 = 0
 Portb.1 = 1
 Portd.7 = 1
 Portb.2 = 0

 Waitms 1000
 Compare1a = 255
 Compare1b = 255
 Portb.0 = 0
 Portb.1 = 1
 Portd.7 = 1
 Portb.2 = 0
End If


Loop

End