• Domingo 22 de Diciembre de 2024, 19:27
« anterior próximo »
Páginas: [1]

Autor Tema:  Timer  (Leído 1614 veces)

Blank

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Timer
« en: Domingo 12 de Noviembre de 2006, 21:17 »
0
Buenas tardes, quiesiera ver si me pueden ayudar, ya que soy nueva en el mundo de la programación y estos tratandod de realizar una aplicación y ya hice mi primeros formularios, y no lo veo complicado, pero me salio una duda en la que quiero que despues de registrame me aparesca otro formulario por espacio de unos 3 segundos y desparesca, he estado viendo el timer, pero no logro entender como hacerlo funcionar de la manera que quiero. lo que llevo mas o menos es asi

Private Sub Form_Load()
   Timer1.Interval = 10000
       
   If Timer1.Interval = 10000 Then
     Form2.Show
     Unload Me
    End If
End Sub

si alguien me puede ayudar estare muy agradecida.
gracias

ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Timer
« Respuesta #1 en: Domingo 12 de Noviembre de 2006, 21:29 »
0
hola primero un comentario, interval es una propiedad del timer para establecer en que intervalo de tiempo se el evento timer, otra cosa mas este intervalo esta establecido en milisegundos, osea que si tu le estableces 1000 al interval se ha de ejecutar el evento cada segundo, por ejemplo para lo que quieres hacer seria algo así:

Código: Text
  1. Dim x As Integer
  2.  
  3. Private Sub Command1_Click()
  4. Timer1.Interval = 1000
  5. Form1.Show
  6. x = 1
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10. x = x + 1
  11. If x = 3 Then
  12.     Unload Form1
  13. End If
  14. End Sub
  15.  
  16.  
espero entiendas el codigo que realmente esta muy sencillo, por ultimo basta decir que estudies un poco más :)

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Timer
« Respuesta #2 en: Domingo 12 de Noviembre de 2006, 21:34 »
0
Código: Text
  1. Private Sub  Command1_Click()
  2.     Timer1.Interval = 3000
  3.     form2.show
  4. End Sub
  5.  
  6. Private Sub Timer1_Timer()
  7.    Unload form2
  8.    timer1.enabled=false 'detener el timer si es necesario
  9. End Sub
  10.  

 :ph34r:
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

Blank

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Re: Timer
« Respuesta #3 en: Lunes 13 de Noviembre de 2006, 04:22 »
0
:D Listo, muchas gracias a los dos, por el interes mostrado aun checando sus codidgos me resultaba la acción que quería pero ya ahi moviendole y utilizando parte de las dos aportaciones que me hicieron logre realizar lo que tenía previsto, gracias y espero aprender lo mas pronto posible para yo tambien aportar, nos vemos pronto. :P
Páginas: [1]
« anterior próximo »