Discussion :

[pierrot67]

Bonjour

Est-il possible de programmer la date et l'heure d'ouverture d'une fenêtre comme dans outlook par ex pour rappeler un rendez-vous.
auriez-vous une piste pour m'orienter c'est une table paradox.
Dans cette table j'ai des champs daterdv,daterappel, heurerdv,heurerappel.

Merci d'avance.

[didier2020]

peut avec l'utilisation d'un timer (TTimer) et evenement ontimer....

une fonction regarderais dans ta base pour voir s'il y a un rdv...
par defaut la fenetre ne serait pas visible , form1.show
etc...

[couiss]

Salut,

j'ai effectivement fait de la même manière que didier2020, avec un timer...

C'était pour un réveil, un événement ontimer réglé sur 500ms, perso l'heure était affiché et dès que l'heure était l'heure du réveil, un wav était lu...

Si tu as besoin d'exemple de code je dois pouvoir retrouver cela !

A bientôt, Couiss.

[pierrot67]

Merci pour vos réponses

effectivement un bout de code serai le bien venu
mais j'avais aussi pensé au timer mais ce qui me bloquais c'était l'affichage du temps en ms. Mais si vous pouvez me donner un petit bout de code je suis sur que je finirai par trouver une solution à mon problème.

Encore Merci.

[couiss]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Timer1Timer(Sender: TObject);
var h,m,s,ms:word;
begin
  label1.Caption:=timetostr(time);//Affichage de l'heure actuelle
  application.ProcessMessages;
  decodetime(time,h,m,s,ms);
  if (h=updown1.Position) and (m=updown2.Position) then wake:=true;
  if (reveil) and (wake) then mediaplayer1.Play;//Réveil
  application.ProcessMessages;
end;

En fait pour le réveil je ne tiens compte que de l'heure et des minutes !!!

La propriété timer1.interval est de 500 (500ms).

A bientôt, Couiss.