Se puede hacer retardos menores a un milisegundo en VB ?

[electronando]

Buenas hasta ahora e usado solo los retardos por medio del timer que me da el visual el cual se debe de ingresar el valor en milisegundos pero no en usegundos , la cuestion es que deseaba desarrollar un programa para adquirir señales a mayor velocidad por ejemplo cada 50us , no se si sera mucho pedir al visual o es necesario hacerlo mediante otro lenguaje de mayor potencia como el visual c o el delphi , delos cuales prefiero el delphi por temor al primero , claro que eso en caso que con el visual basic  no tenga remedio o si habra una libreria especial aparte de los temporizadores para estos retardos , les agradecere alguna opinion al respecto

[LordLafebre]

Hola:

Puedes hacer un bucle DUMMY, con el número de iteraciones necesarias para que demore cierto tiempo, lo puedes hacer con un FOR.

[BrunoF]

Hola electronando.

No hay forma de hacerlo preciso. Lo que te sugiere Lord es una solución,pero todo depende de la PC, de la carga de programas que tengas en ese momento ejecutandose, y de muchisimos factores más.

No sé que tanta precisión necesitás.
Ah! Y te comento que el VB miente. El VB no es capaz de controlar Timers con intervalos menores a los 52ms.

Saludos.

[LordLafebre]

Hola:

Bruno, tu que ere maestro de maestros en programacion de PC, ahora que estamos en esto de los retardos, tienes idea de como se puede hacer para generar una frecuencia de 50Hz para controlar un servo desde el PC por el LPT?

[BrunoF]

Hola Gio.

¿Te estás refiriendo a VB6?

Para generar una señal de 50Hz podés usar la llamada a la API GetTickCount para contar los milisegundos transcurridos, pero dividir 1ms en 180 partes ya no es tan sencillo. Se pierde precisión.

Saludos.

[migsantiago]

Hola

Otro método de conteo de tiempo es la función Timer, y no me refiero al objeto timer.

Un pequeño ejemplo...

dim inicio
dim tiempotranscurrido

inicio = Timer 'empieza a contar usando función Timer
'inicio tendrá un valor que indica el tiempo desde las 12am hasta el momento en que se llama

'después de un rato si se llama otra vez Timer entregará un nuevo tiempo
'solo hay que sacar la diferencia

tiempo = Timer - inicio 'entrega la diferencia en fracciones decimales y enteros si se da el caso


Yo usé Timer para saber cuánto tiempo le toma al pic enviar una trama de datos por el puerto serial.

Y Bruno tiene razón sobre la falla del objeto timer... nunca se ejecuta cuando debe hacerlo, yo intenté hacer un conteo con el objeto y da tiempos todos ilógicos.

[BrunoF]

Si migsantiago, pero ojo que el timer trabaja contando centesimas de segundo(es decir, de a 10ms) y no creo que eso le alcance a Gio.

Saludos.

[migsantiago]

Jaja sí 

Es lo malo de los ambientes multitareas... windows siempre anda ocupado atendiendo mil y un procesos a la vez.

[LordLafebre]

Hola:

Pues en efecto Bruno,  10ms es mucho, ya que necesito entre 1ms y 2ms para que el servo varíe su posición, como es eso de los ticks que tu mencionas?

[LABmouse]

Yo tambien estoy necesitando generar un retardo de 1ms, pero no encuentro forma, ya lo resolvieron?? Me pueden decir a mi tambien 

Intente hacer esto:

Código: [Seleccionar]

Private Function Retardo(Tiempo As Integer)
Timer1.Interval = Tiempo
Bandera = 0
Timer1.Enabled = True
    Do While Bandera = 0
    Loop
End Function


Private Sub Timer1_Timer()
Bandera = 1
Timer1.Enabled = False
End Sub

Y usarlo así:

Código: [Seleccionar]

Retardo (1)

pero el programa me deja colgado el Windows..


Encontré Esto

Usa una Api de Windows y permite crear retardos desde 1ms.

Solo hay que crear un Modulo Bas
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Hay que llamarla asi:
Sleep 2000 'Llama a la API Sleep (2000 milisegundos = 2 segundo de pausa).



SALUDOS!!

[RICHI777]

Hola, debido a que los Pentium tiene varias unidades de ejecución y los simples retardos calculando el tiempo de ejecucion de las instrucciones ya no son validos en este tipo de procesadores, Win32 provee dos funciones para que el calculo de tiempos sea preciso. Estas son :

• QueryPerformanceFrequency
• QueryPerformanceCounter

Hay mucho info en la Web donde explica su uso para medir tiempos con mucha precision, con respecto a generar un retardo especifico, tal vez sea conveniente crear un Thread con resolucion "real time" y ahi aplicar el metodo basado en las 2 funciones anteriores.
En los operativos Win 9X/Me se podia utilizar unas funciones reservadas que paran el "scheduler" de windows

• int 2F Function 1681 - Begin critical Section
• int 2F Function 1682 - End critical Section

En las listas de Ralf Brown figuran el modo de empleo, pero la idea es que el codigo entre estas dos llamadas no es interrunpido por ningun thread, pero como dije antes no deberia funcionar en Windows NT/2000/XP....
Bueno eso es todo, espero haber aportado algo...
Salu2!

[PalitroqueZ]

Ernesto el Sleep también deja en un lazo eterno hasta que cumpla el plazo del tiempo, aunque se me ocurre esto (no lo he probado):

Código: Visual Basic

1. ...
2. Sleep(2000)
3. DoEvents
4. ...

[LABmouse]

El DoEvent no se colocaria antes de decirle Sleep???

[PalitroqueZ]

que va, lo acabo de probar, no funciona ni antes ni después

[LABmouse]

  , Bueno pero pasa como con el PIC, ideal para retardos muy pequeños, ya mas grandes es mejor usar el TIMER.

SALUDOS!!!