Cual Es El Error? Segundos...

[BoboV1]

Hola!

Tengo esta parte de codigo :

Código (vb) [Seleccionar] Expandir

   DetectorHumano = DetectorHumano + 1

   If DetectorHumano > 60 Then

y anda bien, osea , lo q hace es q cuando pasen  60 segundos "Haga lo q yo quiera."

pero si le pongo asi :

Código (vb) [Seleccionar] Expandir

   DetectorHumano = DetectorHumano + 1

   If DetectorHumano > Text3.Text Then

No anda!, nose porq pero a los 3 segundos (No exactos ¬¬) empieza a actuar el codigo!

osea, el el text3  pongo "20", pongo "Play", y antes de llegar a 20 actua el codigo restante... :S

[BlackZeroX]

.
y asi?

Código (Vb) [Seleccionar] Expandir



  DetectorHumano = DetectorHumano + 1
  If DetectorHumano > val(Text3.Text) Then



si quieres esperar X tiempo puedes usar esto:

Código (Vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
   Horas = 3600
   Minutos = 60
   Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



Dulce Lunas!¡.

[BoboV1]

I love you <3