Attiny 13

[HeXPloreR]

Wie ihr seht hab ich die Anregungen mit berücksichtigt.

Wenn Du das sagst

Da war der Thomas$ wohl etwas schneller

Hier mein Vorschlag (ungetestet) :

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 8
$framesize = 24
Config Portb.2 = Input
Config Portb.1 = Output         'Relais
Config Portb.0 = Output
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10

Dim Puls as Integer     'dim W As Integer
Dim I As Byte

Enable Interrupts

' Relais Alias Portb.1

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
     Portb.1 = 0    'Relais = 0                                             'Relais aus
  End If
loop
End

Wichtig hierbei ist das dieser Code lesbar ist, und nicht in unnötige Stücke zerhackt die man nicht mehr zuordnen kann.

Viele Grüße
Jörg