Thread Verzögerung von Ereignissen (17 answers)
Opened by piet at 2015-06-02 16:18

Gast piet
 2015-06-03 07:44
#181242 #181242
Morgen,

hier einmal mein Hintergrund.

Ich habe ein Visualisierungssystem am laufen.
Hier können diverse Meßwerte angezeigt, archiviert und ausgewertet werden.
Das Visualisierungssystem kann auch Meldungen anzeigen, generieren (jedoch nicht verzögert)
Da ich die Daten "fertig" bekomme (wenn Bit x.y "1" = Meldung 2345) brauche ich mich nicht weiter darum kümmern.
Nun möchte ich weitere Meldungen bzw. Reaktionen aus den bestehenden Daten generieren. z.B. nicht erst eine Meldung wenn Temperatur zu heiß ist, nein eine Warnung wenn 5°C davor und 5 sek. Verzögerung usw.
Ich lese nun die "fertigen" Messwerte in ein Perscript ein und bearbeite diese und geben "verzögert" neue Daten an das Visualisierungssystem aus, die wiederum vom Visualisierungssystem angezeigt und ausgewertet werden.

z.B.
Alt:
Messgeber -> Steuerungsssystem -> Visualisierungsssytstem
Neu über Perscript
Messgeber -> Steuerungsssystem -> Visualisierungsssytstem
Messgeber -> Steuerungsssystem -> Perlscript -> Visualisierungsssytstem
Es geht also nicht darum einen Wert in einer Schleife zu überprüfen.

Code: (dl )
1
2
3
4
5
6
7
8
while(1)
{
if $i > 100 && Timer(5s) then ....

if $x > 1 && Timer(500ms) then ....

if $y > 100 && $z < -20 && Timer(5s) then ....
}


Ich hoffe ich habe es verständlich erklärt, ich gab mein bestes ;-)

Das von hlubenow gefällt mir schon gut, außer natürlich Tk.
Eine Funktion "Timer_ON" in der wiederum die Zeit in "0.1" Sekunden
vom Startwert abgezogen wird. Und alles ohne externe lib. Für 1-2 Befehle würde ich lieber einen shellbefehl, oder gar C einbauen, bevor ich ein externes Modul verwende.

Gruß
piet
Last edited: 2015-06-03 09:00:30 +0200 (CEST)

View full thread Verzögerung von Ereignissen