Blinker

Zitat von Friedrich

Und mal noch was anderes.... Habe vorhin von einem Multisubmit gelesen. Hat das jemand von euch?

Ja. Hab ich.

Ich auch. Und nicht nur einen...

Will hier mal meine 7-Zeilen-Variante (jedoch ohne TIMER) posten.
Alles auch in Submit.

INTERRUPT DECL 21 WHEN $OUT[33]==false DO IrBlink( )

Pulse($OUT[33],true,0.5) ;Start-Pulse
INTERRUPT ON 21

...

DEF IrBlink()
 PULSE ( $OUT[33], true, 1 ) ;Ein- und Auszeit
 PULSE ( $OUT[34], true, 0.5 ) ;eigentlicher Blinker
END

CU Roland

kein timer oder interrupt ist noetig

IF $IN[10] THEN
   $OUT[1] = ($ROB_TIMER B_AND 1023)>500
ELSE
   $OUT[1] = $IN[11]
ENDIF

Hallo panic mode.

Ja das ist ein cooler ein-Zeilen-Blinker! .