Mantener un timer ejecutandose cada minuto dentro de la aplicacion

[Lizette]

Hola compañeros, estoy haciendo una aplicación que contiene un formulario de recordatorios, el caso es que quiero que me revise cada minuto la tabla de recordatorios para verificar si existe algun evento más próximo, si lo encuentra me lo muestra, no importando en qué formulario de la aplicación esté ubicado.

Alguien sabe cómo puedo hacer esto

Gracias y saludos

[rgstuamigo]

El componente Timer tiene una propiedad numerica que se llama Interval la cual define el intervalo de tiempo que el Timer debe ejecutar la accion de su unico evento OnTimer, esta propiedad esta dada en milisegundo, es decir
1 segundo=1000 Milisegundo.
Por ejemplo si quisiera se ejecute la accion cada minuto(aunque no es muy exacto pero vale) solo debo hacer la siguiente regla de tres simple:
Si 1 Segundo=1000 Milisegundo
entonces 60 segundos(osea un minuto) sera equivalente a X milisegundo:
Haciendo los calculos: X=60*1000;
Entonces concluimos que para que el Timer ejecute una determinada accion cada minuto, se debe poner su propiedad Interval=60000.
Saludos.....

[rgstuamigo]

Se me olvido comentarles por que no es muy exacto la ejecucion de un timer
que se pone a un determinado intervalo:
La razon es, como un Timer es un hilo y por ende es un proceso para el Planificador del Sistema Operatimo por tal motivo recibe tambien un Quantum(tiempo de ejecusion) por estar trabajando en sistemas Operativos multitarea y multiproceso, puede ocurrir el caso que nuestro Timer ya le tocara en tiempo real la ejecucion de su evento OnTimer pero el Sistema operativo no le ha dado Quantum (no es su turno)es decir otro proceso esta haciendo el uso de la CPU y ya cuando le toca su turno se retraso en el tiempo real que debiera realizar su evento.
Es por ese motivo que se retrasaria en puequeños nanosegundos,milisegundos (claro en intervalos pequeños no se siente mucho la diferencia)su ejecucion que a la larga seria horas y esto se complica mucho mas si tenemos muchos programas habiertos.
Edito: Aqui tienen algo para profundizar el tema
Espero haberme explicado.....
Abrazos a todos...
RGS

[roman]

Hombre, entiendo tu preocupación por la exactitud y es bueno que lo aclares, pero no creo que unos cuantos nanosegundos afecten para el recordatorio de una cita. Y es que no me queda claro por qué comentas que, a la larga la diferencia sería de horas. No creo que esto afecte para el problema en cuestión. El timer se activará, más o menos, cada minuto, y se reiniciará la cuenta, con lo cual no importan ya los milisegundos acumulados hasta el momento.

¿O hay algo que no estoy viendo?

// Saludos

[krlox31416]

sip...

a lo mejor si hechas a andar un procedimiento se resuelve tu problema...

si utilizas los milisegundos checa en la ayuda que trae delphi...

y veras...

oarece que la abreviatura que utiliza es msecs...

haber si en algo te sirve este procedimiento:

Código Delphi [-]
procedure Delay(msecs:integer);
 var
    FirstTickCount:longint;
 begin
      FirstTickCount:=GetTickCount;
      repeat
            Application.ProcessMessages;
      until ((GetTickCount-FirstTickCount) >= Longint(msecs));
 end;

y la mandas llamar asi en milisegundos:

Código Delphi [-]

procedure TForm2.ButtonClick(Sender: TObject);
begin
Delay(2000);  //lo que va entre parentesis son los segundos en mi caso son 2 segundos los que neceito... ya dependera de ti tal vez con ciclos ajustarla...
end;

sele pues y espero y te sirva!!!

saludos !!!

[rgstuamigo]

Hombre, entiendo tu preocupación por la exactitud y es bueno que lo aclares, pero no creo que unos cuantos nanosegundos afecten para el recordatorio de una cita. Y es que no me queda claro por qué comentas que, a la larga la diferencia sería de horas. No creo que esto afecte para el problema en cuestión. El timer se activará, más o menos, cada minuto, y se reiniciará la cuenta, con lo cual no importan ya los milisegundos acumulados hasta el momento.

No estaba hablando de exactitud en realidad solo estaba haciendo una pequeña aclaracion,pero para ilustrarte como ejemplo base aunque ya fuera del tema El movimiento de rotacion de la tierra que aparentemente lo hace en 24 horas, pero en realidad no es asi sino que lo hace en:24,016438....horas, que en un año esa fraccion se hace 6 horas, osea que la tierra para dar una vuelta alrededor del sol tarda 365 dias y 6 horas mas (Movimiento de traslacion), es por eso que esas 6 horas de retrazo en el tiempo real del actual calendario gregoriano en 4 años se hacen 24 horas y por eso es necesario aumentar a febrero 1 dia mas, si los cientificos no se hubieran dado cuenta de eso, estariamos muy retrazado con respecto al tiempo real. No crees.
Ahora aplicando esa misma logica y conociendo un poquito del planificador del sistema operativo, deducimos que puede pasar lo mismo ,"claro ustedes diranpequeños nanosegundos",esos pequenas fraccionesde segundos se pueden convertir en horas como lo he ilustrado con el ejemplo.Quisas a algunos diran que importa eso, bueno eso es depende de lo que se quiera hacer,y depende de cada uno; yo solo quise hacer una pequeñita aclaracion.
Un gran saludos a todos....
RGS

[roman]

De lo que tú hablas es de una acumulación de errores, pero aquí eso no importa porque la cuenta se reinicia en cada vuelta del timer. Dicho de otra forma, el timer no se usa para llevar la cuenta de la hora de las citas sino para comparar, cada tanto tiempo, la hora actual del reloj de la computadora con la hora de las citas.

// Saludos

[rgstuamigo]

Creo que no me has entendido amigo Roman, lo que trato o traté de explicar es como el planificador del sistema oprativo ,planifica que proceso va hacer uso de la CPU, es decir existe una politica de planificacion implementada en el sistema Operativo y como el Timer es un subproceso,igualmente es planificado como proceso, es decir resive un tiempo en el cual el planificador del sistema operativo le permite hacer uso de la CPU,y como explique anteriromente puede ocurrir que pasó su tiempo que realmente debiera ejecutar su accion por que hay otro proceso ocupando la CPU,claro en realidad a ciencia cierta el humano no lo puede persibir porque son nanosegundos o milisegundos,pero a la larga esas fracciones de tiempo suman,Desde luego en realidad existen muchas politicas de planificacion de procesos como ejemplo Round Robin , FIFO,LIFO,CFS,etc.Ahora habria que ver cuales de estos algoritmos utiliza Windows,pero eso ya otro tema.
Saludos....

[roman]

Sí, sí, todo eso ya lo sé. Pero insisto en que no tiene nada que ver con lo que aquí hablamos. Repito: la acumulación de errores aquí no importa porque la cuenta se reinicia cada vez. Reiniciar es la palabra clave.

// Saludos

[rgstuamigo]

Sí, sí, todo eso ya lo sé. Pero insisto en que no tiene nada que ver con lo que aquí hablamos. Repito: la acumulación de errores aquí no importa porque la cuenta se reinicia cada vez. Reiniciar es la palabra clave.

Si, eso es en el Timer, pero en realidad en el tiempo real no.
Es decir como el timer se reinicia internamente,entonces con relacion al tiempo real que debiera salir el aviso variaria en pequeñas fracciones de tiempo.
Desde luego no vamos a polemizar el tema, como algunos dicen ni si quiera el interesado se manifiesta.. .
Saludos...

[Lizette]

Gracias por sus comentarios ..

[Lizette]

Hola chicos, ps implemente lo del timer cada segundo interval=1000 el k viene por defecto, pero el problema esk tengo que abrir la tabla y revisar si hay registros que coincidan con la fecha y hora actual, pero en donde implemento este timer es un formulario que tiene 4 check box, para k el usuario elija la opcion a la que kiere acceder, hago lo siguiente en el ontimer, pero no me permite acceder a ninguna opcion de los checkbox del formulario, no me keda mas k ponerle run-program reset.

Código Delphi [-]
var
fecha:string;
dia:string;
mes:string;
ano:string;
ff:string;
hr:string;
hor:string;
minu:integer;
min:string;
hrs:string;
mer:string;

begin
if(activar=1)then
begin
  hr:=TimeToStr(time());
  hrs:=copy(hr,1,2);
  min:=copy(hr,4,2);
  mer:=copy(hr,10,4);
  minu:=StrToInt(min);
  min:=IntToStr(minu);
  hor:=hrs+':'+min+' '+mer;

fecha:=DateToStr(date());
dia:=(copy(fecha,1,2));
mes:=(copy(fecha,4,2));
ano:=(copy(fecha,7,4));
ff:=ano+'-'+mes+'-'+dia;

ADOtblRec.Open; //Si esto lo pongo
while ADOtblRec.Eof<>True do
begin
//aqui no da problemas pero ps no revisa la tabla
if(ADOtblRec.Locate('Fecha',ff ,[loPartialKey,loCaseInsensitive]))and (ADOtblRec.Locate('Hora',hor ,[loPartialKey,loCaseInsensitive]))then
 begin

  if not(frmMostrarRec.Active=True)then
   frmMostrarRec.ShowModal;
  sndPlaySound('C:\WINDOWS\Media\chimes.wav',SND_NODEFAULT Or  SND_ASYNC);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Hora']);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Evento']);

  ADOtblRec.Edit;
  ADOtblRec.Delete;
  ADOtblRec.Refresh;

end;//locate
 end;//while
  ADOtblRec.Close;
end;//activar
end;//ppal

Espero k me puedan ayudar, ya le he intentado de varias maneras y nada..
Gracias

[[Lepe]]

¿donde avanzas o retrocedes de registros en el bucle while?

Si se encuentra un registro, se edita y se borra (no sé para qué pero bueno... eso es otra historia), el tema es que al borrar sí se avanza en los registros del adotable, pero si no entra en el locate, tienes un bucle infinito.

...creo!

[Lizette]

mmm gracias por la idea, revisare ese detalle..

[Lizette]

Problema resuelto [Lepe], gracias, sí era eso, entraba a un bucle infinito