10 Minuten Wartezeit

[Kompon Ente]

Hallo,

ich möchte meinem Timer 10 Minuten Wartezeit zuweisen, d.h. nach 10 Minuten soll eine Prozedur sich wiederholen. Allerdings weiß ich nicht, wie ich den Timer setzen soll.

Geht's vielleicht auch damit

Delphi-Quellcode:

procedure warte(aMillisecs: Cardinal);
var jetzt: Cardinal;
begin
  jetzt := GetTickCount
  while GetTickCount < (jetzt + aMillsecs) do
    Application.ProcessMessages;
end;

irgendwie?

[barf00s]

Timer1.Interval := 600000; // = 1000ms = 1s * 60s = 1min * 10 = 10min

[Kompon Ente]

Schon klar, soweit war ich auch schon.

Aber wie frage ich das dann ab?

Delphi-Quellcode:

if Timer.Interval = 600000 then
  // ...

Ist das so korrekt?

[malo]

Zitat:

Zitat von Kompon Ente

Schon klar, soweit war ich auch schon.

Aber wie frage ich das dann ab?

Delphi-Quellcode:

if Timer.Interval = 600000 then
  // ...

Ist das so korrekt?

Nein. Nach 600000ms wird das OnTimer-Event ausgelöst. Du musst also nur den entsprechenden Code ins OnTimer schreiben.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Klatsch und Tratsch" nach "Object-Pascal / Delphi-Language" verschoben.
Bitte achte doch etwas mehr auf die Sparten in der Fragen gepostet werden.

[Kompon Ente]

Okay, und wie frage ich nun ab, wann der Timer bei 600000 Millisekunden ist?

[jensw_2000]

Der Timer läuft von 60000 rückwärts, bei 0 wird onTimer ausgelöst. Dann steht der Timer wieder bei 60000 und läuft wieder rückwärts usw.

[Bart82]

Nach 600000 ms wird automatisch das OnTimer-Event automatisch aufgerufen, da musst du dich nicht drum kümmern.

Sch... zu langsam!

[Daniel]

@Janosch: Eine dringende Bitte: Lies Dir die Hilfe zu TTimer durch. :roll:

Alle X Millisekunden (in Deinem Fall X = 600000) löst der Timer sein OnTimer-Ereignis aus und führt den Code aus, der mit diesem Ereignis verbunden ist. Und das macht der Timer genau so lange, wie seine Eigenschaft 'enabled' auf 'true' steht.

[Kompon Ente]

Es soll aber nicht das OnTimer-Event aufgerufen werden, sondern eine andere Prozedur. :|

[Sharky]

Zitat:

Zitat von Kompon Ente

Es soll aber nicht das OnTimer-Event aufgerufen werden, sondern eine andere Prozedur. :|

:cry:
Und wer hindert dich daran diese Procedure im OnTimer-Event aufzurufen?

[Daniel]

Wenn Du die Timer-Komponente verwendest, so wird zwangsläufig das OnTimer-Ereignis aufgerufen. Darum wirst Du nicht umhin kommen.

Jetzt eine Aufgabe für Dich:

Delphi-Quellcode:

Procedure Deine_Prozedur_die_aufgerufen_werden_soll;
begin
...
end;


Procedure TForm1.Timer1OnTimer( Sender : TObject )
begin

  //
  //  Hierhin verzeigt der Timer alle X Millisekunden
  // ... welchen Prozedur-Aufruf könnte man hier einfügen?
  //

end;

[edit]
Du solltest Dich dringend mit weiteren Grundlagen von Delphi befassen: http://www.dsdt.info/grundlagen/.
[/edit]

[barf00s]

www.delphibasics.co.uk ... - ich werds wohl wieder in meine signatur reinbaun :)

[Kompon Ente]

:lol:

Sorry, es ist noch so früh am Morgen.

Ich war fest davon überzeugt, dass ich's extra aufrufen muss. Natürlich muss es ins OnTimer-Event!

Sorry 4 Blödheit!

[shmia]

Zitat:

Zitat von Kompon Ente

ich möchte meinem Timer 10 Minuten Wartezeit zuweisen, d.h. nach 10 Minuten soll eine Prozedur sich wiederholen. Allerdings weiß ich nicht, wie ich den Timer setzen soll.

Dann wäre es sicher nützlich, einen ProgressBar mit Countdown anzuzeigen.
Ausserdem wäre ein Start & Stop Knopf sinnvoll.
Im Anhang ist das Grundgerüst (Demo PeriodicAction) dafür.