Funktion alle 30 Mintuten aufrufen

[Delphi08]

Hey,
Vorweg, ich bin Dalphieanfänger, also bitte kein Fachchinesisch^^ danke :roll: :lol:

Ich will eine Funktion alle 30 Minuten ausführen, aber wie geht dass?
Irgendwie mit nem Counter, aber da hab ich es leider nur geschafft dass es nach 30 Min startet, aber nicht ALLE 30 min.

Vielleicht kann mir einer nen Quelltext basteln, danke :)
Oder mir irgendwie helfen ;)

[DeddyH]

Schau Dir mal TTimer an (ist eine Komponente).

[Forlan]

Delphi-Quellcode:

Timer1.intervall := //Hier 30 min in millisek. angeben

und fertig ;)

[Delphi08]

ah okay :)

danke!

[Delphi08]

Ich hätte noch eine Frage dazu.
Wie kann ich es realisieren, dass ich den Countdown anzeigen lass? Sprich dass da steht "Noch 29 Minuten un 24 Sekunden, bis die Funktion erneut aufgerufen wird"?

danke

[mkinzler]

Den Intervall auf eine Sekunde verringern

[Delphi08]

:wiejetzt:

also ich hab ein timer der alle 30 Mintuten eine Funktion aufruft

und jetzt bräucht ich ja noch nen 2. Timer, der den Interval 1000 hat, oder?
Aber wie sag ich dem 2. Timer jetzt, dass er von 30 Miunten (=1800000) runterzählen soll? Und dies anzeigt?

[mkinzler]

Nein ein Timer reicht. den rufst du alle Sekunde auf. Zeigst die Restzeit an und überprüfst ob die 30 Minuten schon vorbei sind.

[Mikescher]

Der 2. Timer zählt eine Variable hoch und (30*60)-Variable ist dann der Countdown in Sekunden
// Ups mal wieder zu spät

[Delphi08]

Zitat:

Zitat von mkinzler

Nein ein Timer reicht. den rufst du alle Sekunde auf. Zeigst die Restzeit an und überprüfst ob die 30 Minuten schon vorbei sind.

Und wie mach ich sowas? Wie gesagt, kenn mich kaum mit Delphi aus, haben des nur in der Schule, aber noch ned lang. :oops:

[DeddyH]

Ausnahmsweise:

Delphi-Quellcode:

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm10 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    FWert: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

const MaxWert = 1800; //30 Minuten * 60 Sekunden

procedure TForm10.FormCreate(Sender: TObject);
begin
  FWert := MaxWert;
end;

procedure TForm10.Timer1Timer(Sender: TObject);
begin
  dec(FWert);
  if FWert = 0 then
    begin
      //Hier der Aufruf Deiner Funktion
      FWert := MaxWert;
    end;
  Label1.Caption := Format('Noch %d Minute(n) und %d Sekunde(n) bis zum nächsten Aufruf',[FWert div 60, FWert mod 60]);
end;

end.

[Delphi08]

ohaaa :shock:

danke dir! echt klasse :)