Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Prism countdowntimer in .net (https://www.delphipraxis.net/50739-countdowntimer-net.html)

Prym 30. Jul 2005 20:56


countdowntimer in .net
 
delphi win32 code
Delphi-Quellcode:
var
  startzeit : TTime;
  countdown : TTime;

procedure TForm1.Button1Click(Sender: TObject);
var
  stunden : Integer;
  minuten : Integer;
  sekunden : Integer;
begin
  stunden := strtoint(edit1.Text);
  minuten := strtoint(edit2.Text);
  sekunden := strtoint(edit3.Text);
  countdown := EncodeTime (stunden,minuten,sekunden,1);
  startzeit := Now;
  Timer1.Enabled :=not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  jetzt : TTime ;
begin
  jetzt := countdown + (startzeit-now);
  if (jetzt > 0 ) then
  begin
  edit1.Text:= FormatDateTime('hh',jetzt);
  edit2.Text:= FormatDateTime('nn',jetzt);
  edit3.Text:= FormatDateTime('ss',jetzt);
    //Label1.Caption := FormatDateTime ('hh:nn:ss',jetzt)
  end
  else
  begin
  edit1.Text:= '00';
  edit2.Text:= '00';
  edit3.Text:= '00';
  beep;
  Timer1.Enabled:=false;
  Timer2.Enabled :=true;
  end;

end;
das ist der delphi 32 code den ich mir mit der hilfe der dp erarbeitet habe geht auch alles wunderbar nur jetzt will ich das in .net das ist soweit nicht schwer nur die stellen

Delphi-Quellcode:
  countdown := EncodeTime (stunden,minuten,sekunden,1);
  startzeit := Now;
und
Delphi-Quellcode:
  jetzt := countdown + (startzeit-now);
.....
  edit1.Text:= FormatDateTime('hh',jetzt);
  edit2.Text:= FormatDateTime('nn',jetzt);
  edit3.Text:= FormatDateTime('ss',jetzt);
sind schwrere weil es ja EncodeTime und FormatDateTime in .net nichtmehr gibt in der delphi hilfe habe ich auchschon unter filter .net gesucht aber nix gefunden vieleicht könntet ihr mir weiterhelfen

Prym 30. Jul 2005 21:58

Re: countdowntimer in .net
 
das sollte in sonstige fragen in delphi also bitte verschieben und tut mir leid das das hier gelandet ist

Robert_G 30. Jul 2005 22:21

Re: countdowntimer in .net
 
Zitat:

Zitat von Prym
sind schwrere weil es ja EncodeTime und FormatDateTime in .net nichtmehr gibt in der delphi hilfe habe ich auchschon unter filter .net gesucht aber nix gefunden vieleicht könntet ihr mir weiterhelfen

Probiere mal im Code editor DateTime/TimeSpan gefolgt von einem Punkt zu tippen. Wenn du über Parse stolperst, findest du in der .Net Doku alles was du brauchst.

Kleiner Tip: Wenn du in .Net etwas suchst, suche zuerst nach der Klasse oder dem Typen. Wenn du dir deren Member anschaust oder die Beispiele zu dem Typen wird einem oft vieles klarer. ;)

DP-Maintenance 31. Jul 2005 00:31

DP-Maintenance
 
Dieses Thema wurde von "Daniel" von "Multimedia" nach "Windows API / MS.NET Framework API" verschoben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz