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
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