ayuda timer

[asdexiva]

Código [Seleccionar] Expandir

Public X As Integer
Private Sub Form_Load()
Timer1.Interval = 150
End Sub

Private Sub Timer1_Timer()
X = X + 1
If X = 3 Then
INGRESAR.Show
Unload Me
End If
End Sub


alguien me podria explicar para que sirve esto en el codigo

Código [Seleccionar] Expandir

X = X + 1
If X = 3 Then

solo quiero saber para que sirve .el codigo si funciona pero quiero saber que significa esa parte

[MCKSys Argentina]

Tienes un control Timer, el cual ejecutara el evento timer (osea, llamará a la funcion Timer1_Timer()) cada 150 milisegundos.

Lo que hace la funcion es incrementar una variable (X) en 1 cada vez que se ejecuta la funcion. Luego, si la variable (X) es igual a 3, muestra un formulario (INGRESAR) y descarga (cierra) el formulario donde esta ejecutandose el codigo.

En resumen, el formulario INGRESAR se mostrara luego de 450 milisegundos de activado el Timer1.

Saludos!

[asdexiva]

muchas gracias como quien dice 150 se multiplica x3  xD

[MCKSys Argentina]

Algo asi. En realidad, la sub Timer1_Timer()  se ejecuta 3 veces.