Problema con bucle y timer

[Alexand3r]

Buenas.

Estoy tratando de hacer un programa en el que se muestre un intervalo de tiempo, cada "X" tiempo.

En el programa tengo un timer con la propiedad interval=6000, para que cada 6 segundo me muestre un nuevo valor para el tiempo.

Y en timer, tengo el siguiente codigo:

Código:

Private Sub Timer1_Timer()

For x = 1 To V

Tprueba = 10
  
T3 = T3 + Tprueba


If x = 1 Then
Text1.Text = T3
Else
If x > 1 Then
Text1.Text = Text1.Text & vbCrLf & T3
End If
End If

Next

Timer1.Enabled = False

End Sub

Esto es solo un ejemplo de tooodo lo que tengo en el codigo. Bueno, el caso es que en lugar de mostrarme cada 6 segundos un paso de x, lo que hace es, a los 6 segundos, me muestra todos los pasos de x. Osea, entra en el timer, hace todo el bucle, y muestra todo pasado los 6 segundos.

A ver si podeis ayudarme a ver que hago mal para que no me muestre cada 6 segundos una linea del tiempo, hasta llegar al final del bucle.

Espero haberme explicado bien.

Gracias de antemano.

[-rommel_]

Es que lo que estas haciendo dentro del "for"... es ponerle la Condicion... que cuando SEA = 1 muestre UN VALOr... y cuando SEA MAYOR QUE 1 MUESTRE VALORES....
el FOR empieza con 1... muy bien = 1 ENTONCES.... MUESTRO VALOR1
sigue el FOR con 2... = 1 --> NO .... es MAYOR QUE 1 sii... ENTONCES... MUESTRA VALOR2
sigue el FOR con 3... ES MAYOR QUE 1... ENTONCES MUESTRA VALOR2

las vueltas que del for despues del 1 seran colocados en el TextBox... no se si me sigues... pero lo que tu quieres es que cada 6 seg... se muestre un valor, en tonces dale la condicion de que cada 6 seg... se muestre... el objeto TIMER tiene un VALOR no recuerod ahora cual es... utiliza ese valor... te sera mas facil... esperame y a ver que veo en mis codigos...

[-rommel_]

A ver improvise algo... a ver si tu lo modificas

Código vb:

Public Valor1 as Integer
Public x as integer
 
Private Sub Command1_click()
    Me.Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
   Valor1 = Valor1 +10
   If x = 1 Then
        me.Text1.text = valor1
   elseif x>1 then
        me.Text1.text = me.Text1.text & vbCrlf & valor1
    End If
   
    x = x + 1
    if x  =  15  Then
         me.Timer1.Enabled = False
         me.Text1.text = me.Text1.text & vbCrlf & "Listo se termino la cuenta"
    End If
End Sub
 

a ver si te sirve

[Alexand3r]

Wow, wow, wow.

Muchas gracias -rommel_

Me has sido de gran ayuda, tenias razon, sobraba el for.

Gracias, .