Cronometro

[FRANCISCO BRITO]

OLA PESSOAL beleza....

É O SEGUINTE DEI UMA PESQUIZADA SOBRE COMO FAZER UM CRONOMETRO

E ACHEI AQUI NO FORUM UM EXEMPLO DO GRAYMALKIN

EU QUERIA COMPLETA-LO COM UM BOTÃO "START" "STOP" "ZERADOR" MAS NÃO CONSEGUI alguém TEM ALGUMA DICA AI ????

Static tempo As Long

tempo = tempo + 1

Label1.Caption = TimeSerial(0, 0, tempo)

ABRAÇOS ....FRANCISCO

[Decio]

você pode mudar a propriedade do timer para Timer1.Enabled = False, dai você cria o botão start com o código Timer1.Enabled = True , para iniciar o timer.

[FRANCISCO BRITO]

OK ....DECIO ......

EU já TINHA CONSEGUINDO....... "START" E "STOP" SÓ não CONSEGUI FAZER O "ZERADOR" DE TEMPO ...PARA DEPOIS DAR O START

TIPO APERTO "START" COMEÇA "STOP" .... PARA "START" DE NOVO ELE CONTINUA DE OND PAROU ...

O PROBLEMA MAIOR ESTÁ SENDO O ZERADOR ...

ABRAÇOS ..... FRANCISCO

[FRANCISCO BRITO]

AI PESSOAL CONSEGUI.....

O PROBLEMA ERA QUE A VARIAVEL ESTAVA DECLARADA DENTRO DO BOTÃO START ...... FOI SÓ MUDAR PARA GENERAL....... ASSIM O BOTAO ZERADOR CONSEGUE ZERAR A VARIAVEL

VALEU A ATENÇÃO

VAI AI COMO FICOU ....SE alguém PRECISAR...

GENERAL DECLARATION

Dim tempo As Long

Private Sub START_Click()

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub STOP_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

tempo = tempo + 1

Label1.Caption = TimeSerial(0, 0, tempo)

End Sub

Private Sub ZERADOR_Click()

Timer1.Interval = 0

tempo = 0

Timer1 = 0

Label1.Caption = TimeSerial(0, 0, tempo)

End Sub

FALOW .....FRANCISCO