programador666
02 de Julio del 2004

Hola a todos,

Me gustaria saber como se cuanto va a durar un proceso en ejecutarse.

Por ejemplo, han visto cuando se esta copiando una carpeta y muestra una barra de progreso mostrando el avance del copiado.

Como se determina esto,

Gracias

Estrambotica
02 de Julio del 2004

Este ejemplo es para ver el tiempo q tarda es sistema recorriendo una base de datos y realizar todad la intrucciones

rstaux1.Open "SELECT COUNT([INVENTARIO].[COD_ART]) AS CONT1 From INVENTARIO where codigo_t='" & Mid(Cmbarticulo, 1, 1) & "' ", dbfa, adOpenStatic

‘ esta linea es para asignarle el valor maximo al control de progreso
If rstaux1(0) <> 0 Then ctlProgreso1.Max = rstaux1(0)
rstaux1.Close

Do While Not rstaux.EOF

Instrucciones
‘esta linea es para aumentar el control progreso
ctlProgreso1.Value = ctlProgreso1.Value + 1
rstaux.MoveNext
Loop
rstaux.Close
rst.Close

For X = ctlProgreso1.Value To ctlProgreso1.Max
If ctlProgreso1.Value < (ctlProgreso1.Max) Then
ctlProgreso1.Value = ctlProgreso1.Value + 1
End If
Next