una pregunta facil...

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

Danto
Novat@
Mensajes: 1
Registrado: Jue Ago 11, 2005 11:41 pm

una pregunta facil...

Mensaje por Danto » Jue Ago 11, 2005 11:50 pm

Hola a todos, apenas estoy comenzando a usar VISUAL BASIC y queria hacerle una pregunta sobre el
control TIMER de visual basic 6.0 ... no he podido
hacer un programa que haga algo cada determinado tiempo,
para aprender como funciona el TIMER estoy tratando de
hacer un programa que aumente una variable cada
segundo y la muestre en un label

Private Sub Command1_Click()
a = 0
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
End Sub

el TIMER comienza deshabilitado y hasta que doy click
no empieza el conteo.... pero no funciona... no se que
pueda estar mal...
PORFAVOR me pueden ayudar a entender que es lo que
estoy haciendo mal...

GRACIAS

Avatar de Usuario
homerg
Preferencial
Mensajes: 189
Registrado: Mié Jun 08, 2005 9:20 pm
Ubicación: Argentina

una respuesta mas facil aun!!!

Mensaje por homerg » Sab Ago 13, 2005 12:36 am

lo que esta sucediendo es que ... la variable a esta creada en el metodo Command1_Click() o sea que el valor lo pierde o solo sirve para ese metodo... otro pequeño error que tienes que tratar de no cometer nunca es definir una variable sin tipo...

en visual... si no defines que tipo de variable sera, automaticamente la toma como una variable de tipo Variant. este tipo es el que mas memoria tiene reservado creo... y en aplicaciones grandes notaras las diferencia....

lo correcto seria...
--------------------------------------------------
Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a= a + 1
Label1.Caption = a
End Sub


-------------------------------------------------

otro uso interesante... para el timer seria...

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub
-------------------------------------------------

Saludos. :wink:

Responder