Foros Club Delphi - Ejecutar un procedimiento a intervalos regulares

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ejecutar un procedimiento a intervalos regulares (https://www.clubdelphi.com/foros/showthread.php?t=85440)

Ejecutar un procedimiento a intervalos regulares

Hola, estoy haciendo un programa en delphi para leer los datos que me tira un adaptador usb-usart para leer la temperatura de un sensor, uso la libreria comport en delphi 7, para leer la temperatura tengo un boton, pero la idea es que la lectura del puerto se haga a intervalos regulares automaticamente al iniciar el programa. Los datos que me tira el microcontrolador es la temperatura en forma continua, por ejemplo si lee 21 grados, tira: 2121212121212121... Los valores de la temperatura pueden llegar a los 125 grados, defini el buffer de entrada con tamaño de 2 bytes, no se si esta bien.Otro problema es que el valor de la temperatura no se actualiza bien, quizas esta en 31 grados y si leo el puerto con mi programa me da 29 y no cambia. Me puden dar una mano. El video youtube:

Hola soymoe, bienvenido a Club Delphi :)

Como a todos cuando inician, te invitamos a que leas nuestra guía de estilo.

Para la toma de temperatura a intervalos regulares podes usar un TTimer (pestaña System).

Un ejemplo simple, pone en tu formulario un TTimer, un TLabel y dos TButton:

Código Delphi [-]...
implementation

// (*)
function GetValueFromSensor: Double;
begin
  Result := Random(100) / (Random(10)+1)
end;

// Inicializar el timer
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Timer1 do
  begin
    Interval:= 500;  // valor en ms = 1/2 seg. (o el lapso que desees) 
    Enabled:= False;// inactivo
  end;
end;

// El evento se dispara cuando el tiempo fijado en la propiedad Interval se cumple
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatFloat('0.00', GetValueFromSensor);
end;

// Activar la toma de temperatura
procedure TForm1.btnStartClick(Sender: TObject);
begin
  Timer1.Enabled:= True;
end;

// Desactivar la toma de temperatura
procedure TForm1.btnStopClick(Sender: TObject);
begin
  Timer1.Enabled:= False;
end;

(*) No he usado la librería ComPort (y mucho menos adaptador usb-usart), por lo que simulé la toma de temperatura con una función que devuelve valores aleatorios para hacer funcional el ejemplo.

Saludos :)

El problema aquí es que hay varias cosas mezcladas.

Cita:

Empezado por soymoe (Mensaje 473936)

Eso debería poder hacerse con un timer añadiendo el intervalo que necesites.
Otro tema es que hay muchos de estos sensores que permiten dos modos, un modo continuo (parece ser el que tienes activado ahora) y otro bajo petición, podrías mirar si al que te estás conectando lo permite.

Cita:

Empezado por soymoe (Mensaje 473936)

Los datos que me tira el microcontrolador es la temperatura en forma continua, por ejemplo si lee 21 grados, tira: 2121212121212121... Los valores de la temperatura pueden llegar a los 125 grados, defini el buffer de entrada con tamaño de 2 bytes, no se si esta bien.

Debería haber alguna marca entre lecturas. Si defines un buffer de 2, ¿Qué pasará cuando leas una temperatura de 105?

Cita:

Empezado por soymoe (Mensaje 473936)

Otro problema es que el valor de la temperatura no se actualiza bien, quizas esta en 31 grados y si leo el puerto con mi programa me da 29 y no cambia.

En todo caso esto es lo más importante y por lo que deberías preocuparte, ya que si la lectura no es correcta, todo lo que hagas después no sirve.
En estos casos, yo propongo siempre utilizar diretamente el HyperTerminal de Windows (sin Delphi, sin componentes,...) de esa forma te aseguras de lo que estás leyendo. Una vez que la lectura ahí sea correcta, vas al programa. De esta forma eliminas posibles errores intermedios. Lo que leas ahí seguro que es lo que está llegando del puerto.
Revisa la configuración del sensor y si tiene varios modos.

Cita:

Empezado por Neftali (Mensaje 473951)

El problema aquí es que hay varias cosas mezcladas.

Eso debería poder hacerse con un timer añadiendo el intervalo que necesites.
Otro tema es que hay muchos de estos sensores que permiten dos modos, un modo continuo (parece ser el que tienes activado ahora) y otro bajo petición, podrías mirar si al que te estás conectando lo permite.

Debería haber alguna marca entre lecturas. Si defines un buffer de 2, ¿Qué pasará cuando leas una temperatura de 105?

En todo caso esto es lo más importante y por lo que deberías preocuparte, ya que si la lectura no es correcta, todo lo que hagas después no sirve.
En estos casos, yo propongo siempre utilizar diretamente el HyperTerminal de Windows (sin Delphi, sin componentes,...) de esa forma te aseguras de lo que estás leyendo. Una vez que la lectura ahí sea correcta, vas al programa. De esta forma eliminas posibles errores intermedios. Lo que leas ahí seguro que es lo que está llegando del puerto.
Revisa la configuración del sensor y si tiene varios modos.

Hola, gracias por responder, tenes razon con respecto a lo de las marcas, lo voy a implementar.El sensor es el ds1820 de dallas y solo tira la temperatura cuando se lo pide asi que no hay problema.Por el tema de la lectura de la temperatura, lo quiero hacer un poco mas elegante, por eso quiero usar delphi.

Cita:

Empezado por ecfisa (Mensaje 473938)

Para la toma de temperatura a intervalos regulares podes usar un TTimer (pestaña System).

Gracias, hace tanto que no programo, que me habia olvidado del ttimer.