Ja irgendwas machste da noch falsch oder dein Servo hat nen Hau wech.
Kein Ahnung.

Mein Programm läuft jedenfalls prima.

Der alte S15 läuft hier gerade mit folgendem Programm immer schön hin und her.


Code:
$regfile = "M8def.dat"
$crystal = 8000000
$baud = 19200

Config Servos = 1 , Servo1 = Portb.1 , Reload = 10

Enable Interrupts                                           'Ist nötig
Config Portb.1 = Output                                     'Servoausgang
Config Pind.6 = Input                                       'Taster 1
Config Pind.7 = Input                                       'Taster 2

Dim Ist As Byte
Dim Minimum As Byte
Dim Maximum As Byte
Dim Schrittweite As Byte
Dim Pause As Byte
Dim Z As Word

Minimum = 35                                                'Rechter Anschlag
Maximum = 155                                               'Linker Anschlag
Schrittweite = 1                                            'Schrittweite beim erhöhen
Pause = 25                                                  'Verzögerungszeit in ms damits steuerbar bleibt
Ist = Minimum                                               'Einfach nur Definierter Startwert

Do
 Do
  Incr Ist
  Servo(1) = Ist
  Waitms Pause
 Loop Until Ist = Maximum

 Do
  Decr Ist
  Servo(1) = Ist
  Waitms Pause
 Loop Until Ist = Minimum
Loop

End