Discussion :

[fredcop]

Bonjour a tous, voila bien longtemps que je n'avais plus programmer

j'en était rester a la version 2 de delphi... et depuis, j'ai l'argement perdu la memoire

voila donc mon probleme qui je suis sur vous semblera ridicule

J'ai poser un datetimepicker sur une fiche (delphi32) et je voudrai savoir comment faire pour pouvoir déclancher un évenement à une heure definit par ce datetimepicker

Merci d'avance !

[OutOfRange]

Salut

Voilà ce que tu dois faire:
1) poser un TTimer sur ta fiche (TForm1)
2) définir sa propriété interval, laquelle déterminera la fréquence de déclenchement de la procédure TForm1.Timer1Timer
3) implémenter dans cette procedure le code qui s'exécutera si l'heure du Tdatetimepicker est la même que l'heure système (time)

Code :

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

1
2
  if datetimepicker1.Time>=Time
  then

Bonne prog

[fredcop]

Rien que çà ?? ( j'ai sacrément besoin de m'y remettre )

Merci beaucoup de ta réponse rapide !

[fredcop]

rebonsoir a tous, je viens d'essayer ce code

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if datetimepicker1.Time >= time
then edit1.Text := 'il est trop tard'
else edit1.Text := 'il est trop tot'

mais le edit1 m'indique toujours 'il est trop tard' quelque soit l'heure de datetimepicker

merci de votre aide !

[fredcop]

up

merci

[PierreDelcroix]

N'oublie la règle numéro 1 des dates : deux dates ne sont jamais la même.

[OutOfRange]

Salut
Je vois pourquoi
En fait, il ne faut jamais oublier que date (la date système) et time (l'heure système) sont des TDateTime, c'est à dire des double : un nombre avec une partie entière et une partie décimale
Donc, dans ton code, datetimepicker1.Time est composé :
- d'une partie décimale égale à la fraction de 24H que représente l'heure affichée sur le datetimepicker : par ex, 0,5 pour 12H
- d'une partie entière qui ici est à 39128 (15/02/2007)
Or, time est lui composé :
- d'une partie décimale égale à la fraction de 24H que représente l'heure système
- d'une partie entière qui est ici à zéro, soit le 30/12/1899
Ce qui veut dire que si tu affiches 12:00:00 dans ton datetimepicker, datetimepicker1.Time=39128,5 alors que time=0,5

Je pense que tu pourrais régler le pb comme suit

Code :

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

1
2
3
  if timeof(datetimepicker1.Time) >= timeof(time)
  then edit1.Text := 'il est trop tard'
  else edit1.Text := 'il est trop tot'

Et désolé, c'est moi qui t'ai mis sur la mauvaise voie

Bonne prog

[edam]

Code :

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

1
2
3
  if timeof(datetimepicker1.Time) >= timeof(now)
  then edit1.Text := 'il est trop tard'
  else edit1.Text := 'il est trop tot'

avec bien sûr datetimepicker1.date:=date (aujourd'hui)

[fredcop]

Merci atous j'essaye çà et je vous tiens au courant


va bien faloir que ça rentre la dedans !!

a+