Servos mit Bascom

[Heinz (Gast)]

Hallo!

Hab ein kleines Problem. Möchte 2 Servos mit meinem AVR 4433 nach Links
drehen lassen. Hab die Servos so modifiziert, dass Sie sich um 360°
drehen können. Sie sollen sich sozusagen endlos drehen.

Der eine Servo läuft jetzt zwar korrekt immer in die linke Richtung der
andere jedoch nach Rechts was natürlich weniger gut ist g

Hab hier jetzt mal den Sample Code aus dem Bascom Verzeichnis
angehängt. Wie muss man den Code jetzt modifizieren, dass sich die
Servos beide in die gleiche Richtung drehen?


Config Servos = 2 , Servo1 = Portd.0 , Servo2 = Portd.1 , Reload = 10

Config Portd = Output

Enable Interrupts

Servo(1) = 10
Servo(2) = 20

Dim I As Byte
Do
 For I = 0 To 100
   Servo(1) = I
   Waitms 1450
 Next

 For I = 0 To 100 Step -1
  Servo(1) = I
  Waitms 1450
 Next
Loop
End

[Bernd Rabe (Gast)]

Hallo Heinz,

ist ganz einfach: lasse in der zweiten "For-Schleife" "Step -1"
weg, bzw. füge bei der ersten "For-Schleife" Step -1" hinzu.


Gruß Bernd

[Heinz (Gast)]

hallo, geht leider auch nicht. die servos drehen noch immer in beide in
entgegengesetzte richtungen. Muss mir vielleicht nochmals die servos
anschauen, vielleicht is da was nicht ok.

[thkais (Gast)]

Wie hast Du den Poti-Eingang der Servo-Elektronik beschaltet? Das
normalerweise eingebaute Poti gibt eine Rückmeldung der aktuellen
Position. Den Eingang am besten auf 1/2 Versorgungsspannung legen
(symmetrischer Spannungteiler mit Widerständen), das entspricht dann
der Mittelstellung.

[Bernd Rabe (Gast)]

Hallo Heinz,

leider habe ich auch nur flüchtig auf den Code geschaut.

In der zweiten "For-Schleife steht  Unsinn!
Es müßte dort

 For I = 100 To 0 Step -1
  Servo(2) = I
  Waitms 1450
 Next

stehen.

Gruß Bernd