Como Fazer Um Temporizador No Visual Basic 6.0

Nesta aula vamos ir passo a passo para mostrar como fazer um Temporizador, ou mais conhecido como contador ou pela versão inglesa (Timer).

OK, comunidade Angotecnix! Fiquem atentos e depois desta dica, esperamos que fiques satisfeito e continua a praticar e visitando o nosso blog para mais conteúdos e dicas.

Vamos começar? Sim, vamos.

Primeiro Passo.
Abre o Visual Basic 6.0 e escolhe Standard.EXE o primeiro formato que aparece na lista dos formatos e dá um OK, em seguida aparece o teu Ambiente de desenvolvimento.
Vê os exemplos abaixo

Exemplo 1. 

Exemplo 2.

Passo 2.
No lado esquerdo do ecrã ou ambiente de desenvolvimento, vai nas propriedades (properties) e troca o nome do Caption para ''Temporizador.'' Vê a imagem abaixo exemplo 3.

Exemplo 3.

• Inseri um Label no teu programa
• Inseri três comandos (ComamandButton)
• Inseri um Timer

Vê onde obter essas ferramentas no Exemplo 4.

E o Teu programa deverá parecer como o Exemplo 5.

Exemplo 4.

Exemplo 5.

• Seleciona o Label com um click, agora você deverá trocar o Caption do Label 1 nas propriedades para ''0.00,'' se for necessário também podes alterar a fonte nas propriedades. Vê onde encontrar a propriedade no Exemplo 3.
• Seleciona o command1 e modifica também o Caption de Command 1 para ''Iniciar,'' e repete o mesmo com o command 2 e o 3. Como por exemplo, você deve ter um comando para Inicia, um para Parar e a ultima para Restaurar a contagem. 
• Dá um click no Timer vai na propriedade também e modifica só o Enabled para false, o valor do Interval para 1. Vê a imagem abaixo: 
  
  

  

  Exemplo 6.

E o teu programa deverá parecer como o Exemplo 7.

Exemplo 7

Agora vamos começar a escrever os nosso códigos:
Dá dois clicks no Botão Iniciar Escreve o seguinte código:

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Volta na tua aplicação Repete o mesmo processo no Botão Parar e escreve o seguinte código:

Private Sub Command2_Click()

    Timer1.Enabled = False

End Sub

Volta na tua aplicação e faz a mesma coisa no botão Restaurar e escreve o seguinte:

Private Sub Command3_Click()

    Timer1.Enabled = False

    Label1.Caption = 0#

End Sub

Volta na tua aplicação e dá dois clicks no Timer e escreve o seguinte código:

Private Sub Timer1_Timer()

    Label1.Caption = Label1.Caption + 0.01

End Sub

Vê como a lista de códigos deverão aparecer no exemplo 8.

Exemplo 8.

E volta na tua aplicação e testa: