O controle Timer no Visual Basic é um dispositivo muito útil que envia um pulso para uma aplicação em intervalos pré- determinados. O controle pode exibir atualizações de quanto tempo uma instalação está tomando por contagem regressiva , monitorar o que o usuário está fazendo ou executar outras rotinas , enquanto um programa principal está em execução. Se Visual Basic Express, que é um programa de NET , é envolvido algumas das palavras de código serão diferentes . Coisas que você precisa
Visual Basic
Visualizar Mais instruções
1
Abra o Visual Basic e selecione como "New Project " a " Standard EXE ". Clique em " Arquivo" e "Salvar como form1 " e dar-lhe um nome como " timerproject ". Em seguida, clique em "Salvar projeto como" o nome " Projeto Timer. " Visual Basic aplica as extensões de arquivo corretas por padrão.
2
Altere a propriedade " Caption " no painel Propriedades no canto inferior direito "Controle Timer. "
3
Coloque um controle Timer no formulário clicando duas vezes o controle " timer " , que aparece como um ícone de relógio , na caixa de ferramentas no painel à esquerda. O controle não será visível quando o programa é executado . Para maior clareza , clique e arraste-o para um canto inferior do formulário.
4
Coloque uma etiqueta no formulário clicando duas vezes o controle "Rótulo" , representado por uma grande letra "A" na caixa de ferramentas. Clique no botão " Etiqueta " agora no formulário, e em seguida, no painel Propriedades alterar o nome do rótulo de "Clock" e apagar as letras na linha de legenda. Repita este procedimento para uma segunda etiqueta com o nome " saudação ". Altere a largura para ambos os rótulos para 2000.
5
Clique em Exibir > Código no topo para abrir uma janela de código. Escreva o código para um evento de timer. Este é apenas um exemplo, para controlar o seu temporizador desejado usa , é necessário modificar o código para fazer o que você quer que ele faça : Private Sub Form_Load () Timer1.Interval = 5000 ' números representam milissegundos para que 5000 é igual a uma vez a cada 5 segundos; mudança isso desejado periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer () Dim strGreeting1 , strGreeting2 , strTime Como StringstrTime = Hora $ Clock.Caption = Hora $ strGreeting = "Olá ! " Se Mid $ ( strTime , 7, 1) = "1" ThenGreeting . Caption = strGreetingElse : Greeting.Caption = " " End Sub IfEnd
6
Teste a codificação com a tecla " F5" . O tempo atual deve exibir e atualizar a cada 5 segundos. Quando o primeiro dígito do display segundos cai entre 10 e 19 , as palavras " Olá ! " será exibido e , em seguida, desaparecer por 50 segundos . Se nenhum desses eventos ocorrer, verifique o código no Passo Cinco de precisão.
7
transformar isso em um programa final clicando em Arquivo> Criar Temporizador Project.exe.Run o programa de onde você salvou.