Hallo hier noch ein zusatz zum obigen Programm,das übrigens bei mir Funktioniert.
Das Waitms 8 ist damit das servo mit geringer Lautstaerke laeuft.
Hier noch was fuer die 5 Euro Servo von C.
Code:
 Sub Servo_ultra()
    For I = 70 To 150
     Servo(1) = I
     If I = 70 Then Call Messen()
     If I = 90 Then Call Messen()
     If I = 110 Then Call Messen()
     If I = 130 Then Call Messen()
     If I = 150 Then Call Messen()
     Waitms 8
     Next I
        For I = 150 To 70 Step -1
     Servo(1) = I
     If I = 90 Then Call Messen()
     If I = 110 Then Call Messen()
     If I = 130 Then Call Messen()
     Waitms 8
     Next I
End Sub
Oben ist bei 120 die Mitte und hier 110 die Mitte.

nochwas ich würde nicht ohne not den Internen Quarz nehmen er ist nicht genau und bei Temperatur schwankungen steigert es sich.
Gruß raggy