Timer en Visual Basic 6.0

El timer o temporizador es útil para muchas cosas, principalmente yo lo uso cuando quiero diseñar splashes.

Aquí presento una aplicación básica por la cual se trata de entender el funcionamiento del timer. El atributo principal de este objeto timer es "interval", el cual determina la velocidad del timer.


He construido la interface mostrada arriba, el timer,--- que es el objeto seleccionado ---, tiene un método o o procedimiento mostrado abajo:

Private Sub Timer1_Timer()

End Sub

Cuando el atributo del timer "interval" es igual a 1, entonces quiere decir que cada 1 milisegundo se llamara a la función Sub Timer1_Timer()

Si lo modificamos: interval=1000, entonces cada 1 segundo visitará a dicha función, así se puede recorrer una cadena o imágenes para realizar una animación.

Aquí les presento el código completo de la interface mostrada arriba:

Public a As Integer
Public s(5) As String


Public Sub iniciar()
a = -1
s(0) = "a la una"
s(1) = "a las dos"
s(2) = "a las tres"
s(3) = "a las cuatro"
s(4) = "y a las cinco"
End Sub

Private Sub Command2_Click()
Timer1.Interval = Val(Text1.Text)
End Sub

Private Sub Form_Load()
Call iniciar
End Sub

Private Sub Timer1_Timer()
If a = 4 Then
a = -1
End If
a = a + 1
Label1.Caption = s(a)
End Sub