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.
Board index FiveWin para Harbour/xHarbour Asort con meter
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
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:
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:
#include "FiveWin.ch"
function Main()
local nIndex := 1
ASort( { 9, 6, 3, 5, 2, 1 },,, { | x, y | MsgInfo( nIndex++ ), x < y } )
return nilEstos ejemplos se pueden probar desde Fivedit sin necesidad de crear un PRG ni tener que construir el EXE 
Muchas Gracias por vuestra ayuda,