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
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...
AHHHHH, Heureka!
Jetzt klapt's. Ich gab nochmal alle Kabel neu verbunden, danach liefs.
Danke Casiopeia , hast mir sehr geholfen!
Manchmal hat man eben ein Brett vor dem Kopf![]()
![]()
AHHHHH, Heureka!
Jetzt klapt's. Ich gab nochmal alle Kabel neu verbunden, danach liefs.
Danke Casiopeia , hast mir sehr geholfen!
Manchmal hat man eben ein Brett vor dem Kopf![]()
![]()
AHHHHH, Heureka!
Jetzt klapt's. Ich gab nochmal alle Kabel neu verbunden, danach liefs.
Danke Casiopeia , hast mir sehr geholfen!
Manchmal hat man eben ein Brett vor dem Kopf![]()
![]()
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