Timer y caja de texto

[aleancuervo]

Hola que tal. Bueno, les cuento que es lo que quiero hacer. Quiero crear un timer que cada 10 segundos me tire y 50 en una caja de texto. Y que se active y desactive con 2 botones.

A ver por ejemplo. Lo estoy utilizando para hacer una especie de programa que cada 10 segundos aparezca en una caja de texto 100. Si pasan 30 segundos, tendria que aparecer en la caja de texto 150. Mi idea es hacer algo similar a el reloj de un taxi.
Cada 10 segundos la caja de texto suba 50$ y asi hasta que lo pare con el boton de parar.

Seria algo asi:

Gracias a todos!

[erbuson]

Hola, primero debes montar como mejor te convenga el diseño del formulario, y si quieres utilizar este código que te dejo, debes tener por lo menos

1 Command1 con el Caption = Arrancar
1 Command2 con el Caption = Parar
1 Text1
1 Timer1 (Nunca se verá en tiempo de ejecución) en Interval pones 10000 (10 seg)

con este código tienes mas o menos la idea.

Código:

Private Sub Command1_Click()
  Timer1.Enabled = True
  Text1 = ""
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  Text1 = 50 + Val(Text1)
End Sub

Cualquier duda comenta y aclaramos.

Saludos

[aleancuervo]

Muchisimas Gracias, Lo pruebo y te digo! :D

[aleancuervo]

Me funciono de 10 muchisimas gracias!!!!