Hallo

Thomas meinst du das Prog bewegt sich in dieser Schleife bis der Wert sich ändert ?
Code:
Pulsein W , Pinb , 2 , 1              'also in diesen drei Zeilen
If W <= 150 Then Portb.1 = 0              'wenn nicht würde jedes mal der Rest abgearbeitet das wäre nicht gut
elseif W > 150 And W <= 200 Then
Portb.1 = 1
Waitms 1450
Portb.1 = 0
End If                            //Nu warten wenn es auch sinvoll ist, sonst wartet der µC 1,5S und merkt dabei nicht das nächste start signal
Ich werde es ausprobieren .

Jörg bei deinem Vorschlag ist die Frage ähnlich.

Code:
Do
  Pulsein Puls , Pinb , 2 , 1                                               'Schelife geht solange in else Zweig bis Pukls größer 150 ist
  If Puls > 150 then                                                         'And Puls <= 200 'Then    'Steigt Puls/W überhaupt über 200 oder ist es sogar egal??
     Portb.1 = 1      'Relais = 1                                          'Relais an
     Waitms 1450
     Portb.1 = 0      'Relais = 0                                          'Relais aus
'     'Enable 'Interrupts                                                     'siehe oben
     For I = 100 To 200                                                     'Servoschleife anfang
         Servo(1) = I
         Next I                                                                    'schnelle fahrt des Servo
     For I = 200 To 100 Step -1
         Servo(1) = I
         Waitms 12                                                             'geregelte Rückfahrt des Servo
     Next I                                                                        'Servoschleife ende
'     'Disable 'Interrupts                                                    'weglassen! Siehe Hilfe >> mit F1 auf CONFIG (- servo)
     Portb.1 = 1    'Relais = 1                                             'Relais an
     Waitms 1708                                                             'Waitms 8 +  'Waitms 1700
     Portb.1 = 0    'Relais = 0                                             'Relais aus
  else                                                                           'hier erst else bis dahin hat das Prog alles davor doch schon durchlaufen oder ?
     Portb.1 = 0    'Relais = 0                                             'Relais aus
  End If
loop
End
Sorry aber ich sagte es ja Anfänger , ich versuche es zu verstehen was für künftige Projekte wichtig ist.