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
una pregunta facil...
Moderador: Moderadores
una respuesta mas facil aun!!!
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.
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.
