Mega Code Archive
Basit bir kronometre
<![CDATA[
'Programı Visual Basic'te yapılmış şekliyle gördüm ve
Delphi'ye uyarladım'.
{Program içinde kullandığım ActiveLabel isimli nesneler
component'tir.Siz onlar yerine isterseniz Edit kutuları
yada standart Label nesneleri kullanın...}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActiveLabel;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ActiveLabel1: TActiveLabel;
ActiveLabel2: TActiveLabel;
ActiveLabel3: TActiveLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
dtStart, dtEnd, dtElp : TDateTime;
public
{ Public declarations }
end;
var
Form1: TForm1;
Hour, Min, Sec, MSec : Word;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin //Buton 1 Süreyi başlatıyor ve zamanı 1.Label nesnesine yazıyor.
Button1.Enabled := False ;
Button2.Enabled := True ;
Button3.Enabled := False ;
ActiveLabel2.Caption := '';
ActiveLabel3.Caption := '';
dtStart := Now;
ActiveLabel1.Caption := TimeToStr( dtStart );
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //Buton 2 Süreyi durduruyor ve zamanı 2.Label nesnesine yazıyor.
Button1.Enabled := False ;
Button2.Enabled := False ;
Button3.Enabled := True ;
dtEnd := Now;
ActiveLabel2.Caption := TimeToStr( dtEnd );
end;
procedure TForm1.Button3Click(Sender: TObject);
begin //Buton 3 Geçen süreyi hesaplıyor ve zamanı 3.Label nesnesine yazıyor.
Button1.Enabled := True ;
Button2.Enabled := False ;
Button3.Enabled := False ;
dtElp := dtEnd - dtStart;
DecodeTime( dtElp, Hour, Min, Sec, MSec );
ActiveLabel3.Caption := IntToStr( Hour * 60 + Min ) + ':' +
IntToStr( Sec ) + '.' + IntToStr( MSec );
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Enabled := False ;
Button3.Enabled := False ;
end;
end.
]]>