B4st1
20.07.2009, 17:26
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.
$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[/code]
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.
$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[/code]