Ich habe diese Programm geschrieben, und daran drei verschiedene Conrad 5 Euro Servos angeschlossen, jedoch drehen alle drei Servos nach rechts und machen dann gar nichts mehr . Könnt ihr mir helfen hab keine Ahnung was sein könnte.


Mfg
Sven
Code:
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output
Servo(1) = 10                                               

Do
Loop

Dim I As Byte
 Print "Mittelstellung"
 Servo(1) = 48
 Wait 1

 Servo(1) = 48                                              'servo nach ganz links fahren

 Wait 1


 Print "Rechtsdrehung"

 For I = 48 To 172 Step 10
 Servo(1) = I
 Waitms 10


 Next
 Wait 1

 Print "linksdrehung"
 For I = 172 To 48 Step -10
 Servo(1) = I
 Waitms 10
 Next

 Wait 1
 Print "mittelstellung"
 Servo(1) = 108
+ Codetags (PicNick)