[DELPHI] Fazendo um cronômetro, com minutos e horas

[Leonardodag 2]

Bem o '[L]exus~ fez um tuto disso so que pra vb6, mas aqui ta um que eu mesmo fiz pra delphi:

 

O que vc vai precisar:

1 form (botei so de sacanagem xD)

1 timer (paleta system)

1 label (tenho mesmo que falar? Mas, caso alguem nao saiba, na aba standard.)

2 buttons (aba standard)

 

Nas properties do timer, mude o enabled para false, o name para Timer1 e o interval em 1000 (1000ms, 1 segundo)

 

no label, coloque a caption como 0:0:0.

 

clique duas vezes no timer e coloque este código:

 

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

• Entre
• ou
• Cadastre-se

Traduzindo:

ele ira aumentar um segundo, caso os segundos sejam 60 ele aumentara os minutos em 1, o mesmo com as horas. Depois ele bota tudo no label1.

 

no button1, mude o caption para Ligar, o name para button1, de 2 cliques nele e coloque:

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

• Entre
• ou
• Cadastre-se

[4kg 0]

Muito bom cara.

E tambem simples e facil mais para os iniciante seh sempre bom postar para eles aprenderem neh ;D :)

ia ficar bom tambem se vc colocasse print neh mais tudo bem bom trabalho

[Surfistinha£ 20]

A isso e muito bom e simples e muito util pra iniciantes e avançados muito bom mesmo obrigado

 

Vlw

[bidoow 0]

declare as variáveis seg, min, hrs como string (coloque 'seg, min, hrs : string;' sem as aspas abaixo de 'var'.

 

tá errado, tem que declara como integer.

 

var

seg, min, hrs : integer;

Form1: TForm1;

 

para ficar mais legal cria um button e coloca

 

Timer1.enabled:=True

 

vlw!

[matheusguerra 3]

primeiro deixe o timer, enabled = false

coloca um buttom e esse codigo nele:

Timer1.enabled:=True

 

assim ele só vai ligar quando vc clicar no buttom :D ^^

[bidoow 0]

É ta certo, me esqueçi de falar ! :D

[-allucard!. 0]

vc tambem pode adicionar um botao com o capition parar e coloca o codigo nele

 

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

• Entre
• ou
• Cadastre-se

 

aew ele para = )

[Surfistinha£ 20]

Agora que eu vi que ta errado

 

esqueceu de declarar a var

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

• Entre
• ou
• Cadastre-se

 

 

var

seg, min, hrs : integer;

Form1: TForm1;

begin

if seg = 60 then

seg:=0;

inc(min);

end;

[Leonardodag 2]

@bidoow mal agora q fui ver q tava como string :D vlw!

 

@surfistinha n precisa declarar o form1 na var, ele ja é declarado la no comeco do codigo!

[matheusguerra 3]

vc tem que coloca outro buttom assim:

Timer1.enabled:=False

(como o -allucard!.Disse)

pq sinão o cronometro não vai desliga

[Leonardodag 2]

eu falei como fazer um cronometro, nao disse que ele ia parar :D

 

ta mas vo botar...