Den Ansatz, mit der Differenz zwischen ZielZeit und AktuelleZeit zu arbeiten ...
Code:
IF NOT WagoAppTime.Fu[B]TimeDifference[/B](tdTime1:= zielzeit, tdTime2:= aktuellezeit) THEN
... finde ich gar nicht so verkehrt.
Jedenfalls besser, als den Vergleich SekundenVonAktuelleZeit >= SekundenVonZielZeit.
Die "Reserve", die man sich mit ">=" (gegenüber "=") vermeintlich schafft, schrumpft nämlich erbärmlich, wenn SekundenVonZielZeit = 59.
Ich würde es sinngemäss mit ...
Code:
DiffZeit := ABS(SollZeit - IstZeit); // alternativ z.B. DiffZeit := MAX(SollZeit, IstZeit) - MIN(SollZeit, IstZeit)
bDiffPos := DiffZeitAlt < DiffZeit; // DiffZeit und bDiffPos dürfen lokal/temporär sein
bDoSomeThing := bDiffPos AND NOT bDiffPosAlt; // Impuls, 1 Zyklus lang
DiffZeitAlt := DiffZeit; // DiffZeitAlt und ...
bDiffPosAlt := bDiffPos; // ... bDiffPosAlt müssen im nächsten Zyklus unverändert zur Verfügung stehen
... versuchen, damit Überläufe gegenstandslos werden.
Ob es wirklich ZyklusZeit spart, eine Mimik drum herum zu bauen, die zyklisch bearbeitet werden muss, um in den meisten Zyklen die "eigentliche" RechenArbeit zu "überspringen"?
Könnte man untersuchen - aber sicher ist, der Code wird dadurch umfangreicher und unübersichtlicher. Und der eine Zyklus mit der "eigentlichen" RechenArbeit beansprucht mehr Zeit MIT der ZusatzMimik.
PS:
Warum benutzt Du nicht die WagoAppScheduler?
Es gibt hier im Forum schon sooo viele Threads, in denen der TE nach DER massgeschneiderten Funktionalität von der Stange sucht ...
Man muss sich doch auch mal Gedanken machen dürfen, wie man das eine oder andere Problem lösen könnte ... sonst ist demnächst keiner mehr in der Lage, etwas ohne solche vorgefertigten Funktionalitäten zu lösen - geschweige denn, eine solche Funktionalität vorzufertigen!
