IR-Sensor Erfassung mit Servo
Hallo,
Wie ihr wisste hatte ich in der letzten Woche grosse Probleme mit meinem Roboter. Jedoch habe ich mich damit mal eins bis zwei Tage nicht beschäftigt und so neue Energie geschauffelt :-b
Bisslang hatte ich ja ein Energie versorgungs Problem, dies habe ich nun bseitigt. Doch schon kommt ein neues auf uns (mich) zu....
Ich habe (mehr mal überprüft) genug Saft, und alles korrekt angeschlossen:
Servo(1) = portb.3
Sharp = porta.3
Folgenden Code verwende ich:
Code:
$regfile "m16def.dat"
$crystal = 16000000
Dim W As Word
Config Porta.3 = Input
Config Portb.3 = Output
Config Servos = 1 , Servo1 = Portb.3 , Reload = 10
Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc
Enable Interrupts
Do
W = Getadc(3)
If W > 350 Then
Servo(1) = 50
Wait 1
Servo(1) = 150
Wait 1
End If
Loop
Wenn ich das Program ausführe, dreht sich das Servo jedoch nur in die gewünschten richtungen, ohne das der Sensor grund hätte, etwas zu erkennen.
Wenn ich den Sharp überbrücke, also drekt spannung an den PortA.3 lege, passiert auch nicht. Ist nun mein Controller Kaputt?
Danke im Voraus, Leute
Edit: Ich habe das Servo durch eine LED ersetzt, und den Code angepasst....Die LED leuchtet durchgehend.
Mfg JeyBee
