Hallöchen!
Hier erstmal ein kleines Testprogramm, mit dem ich mit der Servoansteuerung etwas rumprobieren wollte:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Dim Servonummer As Byte
Dim Servoposition As Byte
Config Portc = Output
Config Portd.7 = Output
Portc.0 = 0
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
Portc.6 = 1
Portc.7 = 1
Do
Sound Portd.7 , 400 , 400
Servonummer = 7
Servoposition = 0
Print Chr(255) ; Chr(servonummer) ; Chr(servoposition);
Wait 3
Sound Portd.7 , 400 , 400
Servonummer = 7
Servoposition = 255
Print Chr(255) ; Chr(servonummer) ; Chr(servoposition);
Wait 3
Loop
Nunja, folgendes passiert nach dem Starten: Das RN-Board fängt an, fröhlich vor sich hin zu piepsen, wärend die grüne LED des Servoboards (SB) im gleichen Takt blinkt, was bis dahin nicht weiter verwunderlich ist. DSas Servo rührt sich allerdings nicht und nach etwa 30s erlischt die grüne LED; nun leuchtet die gelbe dauerhaft und die rote blinkt.
Zur Verkabelung: RN wird über 9,6V Akkupack versorgt, SB über Anschluss von RN (für externe 5V-Geräte), Servos über vier Zink-Kohle-Zellen mit U(ges)=6,4V (Leerlauf). Das einzige angeschlossene Servo hängt an Port 7. Der logic-level serial input des SB hängt an PortD.2 (TXD)(das ist wenn mich nicht alles täuscht der Pin links oben).
Tja, ich weiß nicht weiter, ihr aber bestimmt sehr wohl
Danke für eure Hilfe!
Lesezeichen