XX min Timer mit nachfolgender Aktion

[xZise]

Zitat:

Zitat von nastytrouble

Delphi-Quellcode:

[...]

procedure TForm2.Timer1TimerTimer(Sender: TObject);
begin
  Timer1Timer.Enabled := false;
end;

// Kommentar von xZise: Kannst du auch im Deignmodus gemacht (sieht besser aus, wenn der Code länger ist)

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.show;
form2.Hide;
end;

// Kommentar von xZise: o.O Kannst doch alles über Form1 laufen lassen

procedure TForm2.Button2Click(Sender: TObject);
begin
x:=StrToInt(edit1.text);
timer1timer.enabled:=true;
repeat
        begin
        i:=i+1;
        sleep(1000)
        end
until   (i=x);
if (i=x) then ShowMessage(IntToStr(x)+' sec sind vorbei');
end;

// Kommentar von xZise: Denn Timer brauchst du gar nicht mehr

So... damit du nicht verwirrt bist: "Sleep" ist unabhängig und braucht keinen Timer mehr ;)

Und ansonsten wurde das schon alles genannt!

(Tipp: Mache mal folgende kleine Änderungen:

Delphi-Quellcode:

i := i + 1 >>> inc(i)

if (i = x) then [...] >>> Interval auf X setzen (ggf. X * 1000)

[nastytrouble]

naja ich habs ja jetz und mit dem gettickcount verstehe ich das garnet. und das mit der 2. form is numal so ich habe die erste schon "vollprogrammiert" bzw möchte den timer extra haben.

[Corpsman]

Der Gettickcount Befehl gibt dir die Zeit in MS zurück wie lang das Betriebsystem schon gebootet ist. oder so

Ich weis nur das es sehr einfach zu Programmieren ist und sehr genau.

Bei TTimer hab ich immer das gefühl das es sehr ungenau ist und du wolltest was haben das genau ist.

[nastytrouble]

kann mir das mal jmd genauer sagen wie ich das am besten einbaue. es ging ja darum dass ich einstellen konnte wieviele Min vorher ablaufen.

[Corpsman]

OK Ich versuche es mal.

GetTickCount ist ne Function die einen Dword zurückgibt. Schaust du dir die größte Zahl an die Dword darstellen kanns und rechest es um weist du übrigens auch warum win nach 49 Tagen abstürzt ;)

Delphi-Quellcode:

Procedure wait(Time:Integer);
  Var x:Dword;
Begin
  Time := Time * 60; // ich gehe mal davon aus das du Time als Minuten übergibst.
  x := GetTickCount ; // Hohlen der Aktuellen Zeit.
  While x - time < GetTickCount do // Warten, aber ohne alles zu blockieren.
    Application.ProcessMessages; //Diese Zeile gibt Rechenzeit für andere Programmteiele Frei.
End;

Aufrufen tust du das ding einfach an der Codestelel wo du deine Zeit warten willst.

Delphi-Quellcode:

.. // Irgendein Code
Wait(3);// Drei minuten warten
.. // Weiter im Code

[nastytrouble]

tut mir leid aber ich kucke da nur wie ein schwein ins uhrwerk. ich kann nichts damit anfangen. ich verstehe das nich. und ich habe ja schon ne methode gefunden die einigermaßen genau ist und ich auch nachvollziehen kann. danke trozdem.

ps: ich hatte meinen PC noch keine 49 Tage an.^^