rn-minicontroll servo zuckt nur

[sreuss]

Hallole zusammen,

habe ein RN-Minicontroll Board und will damit später mal mehrere Servos ansteuern, jedoch habe ich schon bei einem Servo das Problem das wenn ich das Programm aus der Hilfe in meinen Controller einspiele das der Servo nur zweimal kurz, und immer in die gleiche Richtung zuckt.
Habe leider keinen mit dem gleichen Problem gefunden. Hoffe mir kann Trotzdem jemand helfen.

Vielen Dank schon mal


$regfile = "m168def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

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 = Portb.0 , Reload = 10

'as an option you can use TIMER1

'Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10 , Timer = Timer1

'we use 2 servos with 10 uS resolution(steps)

'we must configure the port pins used to act as output

Config Portb = Output

'finally we must turn on the global interrupt

Enable Interrupts

'ende Servo config

Do
Print "Servo Test"
Wait 1

Servopos = Center
Servo(1) = Servopos
Wait 10

Servopos = Left
Servo(1) = Servopos
Wait 10

Print "Rechtsdrehung"
For Servopos = Left To Right Step 10
Servo(1) = Servopos
Wait 10
Next
Wait 10

Print "Linksdrehung"
For Servopos = Right To Left Step -10
Servo(1) = Servopos
Wait 10
Next
Wait 10

Print "Mitte"
Servopos = Center
Servo(1) = Servopos

Loop

[Horstel]

Hast du den Servo an einer eigenen Versorgungsspannung ?
Es könnte sein das der Servo zu viel Strom zieht wenn er sich bewegt und dadurch die Versorgungsspannung des Controllers kurz zusammenbricht und sich der Controller resettet. Und dann beginnt das Spiel von vorn ;)

[Suggarman]

Folgendes fällt mir auf:

Servo(x) ist eine Byte-Variable, vielleicht stört die Integer-Variable
50 und 150 könnten bereits außerhalb des möglichen Stellbereiches liegen. Teste mal 80 bis 120.
Wozu gehst du den Umweg über Servopos?
10 Sekunden Pause sind zum Testen recht lang.
Servos brauchen eine eigene Stromversorgung.
Masse Servo muss an Masse Controller.

Viel Erfolg.

Stefan

[sreuss]

Hi,

das ging ja super schnell mit einer antwort, und es scheint jetzt auch zu funktionieren. Habe den Servo jetzt direkt an mein Netzteil geklemmt. Dachte es reicht wenn ich das Netzteil voll hochdrehe ( auf 12 V ).

Was mir allerdings noch etwas komisch vor kommt ist das der Servo erst gegen den Uhrzeigersinn auf Anschlag dreht. Danach dreht der Servos schon hin und her. Zumindest auf die Left und Right Positionen, Center Position funkt jedoch nicht.

Grüßle

[Suggarman]

Hi,

das ging ja super schnell mit einer antwort, und es scheint jetzt auch zu funktionieren. Habe den Servo jetzt direkt an mein Netzteil geklemmt. Dachte es reicht wenn ich das Netzteil voll hochdrehe ( auf 12 V ).


12 V am Servo? Und das lebt noch? Üblicherweise laufen Servos ca. mit 4-7 V :-)

[sreuss]

:) ne hatte die 12V am Board und den Servo dann am ganz normal angesteckt.
Jetzt wo ich den Servo direkt am Netzteil habe läuft es nur mit 6V

[High Light]

Hey,

i sag mal danke, kann zwar nix zum Thema mehr beitragen,
aber der Quellcode hat mir sehr weiter gebracht.

Eine Frage habe ich, kennt sich hier jemand mit Lipos aus?
Vlt kann sich ja jemand bei mir melden.

Gruß High Light

[sreuss]

Also das ist der aktuelle Stand der Funzt. zur abwechslung auch mal *g*



$regfile = "m168def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Dim Center As Integer
Dim Pos1 As Integer
Dim Pos2 As Integer
Dim Pos3 As Integer
Center = 105
Pos1 = 30
Pos2 = 180
Pos3 = 140


'Servo config
Config Servos = 1 , Servo1 = Portd.2 , Reload = 10


Config Portd = Output




'finally we must turn on the global interrupt

Enable Interrupts

'ende Servo config

Do
Servo(1) = Center
Waitms 1000

Servo(1) = Pos1
Waitms 1000

Servo(1) = Center
Waitms 1000

Servo(1) = Pos3
Waitms 1000

Servo(1) = Center
Waitms 1000

Servo(1) = Pos2
Waitms 1000

Loop