Thema: Prism countdowntimer in .net

Einzelnen Beitrag anzeigen

Prym

Registriert seit: 20. Feb 2005
108 Beiträge
 
#1

countdowntimer in .net

  Alt 30. Jul 2005, 21:56
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
Kodex & FAQ :: Index:
2.3.3.1 - Bitte nicht vom Thema abschweifen
  Mit Zitat antworten Zitat