Servo mit Bascom AVR

Ich bin total begeistert! Ich habe soeben einen Servo aus alten Zeiten (mindestens schon 300 Jahre alt) mit Bascom und dem ATmega8 innerhalb von zehn Minuten wieder zum Leben erweckt. Dass es so einfach sein würde, hatte ich mir nicht gedacht. Aber so wie es aussieht, kann man mit Bascom und einem ATmega8 bis zu 16 Servos ansteuern. Und das mit ein paar kinderleichten Befehlen.

Mit Config Servos = 1, Servo1 = Portd.7, Reload = 10 habe ich angegeben, dass ich einen Servo auf Portd.7 anhängen möchte. Was "Reload = 10" bedeutet habe ich nicht verstanden, aber es funktioniert trotzdem. :-) (CONFIG SERVOS-Hilfe)

Und im Programm kann ich mit Servo(1) = <Zahlenwert> die Position des Servos angeben. Das war's! :-D

Mit diesem Code lasse ich meinen alten Servo in großen Schritten vor und zurück laufen. Man muss dem Servo natürlich die Zeit lassen, um eine Position zu erreichen, bevor man ihm eine neue Position übergibt. Das mache ich, indem ich mit Waitms 300 Millisekunden warte.

'Hardware: Rote LED (mit Vorwiderstand) und Servo (direkt) an Pin PD7
'          Servo und µC an 5V

$regfile = "m8def.dat"
$crystal = 8000000
Config Servos = 1 , Servo1 = Portd.7 , Reload = 10
Declare Sub Main
Enable Interrupts

'LED und Servo an PD7
Ddrd = &B10000000

Call Main()
End

Sub Main
    Local Neue_position As Byte
    
    Const Startwert = 50
    Const Endwert = 150
    
    'Startposition einnehmen
    Servo(1) = Startwert
    Waitms 300
    
    'In der Schleife vor und zurück
    Do
        For Neue_position = Startwert To Endwert Step 20
            Servo(1) = Neue_position
            Waitms 300
        Next Position
        For Neue_position = Endwert To Startwert Step -20
            Servo(1) = Neue_position
            Waitms 300
        Next I
    Loop
End Sub

Weiterführende Infos:

• https://rn-wissen.de/wiki/index.php/Servos
• https://rn-wissen.de/wiki/index.php/Bascom_Inside-Code#SERVO
• Übertragungsprotokoll für mehrere Servos

Bei Amazon nach "Servos" suchen