CAPTION DE INTERVALO

FISH40 31/10/2009 16:44:23
#326645
Galera Como Eu Posso Fazer Com Que a Label1 Capture Os Segundos do Timer1 ?
MARCELO.TREZE 31/10/2009 16:58:25
#326646
Resposta escolhida
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

[ô]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

FISH40 31/10/2009 17:11:33
#326649
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
MARCELO.TREZE 31/10/2009 18:24:20
#326651
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

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

FISH40 31/10/2009 19:58:55
#326654
Vlw Mim Ajuda Muito!
Resolvido!
Tópico encerrado , respostas não são mais permitidas