[Tutorial] Cronometro Simples [DELPHI]

[~ Heatlex. 11]

{esta dica é para criarmos um cronometro simples usando uma função para habilitar e desabilitar , pode ser incrementada de acordo com a necessidade que o desenvolvedor tiver para sua aplicação }

unit Unit1;

 

interface

 

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,StdCtrls;

 

type

TForm1=class(TForm)

Timer1:TTimer;

Label1:TLabel;

Button1:TButton;

Edit1:TEdit;

procedure Timer1Timer(Sender:TObject);

procedure Button1Click(Sender:TObject);

procedure FormCreate(Sender:TObject);

private

{Private declarations }

{Observação : não se pode esquecer de fazer esta declaração pois aqui especificamos o tipo de dado variavel a ser usado }

TimeOld:TDateTime;

INICIO :TDateTime;

 

public

{Public declarations }

end;

 

var

Form1:TForm1;

 

implementation

 

{$R *.dfm}

 

{aqui estamos declarando o formato que sera apresentado dentro do componente label que estará recebendo os dados computados pelo cronometro, aqui podemos observar o uso da variavel declarada acima }

procedure TForm1.Timer1Timer(Sender:TObject);

begin

Label1.Caption:=FormatDateTime('HH:MM:SS:ZZZ', INICIO + NOW -TimeOld);

end;

{Aqui estamos declarando que a variavel "INICIO" estará recebendo um dado do tipo String para uma um tempo que está sendo mostrado dentro doEdit1, tambem é possivel notar que conforme o botão é ativo seu Caption muda e sua função tambem , fazend0 com que o mesmo botão que ativa o timer faz o processo inverso desativando o mesmo }

procedure TForm1.Button1Click(Sender:TObject);

Begin

INICIO :=StrToDateTime(EDIT1.Text);

ifButton1.Caption='Ativar'then

begin

TimeOld:=Now;

Timer1.Enabled:=True;

Button1.Caption:='Desativar';

end

else

begin

Timer1.Enabled:=False;

Button1.Caption:='Ativar';

end;

 

end;

 

procedure TForm1.FormCreate(Sender:TObject);

begin

Timer1.Enabled:=false;

end;

 

end.