4 replies to this topic

[Kurt]

Tem como eu fazer o Timer funcionar como um cronômetro?

[Crocidb]

Crie uma Label com a propriedade Label = 0 e o nome de Label1, que será onde vai mostrar o tempo contar;
crie um timer chamado de Timer1, coloque o intervalo de 1000 (1 segundo), clique 2 vezes e Digite:

Private sub Timer1_Load()
  Label1.Label = Label1.Label + 1
End Sub

Daí a cada 1 Segundo a Label1 irá aumentar um número.
Se vc quiser fazer isso com TextBox, é a mesma coisa, só troca o nome e tb troca o .Label para .Text.
Espero ter ajudado.

[Kurt]

Ateh ai, td bem. soh q eu kero um q o usuario consigua controlar o cronometro, parando, zerando, etc...

[RodrigoBytes]

Ateh ai, td bem. soh q eu kero um q o usuario consigua controlar o cronometro, parando, zerando, etc...

Olá,

Não é dificil basta entender um pouco de logica, veja o código abaixo caso não consiga entender pegue o form pronto.

Dim mtempo As Double
Private Sub cmdiniciar_Click()
tmrcontador.Enabled = True
End Sub

Private Sub cmdparar_Click()
tmrcontador.Enabled = False
tempo = 0
lbltempo.Caption = tempo
End Sub

Private Sub cmdpausar_Click()
tmrcontador.Enabled = False
End Sub

Private Sub tmrcontador_Timer()
mtempo = mtempo + 1
lbltempo.Caption = mtempo
End Sub

Tem um forma anexado a mensagem baixe ele que o cronometro já está pronto.

Um abraço,
Rodrigo de Souza Delphino

Attached Files

•  frmcontador.frm   2.51KB   59 downloads

[Kurt]

Valew Rodrigo! Esse codigo vai ser muito util pra mim!