comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Crear un mejor timer

  • 0 Respuestas
  • 1367 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5401
  • Actividad:
    38.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 04:01:54 pm »
Ventajas:
-es mas parido
-sepuede usar menos tiempo que el timer
bueno aca voy a internar que se entienda el codigo
en un formulario comun poder esto:
un Command1

Código: Visual Basic
  1. Option Explicit
  2. Dim Principal As Boolean
  3. Const QueMiro = 1000 'es si me fijo en milisegundo o cualquier metodo que use
  4. Const intervalo = 1000 ' en el metodo que uno use
  5. 'en este caso miro los milisegundos
  6. 'y cada un 1000 milisegundos(un segundo) ejecuto la accion
  7.  
  8. Private Sub command1_click()
  9. Dim Tiempo As Long
  10. Principal = True 'prendo el timer
  11. 'uso el timer que meda los el tiempo despues dela media noche
  12. Tiempo = (Timer * QueMiro) + intervalo
  13. While Principal ' mientras este prendido
  14. DoEvents 'para seguir haciendo los demas eventos
  15. If (Timer * intervalo) < intervalo - 1 Then 'me fijo que el tiempo no vuelva a cerro
  16. Tiempo = (Timer * QueMiro) + intervalo
  17. End If
  18. If (Timer * QueMiro) >= Tiempo Then
  19. 'Aca lo que quiero acer
  20. Me.Caption = "cada " & intervalo & " voy a poner el timer " & Timer
  21. Tiempo = (Timer * QueMiro) + intervalo
  22. End If
  23. Wend
  24. End Sub
  25.  
  26. Private Sub Form_Unload(Cancel As Integer)
  27. Principal = False
  28. DoEvents
  29. End
  30. End Sub
« Última modificación: Mayo 12, 2014, 03:24:12 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913

Respuestas: 1
Vistas: 3620
Último mensaje Febrero 02, 2013, 03:23:30 pm
por alexander1712
Cómo crear controles en tiempo de ejecución

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1353
Último mensaje Julio 26, 2010, 11:29:34 am
por ANTRAX
Otra forma de crear DSN, modificarlo y eliminarlo

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1458
Último mensaje Julio 26, 2010, 03:54:52 pm
por ANTRAX
Como crear controles en tiempo de ejecuacion

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1248
Último mensaje Julio 26, 2010, 01:21:37 pm
por ANTRAX
Como Crear un DSN con un archivo de registro

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1486
Último mensaje Julio 26, 2010, 12:23:42 pm
por ANTRAX