Barra de progreso mostró cómo hacer una barra de progreso. @abmayfield pregunta en "no responde" frente a "todavía pensando" me impulsó a revisar esto. Aquí hay otra toma, incluido un botón de cancelar.
not cancelednot cancelednot cancelednot canceledno cancelado
Cancel button pressed.Cancel button pressed.Cancel button pressed.Cancel button pressed.Botón Cancelar presionado.
progressBarWidth = 500;
progressUpdatesSeconds = 1 / 4; // 1/2 sec updates -> 1300ips, 1/30 -> 1000ips (1/4 compromise speed vs appearance)
cancel = 0; // clear the cancel flag
New Window( "Progressbar demo", //
V List Box( //
cats = Text Box( "" ), // output from the work function
t = Text Box( "", <<SETWRAP> ^workCalls/runSeconds^ ips" ) );
t << updatewindow; // this works without the wait
);
totalCats = 0;
dowork = Function( {},
x = "";
For( i = 1, i <= 1000, i += 1, x = x || "." );
totalCats += 1000;
cats << settext( Eval Insert( "total concatenations=^totalCats^" ) );
);
While( runSeconds < limitSeconds & !cancel, // change this to represent the work you are doing
// do some work, simulated by concatenating strings...
dowork();
// update the progressbar
workCalls += 1;
nowMicroSeconds = HP Time();
// how often does it need to update on the screen?
If( (nowMicroSeconds - recentUpdateMicroSeconds) / 1e6 > progressUpdatesSeconds,
// in this example I'm using a fixed time duration of "limitSeconds" to represent the
// amount of work to be done. And "runSeconds" to represent the amount of work done so far.
// Usually you'll have something other than time: number of rows in a table perhaps, or
// number of categories to make reports for. As long as you know how many total and how
// many completed, you can compute this fraction...
updateProgress( runSeconds / limitSeconds ); // change this to represent the fraction of work finished
recentUpdateMicroSeconds = nowMicroSeconds;
Wait( 0 ); // this wait is needed to let the cancel button work
);
runSeconds = (nowMicroSeconds - startMicroSeconds) / 1e6;
);
If( cancel, // test the cancel flag
Beep(); // audio flag
left << color( "dark red" ); // visual flag something is awry
right << color( "red" );
, //
updateProgress( 1.0 ); // people like to see the bar go to 100%
);
cancelButton << setbuttonname( "Close" ); // visual flag the button function is changed
cancelButton << setscript( (cancelButton << closewindow) ); // and what to do if the button is pressed
</SETWRAP>
Probando entre JMP 15 y 16, noté que 16 es un lote más rápido en esta carga de trabajo de concatenación de cadenas. ¡Buen trabajo!
Editar: si JMP está ejecutando una plataforma que no tiene su propia barra de progreso cancelable y se ejecuta durante mucho tiempo, esto no ayudará. El soporte técnico sería un buen lugar para solicitar el soporte de la plataforma para una barra de progreso. Sin él, no hay forma (a menos que cierre JMP a la fuerza) de detenerlo hasta que termine.
Quiere ser empaquetado, gracias!
En su ejemplo, pb<
También has señalado algo que me perdí en Cómo usar Definir clase : Pensé que necesitaba diseñar a los miembros de la clase explícitamente en el prototipo de clase definida, pero este: puede crearlos también.
Define Class("bubble",
//not needed: m_xpos = .;
_init_ = Method( {x}, <BR />//because using explicit this: ...
this:m_xpos = x;
Gracias @Craige_Hales ! Necesitaba una barra de progreso (o algo similar) para uno de mis scripts, así que tomé esto y lo modifiqué un poco para adaptarlo a mis necesidades. Lo convertí en una clase (soy muy principiante con las clases de JMP y las clases en general) para práctica y porque sentí que podía encajar en uno. También agregué documentación que se puede analizar con Natural Docs.
Código:
Ver más...Los documentos naturales se verán así:
