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