Hochzählen und dabei gleichzeitig anzeigen

[Almond]

Ich möchte eine eine Variable hochzählen und dabei gleichzeitig in einem Label anzeigen.

Habe das schon mit Timer und Refresh versucht , aber das hat nicht funktioniert

Wie kann ich genau auf jedem Rechner die Zeit bestimmen?


Bestimmt gibt es dafür schon fertige Code, um diese Variablen anzuzeigen.
Aber meine Suche blieb erfolglos.

[Oxmyx]

Delphi-Quellcode:

var
  Sekunden: Integer = 0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(Sekunden);
  Label1.Caption := IntToStr(Sekunden);
end;

Eine gigantische Herausforderung. ;)

[gfjs]

@ Almond

Schaust Du hier: Datum + Zeit:

mfg gfjs

[Almond]

LOL..
ich wollte nicht die Zeit anzeigen...
nein, was ich meinte, ist ...
hochzuzählen und dabei in einer Sekunde 6x die Zahl anzuzeigen.

Daß quasi eine kleine Animation entsteht.

Ich möchte also hochzählen, den Wert 6 x pro Sekunde anzeigen, und die Funktion in der Zwischenzeit wieder an Windows abgeben.


EDIT:
Dazu gibt es threads....
das weiß ich... ich weiß nur gerade nicht mehr, wie die heißen.

[MPirnstill]

Zitat:

Zitat von Almond

LOL..
ich wollte nicht die Zeit anzeigen...
nein, was ich meinte, ist ...
hochzuzählen und dabei in einer Sekunde 6x die Zahl anzuzeigen.

Daß quasi eine kleine Animation entsteht.

Ich möchte also hochzählen, den Wert 6 x pro Sekunde anzeigen, und die Funktion in der Zwischenzeit wieder an Windows abgeben.

Hi Almond!

Dazu mußt du den Label einfach nach dem hochzählen neu zeichnen damit die geänderte Zahl jedes angezeigt wird.

Delphi-Quellcode:

   myLabel.Invalidate;

So müßte es gehen.

Gruß

[Almond]

mhh, ja , dann muß ich aber noch die prozessorabhängige Wiederholungszeit der For-Schleife ermitteln, damit auf allen Rechnern gleich schnell gezählt wird.

hab nämlich nur 800 MHz. Und wenn das einer mit 3 GHz startet, isses ja sofort zuende.

[tobster]

Dafür ist ja im dem Beispiel oben ein Timer verwendet worden: Wenn du dessen Intervall auf 166 stellst hast du ungefähr 6 Aufrufe des Ereignisses in einer Sekunde. Da baust du dann die Anzeige in deinem Label ein.

[Schaedel]

es soll 6 mal in einer sekunde geschehen?
Dann mach doch einfach 1 Sek / 6 -> den Wert in den Timer

im timer 2 Variablen

einmal die Zahl die du mehrmals anzeigen willst
und einmal die Zahl die du bis auf 6 Hochzählst also
if Hochgezählte zahl mod 6 = 0 dann soll er die Zahl die du anzeigen willst um eins hochzählen

[Sascha_OW]

Zitat:

1sek / 6 ^= 167 ms

timer auf bei Interval auf 167 stellen.

Im Timer:

Delphi-Quellcode:

  var sekunde : integer;
      teil_sekunde: real;
   

   begin
     teil_sekunde := 0;
     sekunde := 0;
     inc(teil_sekunde);
     If teil_sekunde >= 6 then begin
       inc(sekunde);
       label1.caption := Inttostr(sekunde);
     end;
     Form1.refresh;
   end;

ich denke zwar nicht das die lösung gerade profi mäßig ist aber so sollte es auch gehen

[Schaedel]

Delphi-Quellcode:

begin 
     teil_sekunde := 0; 
     sekunde := 0; 
     inc(teil_sekunde); 
     If teil_sekunde >= 6 then begin 
       inc(sekunde); 
       label1.caption := Inttostr(sekunde); 
     end; 
     Form1.refresh; 
   end;

Ich stelle mir das anders vor ... das funktioniert glaube ich auch nicht richtig ...

Delphi-Quellcode:

var zahl1 , Sekunde: integer;
begin 
     inc(Zahl1); 
     If (Zahl1 mod  6 = 0 )then begin 
       inc(sekunde); 
       label1.caption := Inttostr(sekunde); 
       inc(Zahl1)
     end else begin 
       label1.caption := Inttostr(sekunde); 
       inc(Zahl1);
     end; 
     Form1.refresh; 
   end;