Fórum fazer verificação de hora em hora #594957
19/06/2018
0
Bom Dia, tenho uma duvida.
eu tenho um projeto de uma agenda que esta funcionando e agora eu implantei uma funçao que lembra o evento no dia. so que eu coloquei ela no oncreate do form principal, ate ai tudo bem o programam abre ele verifica se tem alguma coisa na agenda para o dia e tudo. mais eu queria que ele fizesse essa verificação a cada 1 ou 2 horas. vcs pode me ajudar a fazer de alguma maneira, sou novo em delphi kk vlws muito obrigado
eu tenho um projeto de uma agenda que esta funcionando e agora eu implantei uma funçao que lembra o evento no dia. so que eu coloquei ela no oncreate do form principal, ate ai tudo bem o programam abre ele verifica se tem alguma coisa na agenda para o dia e tudo. mais eu queria que ele fizesse essa verificação a cada 1 ou 2 horas. vcs pode me ajudar a fazer de alguma maneira, sou novo em delphi kk vlws muito obrigado
Abner Carvalho
Curtir tópico
+ 0
Responder
Post mais votado
19/06/2018
Bom dia.
Veja uma forma:
Neste modo ele somente atualiza label.
procedure TForm1.Timer1Timer(Sender: TObject);
VAR HORA:INTEGER;
begin
//COPIA APENAS A HORA
HORA:=StrToInt(Copy(TimeToStr(NOW),1,2));
case HORA of
0: Label1.Caption:= 'LEMBRETE 00:00';
1: Label1.Caption:= 'LEMBRETE 01:00';
2: Label1.Caption:= 'LEMBRETE 02:00';
3: Label1.Caption:= 'LEMBRETE 03:00';
4: Label1.Caption:= 'LEMBRETE 04:00';
5: Label1.Caption:= 'LEMBRETE 04:00';
6: Label1.Caption:= 'LEMBRETE 06:00';
7: Label1.Caption:= 'LEMBRETE 07:00';
8: Label1.Caption:= 'LEMBRETE 08:00';
9: Label1.Caption:= 'LEMBRETE 09:00';
10: Label1.Caption:= 'LEMBRETE 10:00';
11: Label1.Caption:= 'LEMBRETE 11:00';
12: Label1.Caption:= 'LEMBRETE 12:00';
13: Label1.Caption:= 'LEMBRETE 13:00';
14: Label1.Caption:= 'LEMBRETE 14:00';
15: Label1.Caption := 'LEMBRETE 15:00';
16: Label1.Caption:= 'LEMBRETE 16:00';
17: Label1.Caption:= 'LEMBRETE 17:00';
end;
end;
Você pode evoluir isto para uma alerta na tela.
Tenho um outro aplicativo que funciona como agendador de tarefas
Em determinados horários ele executa uma ação.
Veja uma forma:
Neste modo ele somente atualiza label.
procedure TForm1.Timer1Timer(Sender: TObject);
VAR HORA:INTEGER;
begin
//COPIA APENAS A HORA
HORA:=StrToInt(Copy(TimeToStr(NOW),1,2));
case HORA of
0: Label1.Caption:= 'LEMBRETE 00:00';
1: Label1.Caption:= 'LEMBRETE 01:00';
2: Label1.Caption:= 'LEMBRETE 02:00';
3: Label1.Caption:= 'LEMBRETE 03:00';
4: Label1.Caption:= 'LEMBRETE 04:00';
5: Label1.Caption:= 'LEMBRETE 04:00';
6: Label1.Caption:= 'LEMBRETE 06:00';
7: Label1.Caption:= 'LEMBRETE 07:00';
8: Label1.Caption:= 'LEMBRETE 08:00';
9: Label1.Caption:= 'LEMBRETE 09:00';
10: Label1.Caption:= 'LEMBRETE 10:00';
11: Label1.Caption:= 'LEMBRETE 11:00';
12: Label1.Caption:= 'LEMBRETE 12:00';
13: Label1.Caption:= 'LEMBRETE 13:00';
14: Label1.Caption:= 'LEMBRETE 14:00';
15: Label1.Caption := 'LEMBRETE 15:00';
16: Label1.Caption:= 'LEMBRETE 16:00';
17: Label1.Caption:= 'LEMBRETE 17:00';
end;
end;
Você pode evoluir isto para uma alerta na tela.
Tenho um outro aplicativo que funciona como agendador de tarefas
Em determinados horários ele executa uma ação.
Raimundo Pereira
Responder
Gostei + 1
Mais Posts
19/06/2018
Emerson Nascimento
Você pode criar um serviço para fazer esta verificação (implemente threads para esta tarefa), assim não fica dependente do programa estar aberto.
Você pode ainda deixar um ícone na bandeja do sistema e este poderá exibir balões com os lembretes nos horários e/ou intervalos programados.
Você pode ainda deixar um ícone na bandeja do sistema e este poderá exibir balões com os lembretes nos horários e/ou intervalos programados.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)