Calcular tiempo

[Cosgaya]

hola a todos:
tengo un problema con un programa para calcular numeros primos
trabajo con delphi 7.
resulta que el bucle para calcular los numeros primos me consume todo el procesador y queria calcular el tiempo que tarda en completarse con un componente timer que sume uno cada segundo a una variable pero resulta que no empieza a sumar hasta que se acaba el proceso para sacar numeros primos, si pueden ayudarme
gracias
este es el codigo:

unit primo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
numero:longint;
cantidad:longint;
division:longint;
confir:longint;
hora:integer;
minuto:integer;
segundo:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
cantidad :=(strtoint(edit1.Text));
numero :=2;
division :=2;
while (numero < cantidad)do
begin
while(division <= numero)do
begin
// comprabar si numero es divisible
if numero mod division = 0 then
begin
confir := confir +1;
end;
division := division +1;
end;
division :=2;
if confir =1 then
begin
memo1.Lines.Add(inttostr(numero));
confir := 0;
end
else begin
memo2.Lines.Add(inttostr(numero));
confir :=0;
end;
numero := numero +1;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
segundo := (strtoint(label1.caption)) +1;
label1.caption := (inttostr(segundo));
timer1.Enabled := true;
end;
end.

[dec]

Hola,

Se me ocurren dos cosas: una, que utilizes el método de "Application" "ProcessMessages" en el interior de alguno de los bucles, o en todos ellos; y dos, que utilizes un Hilo aparte para el procedimiento que se "come" al Hilo principal de la aplicación.

[Cosgaya]

hola dec, soy no vato en delphi.
me podrias explicar como es para crear otro hilo??
gracias

[dec]

Hola,

Bueno, el tema de las aplicaciones multi-hilo tiene mucha tela que cortar, y yo no podría ni hacerme un chaleco, pero, muy sencillamente, el propio IDE de Delphi te lo pone bastante hacedero. Siguiente el menú File -> New -> Others -> Delphi Files (esto en Delphi 2006) -> Thread Object el entorno de preparará una plantilla que incluye prácticamente todo lo que necesitas para emplear un Hilo de ejecución separado del principal de la aplicación.

Básicamente, insisto, en la plantilla encontrarás un método de nombre "Execute" ya declarado he implementado (a falta que añadas en él el código fuente que quieres que se ejecute en el Hilo de marras). Es ahí donde puedes ejecutar el código que se "zampa" al Hilo principal de la aplicación. Bien, pero, ¿cómo inicias el Hilo? Pues creándo el objeto correspondiente, como cualquier otra clase, algo así:


FMiHilo := TMiHilo.Create(false);


Con solo esa instrucción estarás creando el Hilo, y, en virtud del parámetro del constructor (false, en este caso) estarás haciendo (más información en la ayuda) que comienze la ejecución del método "Execute" del Hilo. Lo que ocurre es que esa ejecución se llevará a cabo en otro Hilo distinto del principal, de tal modo que tu aplicación pueda seguir con otras tareas, por ejemplo, o, simplemente, mostrando una interfaz "disponible" para el usuario.

En estos Foros se habrá tratado más de una vez y más de dos el tema de los Hilos. Yo no te puedo procurar mucha más información, sino decirte que la complejidad del tema acaso deba ir un poco en función de tus necesidades: es posible que con poco que aprendas sobre ello te sea más que suficiente para llevar a cabo lo que precisas, quiero decir. Y, por otro lado, ¿probaste con el método "ProcessMessages" de "Application"? Puede que para lo que quieres hacer sea bastante. ;)

Actualización: Adjunto un ejemplo muy, muy sencillo a ver si se aprecia la idea.

[Cosgaya]

no, no he probado con el método "ProcessMessages" de "Application", porque todavia no se de que va eso, ahora iba a investigar por el foro, pero tambien probare lo del hilo para ver como es.
muchas gracias dec.

[Chente(rMan)]

y si pruebas usando GetTickCount junto con un Application.ProcessMessages


Saludos.

Vicente López.

[roman]

Algunos comentarios respecto a tu código:


El ciclo interior


while (division <= numero) do


puedes sustituirlo por


while (division*division <= numero) do


con lo cual ahorras muchas vueltas.


En el momento en que encuentras un divisor:


confir := confir +1;


ya no es necesario continuar el ciclo interior. Usa break para interrumpirlo.


Si vas a usar sentencias como


memo1.Lines.Add(inttostr(numero));


durante el proceso, asegúrate de poner Memo1.Lines.BeginUpdate antes de comenzar y Memo1.Lines.EndUpdate al terminar. Esto porque, además del tiempo requerido por el algortimo en sí, pierdes bastante para actualizar un control visual.


Finalmente, no entiendo qué quieres hacer con el Timer. Toma en cuenta que conforme numero crezca, cada vuelta del ciclo tarda más, así que no puedes tener una estimación uniforme.


// Saludos