Ver Mensaje Individual
  #1  
Antiguo 19-07-2007
emeceuy emeceuy is offline
Miembro
 
Registrado: jun 2003
Ubicación: Uruguay
Posts: 122
Reputación: 21
emeceuy Va por buen camino
bucle infinito

Esta es un poco la continuacion de un hilo, pero como creo que cambio un poco el planteo, lo vuelvo a postear, y dejo el link del anterior: http://www.clubdelphi.com/foros/show...626#post215626

Les cuento, quiero hacer algo así como un bucle infinito para sacar una frecuencia por el puerto paralelo. Ya tengo solucionado la salida por el puerto, el tema es como generar la frecuencia. Me comentaron que la solucion podía ser con hilos, peo no logro entender.

Quiero hacer algo así como un bucle infinito, que corra mientras corra el programa. El problema es que si por ejemplo utilizo un while o un for, no tengo manera de detener el bucle, o de cambiar un valor de un edit por ejemplo mientras corra el bucle, y necesito poder cambiar un valor.

por ejemplo, podría poner al crear o activar el form un bucle (el que genera la repeticion), que llama a otro que se llama FRECUENCIA (el que larga la salida del puerto, que tiene como parametro el EDIT1) y un procedimiento al pulsar un boton que pone la variable var_detener en true;

procedure OnFormActivate(Sender: TForm);
begin
var_detener:=false;
repeat FRECUENCIA(edit1.text)
until var_detener=true;
end;

si yo hago esto, no tendría manera de pulsar el boton para detener el bucle, ni tampoco tendría manera de cambiar el edit, porque estaría el bucle corriendo... entonces, como puedo lograr algo así? continuo? y que me permita variar parametros, apretar botones y utilizar la ventana?

PD: antes he probado usando un timer, pero necesito una velocidad mucho mas grande que la del timer, necesito algo así como la velocidad de un bucle

muchas gracias a todos desde ya !!! salu2
__________________
Marcelo C.
Responder Con Cita