Crear un mejor timer

  • 0 Respuestas
  • 2046 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5709
  • Actividad:
    100%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Crear un mejor timer

  • 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: (vb) [Seleccionar]
Option Explicit
Dim Principal As Boolean
Const QueMiro = 1000 'es si me fijo en milisegundo o cualquier metodo que use
Const intervalo = 1000 ' en el metodo que uno use
'en este caso miro los milisegundos
'y cada un 1000 milisegundos(un segundo) ejecuto la accion

Private Sub command1_click()
Dim Tiempo As Long
Principal = True 'prendo el timer
'uso el timer que meda los el tiempo despues dela media noche
Tiempo = (Timer * QueMiro) + intervalo
While Principal ' mientras este prendido
DoEvents 'para seguir haciendo los demas eventos
If (Timer * intervalo) < intervalo - 1 Then 'me fijo que el tiempo no vuelva a cerro
Tiempo = (Timer * QueMiro) + intervalo
End If
If (Timer * QueMiro) >= Tiempo Then
'Aca lo que quiero acer
Me.Caption = "cada " & intervalo & " voy a poner el timer " & Timer
Tiempo = (Timer * QueMiro) + intervalo
End If
Wend
End Sub

Private Sub Form_Unload(Cancel As Integer)
Principal = False
DoEvents
End
End Sub
« Última modificación: Mayo 12, 2014, 03:24:12 pm por Expermicid »