Servos mit Bascom

Heinz Gast #37712 
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
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
Bernd Rabe Gast #37713 
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
Antwort Zitieren Bearbeiten Löschen Melden Danke
Heinz Gast #37714 
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.
Antwort Zitieren Bearbeiten Löschen Melden Danke
thkais Gast #37715 
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.
Antwort Zitieren Bearbeiten Löschen Melden Danke
Bernd Rabe Gast #37716 
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
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 23 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.