Hallo allerseits! Ich habe mir ein RNControl1.4 Board bereits letztes Jahr zugelegt gehabt und wollte nun mal wieder damit etwas rumtesten. Natürlich habe ich zunächst brav die Suchfunktion geplündert und jede Menge Threads wie ich Servos ansteuern kann gelesen, allerdings funkts auch mit einem Programm aus einem anderem Thread , das dort funktioniert nicht. der Fehler sollte also am anschluss liegen.
Zurzeit habe ich ein Servo (brav mit 6A versorgt) an PortA.0 angeschlossen.
Per Terminal gibt das RN auch die print-befehle aus... laufen tut das Programm also zweifelsohne. Der Servo von Conrad ruckt wenn ich ihm mal von Hand ein kleinen Impuls gebe, nur das im Programm angedacht schwenken tut er nicht.
Über einen Tipp was ich übersehen haben könnte wär ich dankbar, ich fürchte es ist irgendetwas ganz simples.
Habe nur den gelben Draht des Servos mit wahlweise der Klemmbüchse für A.0 oder direkt an JP1 in a.0 gesteckt.
[/code]Code:$regfile = "m32def.dat" $crystal = 16000000 'Quarzfrequenz $baud = 9600 Dim Center As Integer Dim Servopos As Integer Dim Left As Integer Dim Right As Integer Left = 50 Right = 150 Center = 100 Servopos = Center 'servo config Config Servos = 1 , Servo1 = Porta.0 , Reload = 10 Config Pina.0 = Output Enable Interrupts 'ende servo config Do Print "Servo Test" Wait 1 Servopos = Center Servo(1) = Servopos Wait 1 Servopos = Left 'nach links fahren Servo(1) = Servopos Wait 1 Print "Rechtsdrehung" For Servopos = Left To Right Step 10 Servo(1) = Servopos Waitms 10 Next Wait 1 Print "Linksdrehung" For Servopos = Right To Left Step -10 Servo(1) = Servopos Waitms 10 Next Wait 1 Print "Mitte" Servopos = Center Servo(1) = Servopos Loop







Zitieren

Lesezeichen