wechfunktion

[Gentleman]

hi DPler!

ich möchte in mein programm eine kleine weckfunktion einbauen. ich versuche es mit diesem code:

Delphi-Quellcode:

if now= Wake then //wake ist die weckzeit
  begin
    MediaPlayer2.Play;
  end;

leider funktioniert das bei mir nicht. mache ich da was falsch oder muss ich das ganz anders lösen?

thx im voraus!

[ibp]

stimmen denn die formate bei der if-abfrag?

[Matze]

Kommt eine Fehlermeldung?

[glkgereon]

nie floats mit = vergleichen sondern

abs(x-y) < genauigkeit

[Gentleman]

jo die stimmen.

wenn ich es folgendermaßen löse läuft es auch, allerdings wird die wave-datei dann immer wieder gespielt.

Delphi-Quellcode:

if now> Wake then //wake ist die weckzeit
  begin
    MediaPlayer2.Play;
  end;

[Matze]

Hast du den Code eigentlich im einem Timer? Falls ja, dann stell ein Intervall < 1s ein.

[Gentleman]

Zitat von glkgereon:

nie floats mit = vergleichen sondern

abs(x-y) < genauigkeit

und wie finde ich so eine genaue zeit heraus?

[glkgereon]

Delphi-Quellcode:

if abs(now-Wake) < 2/(24*60*60) then //auf 2 sek genau
  begin
    MediaPlayer2.Play;
  end;

[Gentleman]

hm...also irgendwie funzt das bei mir nicht

[gothic_mike]

Zitat von Gentleman:

jo die stimmen.

wenn ich es folgendermaßen löse läuft es auch, allerdings wird die wave-datei dann immer wieder gespielt.

Delphi-Quellcode:

if now> Wake then //wake ist die weckzeit
  begin
    MediaPlayer2.Play;
  end;

das ist logisch und korrect, das das wave immer wieder abgespielt wird, weil ja logischerweise
now nach erreichen von wake (also bei now >= wake) immer großer ist...

das ganze müsste in einen Timer, der beim ersten (now > wake) auf Disabled gestellt wird...