'################################################# ##
'microservoboard2.bas
'für
'RoboterNetz Board RN-CONTROL ab Version 1.1
'und das Micro Servo Board
'Aufgabe:
' Dieses Testprogramm bewegt ein Servo das am Anschluss SERVO7
' des Micro Servo Board steckt, hin und her.
' Der Jumper am Servoboard muss gesteckt sein, da der MINI SSC MODE
' zur Ansteuerung von Servos genutzt wird
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter
http://www.Roboternetz.de oder robotikhardware.de
'################################################# ######
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000 'Quarzfrequenz
$baud = 9600 'wahlweise auch 2400 Baud
Dim Servonummer As Byte
Dim Servoposition As Byte
'Der Zahlenbereich 0 bis 254 umfasst einen 180 Grad Drehbereich
'Servo Nummer 15 spricht ebenfalls Servo 7 an, jedoch mit 180 Grad Drehbereich
'Achtung, nicht alle Servos erlauben so große Drehbereiche, daher nicht gleich
'höchsten Wert verwenden
Do
Servonummer = 7 + 8 '0 bis 15 (bei mehreren Boards bis 254)
Servoposition = 210
Print Chr(255) ; Chr(servonummer) ; Chr(servoposition); 'Servo ganz rechts
Wait 2
Servonummer = 7 + 8 '0 bis 15 (bei mehreren Boards bis 254)
Servoposition = 0
Print Chr(255) ; Chr(servonummer) ; Chr(servoposition); 'Servo ganz rechts
Print Chr(255) ; Chr(7) ; Chr(0); 'Servo ganz links
Wait 2
Loop
End