[TUTORIAL] Criar cronometro em Delphi

[_Luckee_ 0]

Eae Pessoal, esse é meu primeiro tuto e post aqui no WC (o primeiro de muitos espero :inocente:).Como o próprio titulo diz, vou ensinar a fazer um simples cronometro no Delphi.

O cronometro terá os botões principais para iniciar, pausar e marcar um tempo, como se fosse aqueles usados para marcar tempo das voltas de atletas.

 

1: Inicie um novo projeto e coloque 4 buttons.Troque a caption de cada um deixando:

1:Iniciar

2:Pausar - Mude a propriedade enabled desse botão para "false".

3:Marcar - Mude a propriedade enabled desse botão para "false".

4:Zerar

 

Coloque um listbox, que será responsavel por mostrar os tempos marcados e renomeie ele para "lista".

Coloque uma label e mude a propriedade name para "time".

Coloque tambem um timer, mudando a propriedade name para "relogio" e trocando seu intervalo, colocando "1" ao invés de "1000".Isso significa que ao invés de mudar a caption a cada 1 segundo mudamos a cada 1 milésimo.

 

Antes de ir aos códigos, adicione isto depois de "Form1: TForm1;" que fica em cima de "implementation":

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora vamos ao códigos :risada: :

 

Clique duas vezes sobre o timer e adicione isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Clique duas vezes sobre o botão Iniciar e adicione isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Clique duas vezes sobre o botão Pausar e adicione isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Clique duas vezes sobre o botão Marcar e adicione isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Clique duas vezes sobre o botão Zerar e adicione isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E pronto vcs já tem um cronometro feito!

Pessoal em breve coloco o programinha já feito.

 

Espero que tenham gostado!

 

Fuizz!

[Souren 0]

Bom já faz um tempinho que não programo em Delphi e pretendo voltar a programar amanha , farei seu tutorial e verei o resultado.

Por isso não posso falar do funcionamento , mas quanto a formatação , esta apropriada :D

 

Obrigado por postar este tutorial amigo.

[[Adm]AnnonymousHacker 0]

Me ajuda Quando eu Termino Tudo de Fazer da um erro na parte desses codico > time.Caption:= FormatDateTime('HH:MM:SS:ZZZ', ini + now -temp); oq eu faço , oque ta errado ? add skype : fernandozikaaa