while schleife all 10 interationen mit einer Pause (asu TIMER)

[wschrabi]

Hallo leute,
ich habe eine Repeat ... until loop und möchte alle 10 Durchläufe eine Pause von 3 sec machen. die Pause möchte ich via timer definieren.
Hat wer ein Bsp oder Rat wie man das machen kann?

DANKE
mfg
Walter

[Klaus01]

Guten Morgen

durchtlauf mod 10 = 0 dann Pause

Grüße
Klaus

[himitsu]

Was ist denn so schwer daran?
* Zeit messen und speichern
* warten bis aktuelle Zeit zu gemessener Zeit mehr/mindestens 10 Sekunden enspricht
** dann die neue aktuelle Zeit speichern

oder
* Zeit Messen + 10 Sekunden und speichern
* warten bis aktuelle Zeit zu gemessener kleiner als gespeicherte
** dann die neue aktuelle Zeit + 10 Sekunden speichern

Delphi-Quellcode:

T := GetTickCount;  // oder eine andere Zeitfunktion
while True do begin
  if Integer(GetTickCount - T) > 10 * MSecPerSec then begin  // Integer wegen eventuellem Überlauf, wenn der Rechner mehr als 48 Tage läuft
    T := GetTickCount;
    Sleep(10 * MSecPerSec);
  end; 
  ...
end;

[KodeZwerg]

Falls das Zielsystem Windows ist und der Umgang mit Delphi's Timer unerwünscht ist, wie wäre es mit dem Windows Timer? Per SetTimer() easy realisierbar.

[Jasocul]

Ich verstehe nicht, wofür der Timer benötigt wird, wenn klar ist, dass alle 10 Durchläufe pausiert werden soll.
Die Länge der Pause lässt sich auch beim Sleep definieren. Dafür benötigt man keinen Timer.

[KodeZwerg]

Zitat von Jasocul:

Ich verstehe nicht, wofür der Timer benötigt wird

Zitat von wschrabi:

die Pause möchte ich via timer definieren

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

[mkinzler]

Zitat:

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

Nein, tut es nicht (mehr)

[haentschman]

Zitat:

Nein, tut es nicht (mehr)

...seit wann?

[Jasocul]

@KodeZwerg:
Dass Sleep den Prozess einfriert, weiß ich.

Zitat von wschrabi:

... möchte alle 10 Durchläufe eine Pause von 3 sec machen

Zitat von wschrabi:

die Pause möchte ich via timer definieren.

Alle 10 Durchläufe oder mit Timer? Oder viellecht beides? Also zwei Pausen? Oder soll der Timer dafür sorgen, dass die Pause alle 10 Durchläufe gemacht wird?

Wenn in der Schleife kein Application.ProcessMessages, kommt ein Timer sowieso nicht zum Zug, wenn ich mich richtig erinnere. Ein Timer ist schließlich kein Thread.

Ich denke, dass wir hier mehr Input von Walter benötigen.

[KodeZwerg]

Zitat von mkinzler:

Zitat:

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

Nein, tut es nicht (mehr)

hmpf.... erst mit delphi 10.4? hab ja gerade erst mit 10.3.3 dieses "unendlicher progressbar" demo gemacht und sleep() als einfrierer missbraucht um den mainthread für so und so lange unfähig zu machen.
wenn das so ist, nehme ich meine aussage natürlich zurück und entschuldige mich für diese aussage.