Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/07/2014, 02:29
Avatar de falillista
falillista
 
Fecha de Ingreso: agosto-2008
Mensajes: 101
Antigüedad: 15 años, 8 meses
Puntos: 4
Respuesta: Dudas con Visual Studio 2013

//la del textbox no esta del todo bien

Para los timer primero creamos un timer, y así hasta los que necesitamos.

1 segundo = 1000

Código:
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
'en cada timer marcamos el tiempo y ponemos un stop, para que no se repita.
'me queda saber como hacer que se cierre solo pero bueno
        Me.Timer1.Interval = 1000 //1 segundo = 1000, 2 = 2000, etc...
        Me.Timer1.Stop() //paramos el timer1, como digo para que no se repita 1000 veces xD
'mensaje que usaremos
        MsgBox("MENSAJE")
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Me.Timer2.Interval = 3000
        Me.Timer2.Stop()
        MsgBox("MENSAJE")
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Me.Timer3.Interval = 5000
        Me.Timer3.Stop()
        MsgBox("MENSAJE")
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Me.Timer4.Interval = 7000
        Me.Timer4.Stop()
        MsgBox("MENSAJE")
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Me.Timer5.Interval = 14000
        Me.Timer5.Stop()
        MsgBox("MENSAJE")
    End Sub

'si clickamos el boton 1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'iniciamos timer 1,2,3... 
'llamamos cada timer que arriba tenemos configurado
        Me.Timer1.Start()
        Me.Timer2.Start()
        Me.Timer3.Start()
        Me.Timer4.Start()
        Me.Timer5.Start()
    End Sub

Última edición por falillista; 14/07/2014 a las 02:40