Servoansteuerung über Funkfernsteuerung

[HeXPloreR]

...

Es gibt 'nen einfacheren Weg mit dem Tiny13, solange die Forderungen an die Funktionalität nicht ausufern.
Was steht denn z.B dagegen, den Servokrams komplett wegzulassen und nach der Pulsein den Servopuls per Verzögerungsschleife zu erzeugen?
Timer braucht's nicht dafür, denn schließlich wird Pulsein genau im Takt der eintreffenden Servoimpulse durchlaufen, das reicht für das Timing.

...jo, richtig. Und da die nächste Frage schon wartet: Der Befehl zum Servos ansteuern lautet "Pulseout". Und das ganze Pulsein und -out funktioniert am bessten ab einem Takt von ca 4MHz. Der Tiny13 kann 9,6MHz wenn man den Teiler von 8 deaktiviert.

[Richy]

Ok, danke erst mal für die Tipps. (Wie gesagt beschäftige mich erst seit paar Wochen mit der Materie tu mich noch bissel schwer mit Timern, Freq. usw.)
Die Anforderungen sind eigentlich nur: "Benutzerdefiniert" LANGSAM und möglichst ohne großes ruckeln.
Werd mich morgen mal damit versuchen.

Bis dahin.
Gruß Richy

[Richy]

Super, es läuft!!!
Servobefehl raus, PulseOut rein und dann noch die Zeiten angepasst.

 For A = 1000 To 5000 Step 10
   Pulseout Portb , 0 , A
   Waitms 5
   Next A

Allen beteiligten ein großes Dankeschön!

VG Richy

[Smith-mini-plane]

Hallo Richy,
kannst du vielleicht den funktionierenden Code reinstellen.

Gruß und Danke

Thomas

[Richy]

Hallo,

hier noch mal der gesamte Code.

$regfile = "ATtiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 5
$framesize = 20

!LDI R16, &b10000000
!LDI R17, &b00000000
!OUT CLKPR, R16
!OUT CLKPR, R17

Config Pinb.0 = Output                                      'Servo
Config Pinb.4 = Output                                      'LED
Config Pinb.2 = Input                                       'Empfänger
Pinb = 0

Led Alias Portb.4

Dim A As Word
Dim W As Word

Enable Interrupts
Pulseout Portb , 0 , 1000                                   'Servo in Startpos. bringen

Do

Pulsein W , Pinb , 2 , 1                                    'Eingang Empfängersignal



If W <= 150 And A <= 5000 Then

   For A = 1000 To 5000 Step 10                             'mit diesen Einstellungen läuft der Servo
   Pulseout Portb , 0 , A                                   'nach meinen Wünschen.
   Led = 0                                                  'LED ist nur opt. Indikator beim Test
   Waitms 5                                                 'mit diesem Wert kann die Geschwindigkeit beeinflusst werden

   Next A

Elseif W > 170 And A >= 1000 Then

   For A = 5000 To 1000 Step -10
   Pulseout Portb , 0 , A
   Led = 1
   Waitms 5

   Next A

Else

   Pulseout Portb , 0 , A                                   'Servo bleibt an letzter Pos. stehen

End If

Loop

End

Viele Grüße
Richy

[Smith-mini-plane]

Hallo Richy,
vielen Dank.
Gruß Thomas