Habt ihr denn mal die ganzen Beispiele auf der Robotikhardware CD bzw. Doku durchgeschaut und umgesetzt. Eigentlich funktioniert Ansteuerung völlig problemlos.
Hier das einfachste Beispiel:
Code:
'###############################################
'microservoboard.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
'###############################################
$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 90 Grad Drehbereich
Do
Servonummer = 7 '0 bis 15 (bei mehreren Boards bis 254)
Servoposition = 254
Print Chr(255); Chr(Servonummer); Chr(Servoposition); 'Servo ganz rechts
Wait 2
Servonummer = 7 '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
Lesezeichen