KCP blinken lassen

vorschlag:

If Warnung and Not Merker Then
$Timer[1] = 0
$timer_stop[1] = FALSE
Else
Merker==False
Endif

IF Warnung==True Then
Merker=True
if $timer[1]>=50 Then
$phgbright =1
$phgcont=1
$Timer[2] = 0

Else
$timer_stop[2] = FALSE
if $timer[2]>=50 Then
$phgbright=15
$phgcont=15
$Timer[1] = 0

Endif
Endif

Else
Merker=False
$phgbright=15
$phgcont=15
Endif

Sicher noch Ausbaufähig

Hallo,

eine lustige Idee.
Wird aber veilleicht Personen dazu vernlassen, das KCP zu tauschen, oder den Service zu holen.
Wie waere es mit einer einfachen Meldung?

Gruss Stefan

Hi Freakz,

ich fand die Idee so geil, hab's gleich umgesetzt.

AUSFÜHRUNG AUF EIGENE GEFAHR!

Hat bei mir Super geklappt!

Folgende Dinge müssen getan werden:

$Config.dat:
BOOL bWarning

SPS.SUB
Im Inifold:

bWarning=FALSE

Irgendwo im LOOP...ENDLOOP:

WARNPLC()

Eventuell noch ein paar Einstellungen Timernummer und Blinkzeit in WARNPLC.DAT aendern

Im Programm an gewünschter Stelle:

bWarning=True
...
bWarning=FALSE

Viel Spaß.

@ IrrerPolterer Gut gemacht.

Verrate mir doch später mal, wie lange das KCP das aushält, bis die Lampe drin abgeraucht ist......

Zitat von Stethi

Verrate mir doch später mal, wie lange das KCP das aushält, bis die Lampe drin abgeraucht ist......

Deswegen hab ich ja geschrieben:

Zitat von IrrerPolterer

AUSFÜHRUNG AUF EIGENE GEFAHR!

Ob ich das jemals einsetze weiß ich auch nicht...