Einschaltzeit bzw. Laufzeit

[gerald_d]

hallo bümpi!

ich hab das jetzt deine vorschlag übernommen und noch etwas erweitert.
über eine zusätzliche variable "Startwert" wird nachdem der aktor abgeschaltet wird,
nach 2 sekunden wieder mit dem startwert gefüllt und bei einem neuerlichen einschalten eben wieder mit diesem gestartet.
vorher war es so das wenn die contown vorzeitig unterbrochen wurde (also wenn jemand das licht vor ablauf der 30 minuten ausgeschalten hat) nach einschalten mit der restzeit gestartet hat.

Code: Alles auswählen

wenn LichtLukas eingeschaltet dann
   Anz_Restlaufzeit_Licht_Lukas.Gesamtlaufzeit := Anz_Restlaufzeit_Licht_Lukas
   Anz_Restlaufzeit_Licht_Lukas.Startwert := Anz_Restlaufzeit_Licht_Lukas
   warte(Anz_Restlaufzeit_Licht_Lukas)
   Anz_Restlaufzeit_Licht_Lukas := Anz_Restlaufzeit_Licht_Lukas.Gesamtlaufzeit
   LichtLukas ausschalten
sonst
   warte("00:00:02")
   Anz_Restlaufzeit_Licht_Lukas := Anz_Restlaufzeit_Licht_Lukas.Startwert
endewenn

nochmals vielen dank und gruß
gerlad