esta es una forma de ejecutar una pausa en Vb que extraje del anterior foro de canalvisualbasic.

Código:

Sub Esperar(byval Segundos as Single)
Dim Comienzo as Single, Fin as Single
'se asignará a la variable comienzo la cantidad de _
 segundos transcurridos desde el inicio del sistema

Comienzo = Timer

Fin = Comienzo + Timer

Do While Fin > Timer
if Comienzo > Timer Then
 'si algo sale mal en esta parte, simplemete _
  reemplacen la variable Comienzo por Fin. _
  es que no recuerdo muy bien si se usa esa _
  variable o la última en mención.
 Comienzo = Comienzo - 24*60*60
end if
  DoEvents
Loop
End Sub

y esta es una pausa hecha en C++. se necesita usar la librería time.h

para los más "novatos" en C++, primero se debe declarar el procedimiento o la función en la parte global del código, justo debajo de los #include.

void sleep( clock_t wait );

Código:

//procedimiento para ejecutar pausas durante X cantidad de segundos.
void sleep( clock_t wait )
{
clock_t goal;
goal = wait + clock();
while( goal > clock() )
;
}

para llamar a este procedimiento:

Código:

sleep((clock_t)2 * CLOCKS_PER_SEC );

este ejemplo lo saqué de la msdn al necesitar ejecutar una pausa por cada led que yo fuera a encender.

noten que el 2 que está justo al lado de (clock_t) es el número de segundos que se desean para hacer la pausa.

espero que el primero no esté mal. si acaso, luego lo corrijo.

qué memoria la mía

Hola Nestor , otra forma sería :

Dim inicio As Long: inicio = Round(Timer)
While Round(Timer) < inicio + 3: Wend


SALU2 D DESSA
Edited by: Dessa