Also die Leds blinken alle , und die Motoren laufen auch gut. Das mit den Servos glaube ich weniger, denn ich hab da sjetzt schn mit zweien ausprobiert. Aber ich werde die jetzt mal aufschrauben
Werbung
Also die Leds blinken alle , und die Motoren laufen auch gut. Das mit den Servos glaube ich weniger, denn ich hab da sjetzt schn mit zweien ausprobiert. Aber ich werde die jetzt mal aufschrauben
was du machen kannst ,ich kann für den tip aber keine haftung übernehmen,
servo am netzteil mit +5v und gnd anschliessen und dann 5v pulse manuell auf die steuerleitung geben...
hat bei mir gefunzt und dann sollte sich der servo auf jedenfall etwas bewegen bzw hin und herzucken...
ja super wunderbar..
am anfang macht man eben mal ein paar fehler oder hat so den einen oder anderen balken vor dem kopf ging mir auch so...
Ach so noch was:
wie kann ich svos gleichzeitig "laufen" lassen"?
mit laufen meinst dur drehen?
einfach nacheinander die position übergeben wohin sie fahren sollen.
servo(1)=150
servo(2)=150
wait 1
servo(1)=50
servo(2)=50
dürfte so gehen oder?
ich hab selber nur einen servo dran...
Hallo, habe auch einen conrad servo (5€) damit dreht er hin und her...
Code:$regfile = "2313DEF.dat" $crystal = 8000000 $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space ' Config Servos = 1 , Servo1 = Portd.6 , Reload = 10 ' Config Portd = Output Enable Interrupts Dim I As Byte Do For I = 32 To 135 Servo(1) = I 'Waitms 10 Next waitms 500 For I = 135 To 32 Step -1 Servo(1) = I 'Waitms 10 Next Waitms 500 Loop End
TACH!
Ich beende mal meinen andern Servo-Meckerthread und schließe mich diesem an. Auch ein Conrad-Servo, folgendes Problem:
Ich steige mit 15 ein. Mit "l" und "r" kann ich den Puls modifizieren und er wird mir auch zurückgegeben. Dabei fand ich raus dass der Servo mit Werten von 5 - 35 funzt und ausserhalb dieser Bereiche ruckelt. Woran liegt das? Hab überigens 3 Conradservos getestet, immer das gleicheCode:$regfile = "m8def.dat" $crystal = 1000000 $baud = 4800 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1 Config Servos = 2 , Servo1 = Portc.0 , Servo2 = Portc.1 , Reload = 10 Config Portc = Output Enable Interrupts Dim A As Byte Dim Eins As Byte Let Eins = 15 Servo(1) = Eins Servo(2) = Eins Schleife: Inputbin , A If A = "l" Then Gosub Links If A = "r" Then Gosub Rechts Goto Schleife Links: Let Eins = Eins + 1 Servo(1) = Eins Servo(2) = Eins Print Eins Return Rechts: Let Eins = Eins - 1 Servo(1) = Eins Servo(2) = Eins Print Eins Return
-> MEIN PROJEKTBLOG <-
Lesezeichen