Thread und :setStartTime()

[Manfred]

Ich habe mal wieder ein Problem mit der Threadsteuerung. Es wird vor dem :Start ein Setinterval(nZeit) gesetzt, damit das Teil sofort losrennt, beim :start. Danach soll aber eine Uhrzeit eingetragen werden, wann er das nächste mal laufen soll. Das klappt aber wohl nicht. Die zeit, die dann angegeben wird, wird anscheinend ignoriert. Der Thread läuft nicht wieder an, wenn die Zeit erreicht ist.

[georg]

Hallo, Manfred -


laut Dokumentation wird eine Ganzzahl erwartet, "Sekunden seit Mitternacht", und keine Uhrzeit. Ist das vielleicht die Ursache?


Gruss,

Georg

[Manfred]

Hi Georg,

klar, natürlich gebe ich Sekunden an.

[georg]

Hallo, Manfred -


haste mal ein Beispiel?


Gruss,

Georg

[Manfred]

sischer datt

Code: Alles auswählen

oThread:setStartTime(TimeToSec(Time())+10)
oThread:start("wache")
// jetzt rödelt der Thread herum
oThread:setStartTime(TimeToSec("12:00:00"))

genügt das ?

[brandelh]

Hi,

wie kompliziert

seconds()+10

liefert die Sekunden ab Mitternacht + 10

[Manfred]

Ja Hubert, war aus der Hüfte geschossen zum testen. Du hast natürlich Recht. Aber ist damit mein Problem gelöst?

[brandelh]

guckst du mal in die Hilfe ...

Wenn :setStartTime() und :setInterval() benutzt werden, sollte :setInterval() in :atStart() aufgerufen werden.

Ohne SetInterval() wird es wohl zu der Uhrzeit einmalig ausgeführt, mit nach der Ausführung erneut ...
Ich vermute aber du wärest besser bedient, wenn der Code der ausgeführt wird (ohne SetInterval) selbst eine neue Startzeit einträgt.
Bei :setStartTime() solltest du auch den Rückgabewert auswerten ... und wenn er kleiner als seconds() ist, startet er erst am nächsten TAG !

[Manfred]

Hubert,

das alles mache ich doch. Das Teil soll auch nur 1x am Tag zu einer bestimmten Uhrzeit laufen.

[brandelh]

Hallo Manfred,

ich nutze solche Startwerte nicht, ich mache lieber meine Schleifen

Code: Alles auswählen

function RunThisHighNoonUntilDate(cAktionTime, dStopDate)  // 1. Parameter wie time(), 2 ist ein Datum 
    do while date() < dStopDate
         do while time() > cAktionTime
              sleep(100) // oder 1000 ... je nach Genauigkeit - verhindert Prozessorlast
         enddo
         MachWas
    enddo
return

Die Funktion einfach in einem Thread mit 2 Parametern aufrufen und starten ...

Code: Alles auswählen

 
   oThread := Thread():new()
   oThread:start("RunThisHighNoonUntilDate", "12:00:00" , ctod("31.12.2100") )  // reicht das ;-)

[Manfred]

Hubert,

das ist ja alles schön und gut, aber ist es nicht so, als wenn man mit dem einen Fuß0 auf dem Gaspedal und mit dem anderen auf der bremse steht, damit man nicht so schnell fährt? Es würde genügen den Gasfuß etwas weniger feste zu drücken. Ich möchte schon die Möglichkeiten nutzen, die mir Xbase++ anbieten möchte. Ich denke mal, dafür ist SetStartTime() doch wohl gedacht, oder?

[brandelh]

Du unterstellst mir ich JAGE und BREMSE den Rechner gleichzeitig ?



Denk mal ein bischen nach sleep(1) wird von Xbase++ zur Verfügung gestellt und legt diesen Thread 1/100 Sekunden auf Eis.
Man kann auch sleep(100) aufrufen, aber dein Vorwurf wäre nur berechtigt, wenn ich eine Endlosschleife mit Berechnungen zur Einbremsung verwendet hätte ...

Wenn du es anders möchtest, OK - dann probiere wie es funktioniert

aber mach mir meine Vorschläge nicht madig

[Manfred]

war nicht so gemeint....

[brandelh]

Keine Angst, ich bin nicht beleidigt

[AUGE_OHR]

Code: Alles auswählen

oThread:setStartTime(TimeToSec(Time())+10)
oThread:start("wache")
// jetzt rödelt der Thread herum
oThread:setStartTime(TimeToSec("12:00:00"))

hm ...

ein o:setStartTime(), was richtig, vor dem o:start() gesetzt wird "verzögert" das sofortige ausführen des Threads.

wenn der Thread aber schon "läuft" kann man IMHO nicht "nachträglich" die "Verzögerung" ändern.
du muss erst den Thread "beenden", die neue "Verzögerung" per o:setStartTime() setzen und per o:start() neu aktivieren.

[Manfred]

Mit Verzögerung meinst Du jetzt das Setzen der neuen Startzeit? Wird denn bei einem einmaligen Setzen der Startzeit der Thread dann jeweils 1x am Tag zur entsprechenden Zeit gestartet, ohne es wiederholen zu müssen? Es geht mir eigentlich auch darum, dass ich die jeweilige Startzeit jederzeit anpassen kann.

[UliTs]

Mit Verzögerung meinst Du jetzt das Setzen der neuen Startzeit? Wird denn bei einem einmaligen Setzen der Startzeit der Thread dann jeweils 1x am Tag zur entsprechenden Zeit gestartet, ohne es wiederholen zu müssen? Es geht mir eigentlich auch darum, dass ich die jeweilige Startzeit jederzeit anpassen kann.

Hallo Manfred,

mit

Code: Alles auswählen

oThread:Start()

startet man einen Thread.
Wenn zu diesem Zeitpunkt ::SetStartTime() auf NIL gesetzt war, wird der gestartete Thread sofort ausgeführt.
Wenn zu diesem Zeitpunkt ::SetStartTime() auf 1000 gesetzt war, wird der gestartete Thread erst 1000 Sekunden später ausgeführt.
Edit 12:10: korrekt ist vermutlich im 2. Fall: ... wird der gestartete Thread erst 1000 Sekunden nach Mitternacht ausgeführt.

Wenn Du möchtest, dass der Programmcode in der Methode ::Execute() bzw. der beim Aufruf von ::Start() übergebene Codeblock mehrfach ausgeführt werden soll, mußt Du mit SetIntervall() arbeiten...
Z.B.

Code: Alles auswählen

oThread:setIntervall( 60*100 )   // Alle 60 Sekunden Methode Execute() aufrufen
...
METHOD MeineThreadKlasse:Execute()    // Methode wird alle 60 Sekunden aufgerufen.
LOCAL n12Uhr,n12Uhr10,nSeconds
  n12Uhr   := 12*60*60
  n12Uhr10 := n12Uhr + 10*60
  nSeconds := Seconds()
  IF n12Uhr<=nSeconds .and. nSeconds<>n12Uhr10
    // Code wird nur zwischen 12:00 und 12:10 ausgeführt...
  ENDIF
RETURN self  

Edit 13:44: muß natürlich .. .and. nSeconds <=n12Uhr10 ... heißen

Der obige Code wird z.B. täglich zwischen 12:00 und 12:10 ausgeführt. Wenn Du möchtest, dass er dabei genau 1x täglich ausgeführt werden soll, müsstest Du noch weitere Vorkehrungen treffen .

Viele Grüße

Uli

[Manfred]

Hi Uli,

das mit dem SetStartTime verstehe ich aber ganz anders. Wenn man SetStartTime(1000) setzt, dann wird der doch zu der Uhrzeit 1000 Sekunden ab Mitternacht ("00:16:xx") gestartet und nicht 1000 Sekunden nach :start()...

[UliTs]

Hallo Manfred,

Du hast zumindest teilweise recht! Wenn ich mir die Dokumentation anschaue, würde ich SetStartTime(1000) wie folgt deuten:

Sind zum Zeitpunkt von :Start() weniger als 1000 Sekunden seit Mitternacht vergangen, wird ::Execute() noch am gleichen Tag 1000 Sekunden nach Mitternacht ausgeführt, ansonsten erst am nächsten Tag.

Ich habe leider keine Zeit, dass zu testen . Aber wenn Du etwas rausbekommst ...

Uli

[Manfred]

das ist schon so. hat aber nichts mit meinem Problem zu tun, wie ich meine.

[Tom]

Der obige Code wird z.B. täglich zwischen 12:00 und 12:10 ausgeführt.

Nö. Er wird nach 12.00 Uhr einmal pro Minute ausgeführt, nur exakt um 12.10 nicht.

[UliTs]

Code: Alles auswählen

oThread:setStartTime(TimeToSec(Time())+10)
oThread:start("wache")
// jetzt rödelt der Thread herum
oThread:setStartTime(TimeToSec("12:00:00"))

Ich finde schon, dass es etwas mit Deinem Problem zu tun hat. Ist Dein obiger Code überhaupt erlaubt?
a) Du setzt die Startzeit auf +10 Sekunden
b) Du startest den Thread
c) bevor der Thread überhaupt ausgeführt (ausführen nicht mit starten verwechseln ) wurde (nämlich erst 10 Sekunden später) änderst Du setStartTime()
Ist dies erlaubt? Wirkt sich dies bereits auf den gestarteten Thread aus -> er wird erst später um 12:00 Uhr ausgeführt?
Was für einen Sinn macht das?

Ich hatte Dich so verstanden, dass der Thread nach dem Start mehrfach (z.B. täglich um 12:00 Uhr) ausgeführt werden soll ohne das er beendet wird. Und das geht nur mit ::SetIntervall()

Uli

P.S. darf man ::SetIntervall() innerhalb von ::Execute() aufrufen? Dann wird mein Quellcode noch viel einfacher!

[Tom]

Hallo, Uli.

"SetIntervall()" darf man überhaupt nicht aufrufen. Es gibt keine Methode dieses Namens.

Ich kann allerdings keine Beschränkungen für den Aufruf der Methode "SetInterval()" sehen. Warum also auch nicht im Execute()?

[UliTs]

Der obige Code wird z.B. täglich zwischen 12:00 und 12:10 ausgeführt.

Nö. Er wird nach 12.00 Uhr einmal pro Minute ausgeführt, nur exakt um 12.10 nicht.

Was denn jetzt . Erst sagst Du nö und dann mit anderen Worten das Gleiche wie ich .

Aber eine ernste Frage: Wenn die Ausführung des Codes länger als 10 Minuten dauert, wird ::Execute() dann tatsächlich 10x gestartet (je 1x pro Minute) und läuft dann parallel? Ich meine nicht...

Uli

[UliTs]

... der Methode "SetInterval()" ...

SetInterval() ist der Aufruf einer Funktion, ::SetIntervall() der einer Methode
Uli