none
Ejecutar instrucciones a cada cierto tiempo RRS feed

  • Pregunta

  • 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



    viernes, 13 de octubre de 2017 2:29

Respuestas

  • 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



    • Editado Marcelo PF viernes, 13 de octubre de 2017 3:19
    • Propuesto como respuesta Brayan De La Cruz viernes, 13 de octubre de 2017 3:56
    • Marcado como respuesta Carlos Ruiz.J sábado, 14 de octubre de 2017 2:51
    viernes, 13 de octubre de 2017 3:17

Todas las respuestas

  • 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



    • Editado Marcelo PF viernes, 13 de octubre de 2017 3:19
    • Propuesto como respuesta Brayan De La Cruz viernes, 13 de octubre de 2017 3:56
    • Marcado como respuesta Carlos Ruiz.J sábado, 14 de octubre de 2017 2:51
    viernes, 13 de octubre de 2017 3:17
  • Gracias! me sirvio de mucho tu ayuda
    viernes, 13 de octubre de 2017 3:24