Hola!
Tengo esta parte de codigo :
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 :
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
.
y asi?
DetectorHumano = DetectorHumano + 1
If DetectorHumano > val(Text3.Text) Then
si quieres esperar X tiempo puedes usar esto:
'
' /////////////////////////////////////////////////////////////
' // 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!¡.
I love you <3