hola amigos necesitaria si alguien sabe como hago para poner un tiempo enla ejecucion de un programa por ej: tengo una salida del pp activada y necesito que este activada 3 segundos pero mientras tanto el programa tambien tiene que esperar ese tiempo
Private Sub Timer5_Timer()
Text3.Text = PortIn(&H379) ' lee el puerto
If Text3.Text = 63 Then 'si port = a 63
ClrPortBit &H378, 6 sube lamecha
****aca nesesitaria que se detenga hasta que suba la mecha y luego continuar con el codigo****
Timer1.Enabled = True 'habilita el temporizador para la lectura del puerto
If Text6.Text >= TexmotYfin.Text Then 'compara si son iguales
ClrPortBit &H378, 4
cualquier dato es agradecido gracias por su tiempo Diego
dependiendo el tiempo llamas una funcion
function xD(){
}
o si no creas un sub y lo llamas cuando ya este la mecha, mecha? xD
sub algo()
'codigo mechero
end sub
Primero declaramos en el formulario la api que se encarga de esto
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Y luego hacemos la pausa
sleep 1500
En este caso 1 segundo y medio ;)
Saludos
gracias amigos la verdad que este es el lugar acertado para hacer una pregunta si quieres una respuesta certera, tenia la idea de spleed pero no sabia como aplicarla saludos