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
Lesezeichen