FiveTech Software tech support forums

Hola estoy ordenando una tabla, pero el ordenador del cliente es lento y me gustaría añadirle un meter para que viera el progreso y no se pusiera "nervioso" pero nunca lo he hecho.

¿Alguien puede ponerme algún ejemplo?

Muchas Gracias de antemano.

No creo que se pueda hacer, porque para ello habría que tener información que aSort() no da: el nº de elemento por el que va en la ordenación.

Un workaround es utilizar MsgRun() o similar y al menos poner un texto "Espere..."

Ok. Eso había pensado yo sobre el meter y Asort, pero por si acaso.

Probare con MsgRun() así por lo menos saldré del paso.

Gracias.

Paco,

Como ASort() permite evaluar un bloque de código, desde él se podria incrementar una variable estática externa que indicaría el elemento por el que va

Creo que se podria hacer asi

http://www.fivetechsoft.com/harbour-docs/api.html#asort

Antonio,

Me parece que Asort() utiliza el algoritmo de la burbuja, no estoy muy seguro.
Tampoco estoy seguro que el algoritmo de la burbuja use tantas comparaciones como elementos tiene el array.

Saludos

Paco,

Este ejemplo funciona, pero la sorpresa es que el bloque de código se evalúa 10 veces, puesto que hacen falta
más iteraciones para ordenarlos. Haria falta una primera pasada para contar el total de iteraciones y una segunda
para mostrar el meter, lo que no lo haría muy práctico:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local nIndex := 1

   ASort( { 9, 6, 3, 5, 2, 1 },,, { | x, y | MsgInfo( nIndex++ ), x < y } )

return nil

Estos ejemplos se pueden probar desde Fivedit sin necesidad de crear un PRG ni tener que construir el EXE

Muchas Gracias por vuestra ayuda,