AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Kann der PC net Zählen??

Ein Thema von TheMiller · begonnen am 29. Jun 2003 · letzter Beitrag vom 3. Jul 2003
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11
  Alt 30. Jun 2003, 09:18
Noch besser. Anstatt sleep, das benutzen:
Delphi-Quellcode:
procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#12
  Alt 30. Jun 2003, 21:43
Versuchs mal so:
(so mach ich meine Countdowns)
Delphi-Quellcode:
var
  Form1: TForm1;
  counter: Integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Countdown'+IntToStr(counter);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
counter:=300;
end;

end.
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#13
  Alt 2. Jul 2003, 10:14
Hallo DJ-SPM,

konntest du etwas damit anfangen??
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#14
  Alt 2. Jul 2003, 17:14
Hi,

also ich habe das Problem so gelöst, dass ich eine Progressbar implementiert habe und wenn diese auf eine bestimmte Position kommt, der Monitor in den Standby - Modus wechselt. Denn das Flackern in Label1.Caption war nicht so schön

Aber trotzdem danke!!!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#15
  Alt 2. Jul 2003, 18:57
Moment. Hab eich das richtig verstanden? Du schaltest den Monitor in den Standby-Modus nur weil du das mit dem Flackern des Labels nicht in den Griffbekommen hast?

Das darf doch nicht war sein. Warum machst du an der Stelle nicht gleich einen Reboot?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#16
  Alt 2. Jul 2003, 19:03
Zitat von Luckie:
Moment. Hab eich das richtig verstanden? Du schaltest den Monitor in den Standby-Modus nur weil du das mit dem Flackern des Labels nicht in den Griffbekommen hast?
Ziemlich Bitter oder? *stundenlangeskopfschütteln*

Wiedem auch sei, das Thema mit dem Flackern hatten wir vor ein paar Monaten schonmal, also, wer suchet der findet!

Grüsse, Daniel
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#17
  Alt 3. Jul 2003, 20:42
Nein,

ich hatte es so gedacht, dass Label1.Caption irgendwann auf 0 runtergezählt hat und dann der Monitor in den Standby-Mode geht (eine Art Countdown). Aber mir ist dann eingefallen, dass das mir der Progressbar eleganter aussieht...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz