CAPTION DE INTERVALO
Galera Como Eu Posso Fazer Com Que a Label1 Capture Os Segundos do Timer1 ?
meu eu postei um exemplo pra vc
o colega explicou como funciona, mas vamos
coloque um timer com interval = 1000 (01 segundo)
coloque um label
pronto no label ficara exibindo segundo a segundo
o colega explicou como funciona, mas vamos
coloque um timer com interval = 1000 (01 segundo)
coloque um label
[ô]no general do form declare a variavel que irá receber o valor do timer
Dim Seg As Integer
[ô]No timer coloque o seguinte código
Private Sub Timer1_Timer()
Seg = Seg +1
Label1.Caption = Seg
[ô]ou seja a cada um segundo soma-se 1 a variavel seg, então basta exibi-la
End Sub
pronto no label ficara exibindo segundo a segundo
Não Rolo :/,Ele Tipo,Se o timer1 tah com 10000( 10 seg[ô]s) o label1 nao fica contando ateh 10! ele vai diretamente para 10 depois de 10 segundos
a questão é a seguinte, vou tentar explicar de forma mas básica possivel
o timer funcina assim ele, como posso dizer, ele gera um pulso conforme o intervalo escolhido, este intervalo vai até 65000, 01 minutos e uns quebrados.
então o que vc deve fazer determinar qual o periodo de pulso, ou seja se colocar 10000 (10seg) ele só vai gerar o pulso a cada dez segundos, então o que deve fazer determinar que este pulso seja a cada 1000(1seg).
como no exemplo acima citado acontece o seguinte a cada segundo soma-se 1 a variavel seg (estou contando os segundos)
se voce colocar um if para ver quando o seg chega a dez quer dizer que se passaram 10 segundos
isso se o timer estiver com a propriedade inerval igual a 1000(mil)
se vc mudar o interval para 10000(dez mil) seg ira mudar a cada 10 segundos, então a função acima funcionaria apos 1 minuto e 40 segundos( 10 * 10 = 100s) =( 60 s + 40 s = 1m40s)
entendeu agora o timer como fucniona
o timer funcina assim ele, como posso dizer, ele gera um pulso conforme o intervalo escolhido, este intervalo vai até 65000, 01 minutos e uns quebrados.
então o que vc deve fazer determinar qual o periodo de pulso, ou seja se colocar 10000 (10seg) ele só vai gerar o pulso a cada dez segundos, então o que deve fazer determinar que este pulso seja a cada 1000(1seg).
como no exemplo acima citado acontece o seguinte a cada segundo soma-se 1 a variavel seg (estou contando os segundos)
se voce colocar um if para ver quando o seg chega a dez quer dizer que se passaram 10 segundos
Dim Seg As Integer
Private Sub Timer1_Timer()
Seg = Seg + 1[ô]soma 1 a cada segundo
Label1.Caption = Seg
If Seg =10 Then
msgbox [Ô]Passaram-se 10 segundos[Ô]
End if
End Sub
isso se o timer estiver com a propriedade inerval igual a 1000(mil)
se vc mudar o interval para 10000(dez mil) seg ira mudar a cada 10 segundos, então a função acima funcionaria apos 1 minuto e 40 segundos( 10 * 10 = 100s) =( 60 s + 40 s = 1m40s)
entendeu agora o timer como fucniona
Vlw Mim Ajuda Muito!
Resolvido!
Resolvido!
Tópico encerrado , respostas não são mais permitidas