Como programar o controle Timer no VB.NET

No Visual Basic .NET, o controle Timer permite gerenciar eventos recorrentes do seu aplicativo em tempo de execução. Este controle tem algumas propriedades e métodos específicos. Sua propriedade mais importante é “Intervalo” (intervalo), que especifica com que frequência você deve executar seu código. Você precisa especificar um valor para Intervalo em milissegundos; 1.000 milissegundos é igual a um segundo. Algumas das ações que você pode fazer com o controle Timer são realizar uma contagem regressiva, alterar dinamicamente os valores das propriedades de outros controles e manter o controle constante de alguma outra parte do aplicativo.

Passo 1

Abra um projeto Visual Basic. Clique duas vezes no controle “Timer” para adicionar Timer1 ao projeto. Clique duas vezes no controle “Label” para adicionar Label1 ao formulário. Altere a propriedade “Enabled” do controle Timer1 para “True” (true) e a propriedade “Interval” (interval) para 1000.

Etapa 2

Pressione “F7” para abrir a janela de código e digite o seguinte:

Tempo não ofuscante como inteiro = 10

Isso criará uma variável e a iniciará com um valor.

Etapa 3

Abra a sub-rotina Timer1_Tick e digite o seguinte código:

If time> 0 Então time = time – 1 Label1.Text = time Else Timer1.Enabled = False End If

Quando o programa é executado, o Timer diminui a variável de tempo uma a uma a cada segundo e exibe o valor no rótulo até que a contagem atinja 0. Nesse momento, o Timer será desativado.

Etapa 4

Pressione “Shift” e “F7” para abrir a janela de design. Clique duas vezes no controle Timer para adicionar o Timer2 ao projeto. Altere sua propriedade de “Ativado” para “Verdadeiro” e sua propriedade “Intervalo” para 100. Em seguida, clique duas vezes nele para abrir a sub-rotina Timer2_Tick. Escreva o seguinte código:

If (Label1.Left + Label1.Width)> Me.Width Then Label1.Left = Me.Left – 100 End If Label1.Left = Label1.Left + 5

Com esse código, o rótulo rolará horizontalmente pela tela, movendo cinco pixels a cada décimo de segundo. Quando o rótulo atinge a extrema direita do formulário, ele pula para a extrema esquerda e começa a rolar horizontalmente novamente.

Etapa 5

Pressione “Shift” e “F7” para abrir a janela de design. Clique duas vezes no Timer para adicionar o Timer3 ao projeto. Altere a propriedade “Enabled” para “True” e a propriedade “Interval” para 500. Clique duas vezes no controle “TextBox” (caixa de texto) para adicionar TextBox1 ao projeto. Clique duas vezes no projeto Timer3 para abrir a sub-rotina Timer3_Tick. Escreva o seguinte código:

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

A cada meio segundo, o timer altera o texto inteiro do TextBox1 para letras maiúsculas. Por padrão, quando o Timer faz essa alteração, o cursor retorna ao início da caixa de texto. A segunda linha de código impede que isso aconteça.

Referências

 

Você pode estar interessado:

Deixe um comentário