Um timer em VB6

Um cronômetro é uma ferramenta que ... oh bem, eu não acho que é apropriado para explicar o que um cronômetro em vez devem entender como fazer um 6 Visual Basic.

As funções são muito simples: um botão Iniciar que irá parar o cronômetro será iniciado em breve, contando os segundos do tempo, entretanto.

Ao clicar no botão novamente enquanto sua legenda é Stop, o relógio vai reiniciar-se e parar.

Criamos um novo EXE na nossa cópia do VB6 e criar um formulário, adicionando um rótulo, um comando e um temporizador:

Atribuir o rótulo tem o nome, o nome do controle de botão e atribuir o nome para o tempo timer.

Nós duplo clique no cronômetro e adicione o seguinte código:

 Tempo_Timer Sub privada ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Basta ir para aumentar o valor do rótulo de uma unidade.

Quanto mais complexo o código ser aplicado ao botão:

 Private Sub comando_Click ()



    



 Se comando.Caption = "Iniciar" Então



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Chamada tempo_Timer



        



 tempo.Interval = 1000



    



 Outro



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Nós verificamos que o seu primeiro é Iniciar capition, caso em que nós vamos, em ordem:

• Ativar o timer para executar;
• renomear a legenda do botão do início ao fim;
• para chamar a função que incrementa o contador;
• para definir um segundo (1000) correndo com temporizador de intervalo.

Neste ponto, o relógio se foi e ficará da seguinte forma:

Clique novamente para Stop, em tempo de execução, o programa vai entrar no bloco Else condicional, e realizar as seguintes funções:

• desabilita o timer;
• como alterar a legenda do botão de Parar para Start;
• para parar o intervalo;
• para redefinir o valor cronômetro.