Criando um Timer
Desta vez quero mostrar como criar um temporizador em Visual Basic. Componente Net usando o timer.
Bem, não pretendo que este é um passo a passo exemplo mostrando cada uma das propriedades modificadas de cada controle, pelo contrário, quero me concentrar sobre a funcionalidade do temporizador e eu vou deixar você design. Apenas mostrar-lhes que eu fiz.
Os controles utilizados são: um formulário, três botões e duas etiquetas. Nós também precisamos adicionar um Timer para o formulário. Ou mês seria mais parecido com isto: 
Bem, a primeira coisa que vai definir quatro variáveis privadas ao nível da forma.
Hora privados As Integer = 0 Minutos privada As Integer = 0 Segundo privada As Integer = 0 Milissegundos privada As Integer = 0
O componente Timer deve ter sua propriedade Interval para 100.
Vamos criar uma função para exibir no label1 ao longo do tempo:
ImprimirHorario Sub ()
Hora.ToString.PadLeft Label1.Text = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
No caso de escala de timer componente é onde toda a lógica do cronômetro. Copie o seguinte código lá:
+ = 1 milissegundo Se milissegundo = 9 Então milissegundo = 0 segundo + = 1 Se os segundos = 59 Então segundo = 0 minutos + = 1 Se, em seguida = 59 minutos minutos = 0 + = 1 hora End If End If End If imprimirHorario ()
Bem, basta subtrair o código de três botões. O botão de início ativa o timer:
Timer1.Enabled = True
O botão de Pause pára o cronômetro:
Timer1.Enabled = False
E o botão de reset para redefinir os valores das variáveis:
tempo = 0 minutos = 0 segundo = 0 milissegundo = 0 imprimirHorario ()
Espero que este exemplo não será particularmente complicado e útil para eles. Finalmente deixo-vos um instantâneo da operação do temporizador: 
30 Responses to "Como criar um cronômetro"
Comentário
Informação Bitacoras.com ...
Taxa em Bitacoras.com: Desta vez eu quero mostrar como criar um timer no componente visual basic Net usando o timer.. Bem, não pretendo que este é um passo a passo exemplo mostrando cada uma das propriedades modificadas de ...
Muito obrigado foi muito útil para mim apenas começar. Net e bem descritos.
Bye.
Exemplos são muito bons ... e obrigado por conhecimentos que contribuam para q tiens qya recentemente começou ...
Olá!
px muito obrigado foi uma grande ajuda o seu código é mais servido me salvou a minha vida ... lol
Não muito trabalho, graças ...
bye bye kuidate ...
Obrigado homem muito ... sem complicações este exemplo, muito muito bom, Deus te ajude como você ...
Contribuição muito boa é assim que eu felicitá-lo!
muito obrigado me ajudou muito
O temporizador é bom só não mente o tempo que o 59 segundo 00:01:59:0 não mente salta de 58-00 e 59 não existe, favor verificar o seu código
A solução seria semelhante
Milissegundo + = 1
Se Millisecond = 10 Em seguida,
Milissegundo = 0
Segunda + = 1
Se segundo = 60 Então
Em segundo lugar = 0
+ = 1 minuto
Se, em seguida, Minute = 60
Minuto = 0
Tempo + = 1
End If
End If
End If
ImprimirHorario ()
Assim, a 59 segundo ou minuto existiria mas a contribuição é apreciado.
Muito bom, muito obrigado! Eu tenho o meu eu estou durango
OBRIGADO! Fui despertado pelo exemplo lógica xq fazer um mega projecto espera-se continuar a avaliar neste caso exemplo dessa magnitude suviendo Deus abençoe
Eu sou novo para fazer meu projeto programado para ser lançado.
Public Class Form1
Hora privados As Integer = 0
Minutos privada As Integer = 0
Segundo privada As Integer = 0
Milissegundos privada As Integer = 0
ImprimirHorario Sub ()
Hora.ToString.PadLeft Label1.Text = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ = 1 milissegundo
Se milissegundo = 9 Então
milissegundo = 0
segundo + = 1
Se os segundos = 59 Então
segundo = 0
minutos + = 1
Se, em seguida = 59 minutos
minutos = 0
+ = 1 hora
End If
End If
End If
imprimirHorario ()
End Sub
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Button4_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Final
End Sub
Muito obrigado pela contribuição
Bom código!
Código de boa .... eu servi à perfeição acima corrigido o erro .... Graças
obrigado pela sua contribuição serviu-me muito útil
Olá amigo quisioera saber onde você faz o seu blog?? É esta página?
Eu poderia ajudar
Oi
Eu faço este blog em Buenos Aires, Argentina. Saudações.
Eu corro isso graças à sua magnífica grande aora tutorial e eu tenho uma idéia de como usar o timer.
Grax código x
zi zirvio me!
○ ^ ^
obrigado por este código que estou programação jejej algo maior
obrigado ...
Excelente código muito útil, especialmente para desenvolver alguns timeouts aplicativo para controlar um processo
Muito obrigado
nada!
e se a contagem regressiva tão grave?
Um exemplo muito bom que eu tinha eco em c + + de programação com a minha profresor mas não tinha idéia que estava no visual, graças a entrada basic.net de uma forma muito simples e ainda muito atractivo.Gracias
só uma coisa muito boa, no botão de reset, se você pressionar ele é definido como 0, mas ainda correndo contra o tempo só por isso teria que colocar
Btn_reset_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reset.Click
Timer1.Enabled = False
tempo = 0
minutos = 0
segundo = 0
milissegundo = 0
imprimirHorario ()
End Sub
Oi graça pela contribuição
Eu sei como adaptá-lo para ASP utilizando VB como a página de código está fazendo postback
Obrigado
muito obrigado, eu estava procurando
Muito boa informação me salvou de um Bind
..
..
OBRIGADO
Muito obrigado pelas contribuições. Eles são muito claras e muito boa.