Ejecutar instrucciones a cada cierto tiempo

Question

Hola, quisiera ejecutar cinco instrucciones al presionar un botón, que se ejecute 1 por 1 por cada 2 segundos que pasen y al finalizar las 5, estas se vuelvan a ejecutar y que no pare hasta volver a presionar el botón

Answer 1

Puedes hacer medite un timer ej: A nivel formulario  declaramos  Public tiempo As  integer = 0 ,  colocamos un button con el Text = "Activar" dentro de este

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "Desactivar" Then
            Timer1.Enabled = False
            tiempo = 0
            Button1.Text = "Activar"
        Else
            Timer1.Enabled = True
            Button1.Text = "Desactivar"
        End If

    End Sub

y luego dentro del timer

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        tiempo += 1
        Select Case tiempo
            Case 2
                MsgBox("Van 2 seg")
            Case 4
                MsgBox("Van 4 seg")
            Case 6
                MsgBox("Van 6 seg")
            Case 8
                MsgBox("Van 8 seg")
            Case 10
                MsgBox("Van 10 seg")
                tiempo = 0
        End Select
    End Sub

De esta manera ejecutará cada instrucción en dos segundos, colocamos el Inteval del Tiemer = 1000 (un seg) hasta que no presionemos nuevamente el button no se detendra, el contador volverá a 0 y segirá ejecutando

Saludos

Answer 2

Gracias! me sirvio de mucho tu ayuda