16.09.2013, 08:52
Ich würde logischerweise folgenderweise vorgehen:
Entsprechendes Bit abfragen.
Wenn gesetzt, und Hilfsmerker 0 ist, Hilfsmerker setzen.
Wenn Hilfsmerker gesetzt ist, Aktuelle Sekunden einlesen
Sek=Second(Now)
vergleichen mit gespeicherten Sekunden BCKSEK
wenn ungleich,
Ablaufzeit inkrementieren und BCSEK= Sek setzen
Abfragen ob Ablaufzeit schon erreicht wurde,
wenn ja, Bit rücksetzen ,Ablaufzeit =0 setzen sowie Hilfsmerker rücksetzen.
Entsprechendes Bit abfragen.
Wenn gesetzt, und Hilfsmerker 0 ist, Hilfsmerker setzen.
Wenn Hilfsmerker gesetzt ist, Aktuelle Sekunden einlesen
Sek=Second(Now)
vergleichen mit gespeicherten Sekunden BCKSEK
wenn ungleich,
Ablaufzeit inkrementieren und BCSEK= Sek setzen
Abfragen ob Ablaufzeit schon erreicht wurde,
wenn ja, Bit rücksetzen ,Ablaufzeit =0 setzen sowie Hilfsmerker rücksetzen.