Wecher - Abfrage fehlt

[Z32]

Hallo,

ich möchte einen Wecker programmieren, also man hat eine Uhrzeit-Anzeige und ein Feld wo man die Uhrzeit einträgt, wo man geweckt werden möchte. So, die Uhrzeit habe ich schon. Ein Timer und auf das OnTimer Ereignis habe ich volgendes gelegt.

label1.caption := timetostr (time);

Und jetzt weiß ich aber nicht, wie ich das hinbekomme, das immer geprüft wir, stimmt die Uhrzeit mit der Eingabe überein. Wie kann man das machen ???

[SirThornberry]

du musst überprüfen ob der Text im "Edit" den gleichen Wert hat wie die Caption im "Label"

[ichbins]

nimm eine TTimer-Komponente (Register SYSTEM), stell das Intervall auf das millisekundenintervall in dem geprüft werden soll und schreib dann in die ontimer dass er prüft.

[Z32]

Aber dann prüft der doch nur einmal, oder bei dem Timer nicht. Denn wenn der nur einmal prüft, brings das ja nicht

[mOzZzI]

Zitat von Z32:

Aber dann prüft der doch nur einmal, oder bei dem Timer nicht. Denn wenn der nur einmal prüft, brings das ja nicht

Großes Fragezeichen!

Der Timer üperprüft dann jede Millisekunde den Eintrag mit dem vom Label...
Oder hab ich das falsch verstanden was du geschrieben hast

//EDIT

Delphi-Quellcode:

procedure TForm1.timereventhalt;
begin
  if Edit1.Text <> Label1.Caption then
  //Klingel wecker
end;

[Z32]

Ja genau, so meinte ich das. Wenn der Timer dann jede sekunde mit dem label vergleicht, ist das ok. Dann ist das doch richtig, oder muss man nochetwas beachten ???

[Z32]

Vielen Dank für die Tipps. Klappt jetzt. Danke

[mOzZzI]

Zitat von Z32:

Ja genau, so meinte ich das. Wenn der Timer dann jede sekunde mit dem label vergleicht, ist das ok. Dann ist das doch richtig, oder muss man nochetwas beachten ???

Weiteres ist dir überlassen, wenn du noch andere Optionen mit einbauen willst! Aber wenn du jede Sekunde überprüfen willst musst du

Timer1.Intervall:=1000; machen^^

Gruß Philipp...

[alzaimar]

Sacht mal Jungs, jede Millisekunde? Prüfe 1x pro Minute, bimmle, sobald die aktuelle Zeit GRÖßER als die Weckzeit ist und stell den Wecker dann einfach ab!

Delphi-Quellcode:

Procedure TForm1.WeckerTimer (Sender : TObject);
Begin
  If Now > MyWeckZeit Then Begin
     Wecker.Enabled := False;
     BimmelBim;
  End;
End;

Procedure TForm1.btWeckerStellenClick(Sender : TObject);
Begin
  MyWeckZeit := Date + StrToTime (edWeckZeit.Text);
End;

Auf der Form ist ein Edit-Feld 'edWeckZeit', ein Timer 'Wecker'. Deklariert ist ein Feld 'MyWeckzeit : TDateTime' und eine Methode 'BimmelBim' die bimmelt.

[mOzZzI]

[quote="alzaimar"]Sacht mal Jungs, jede Millisekunde? Prüfe 1x pro Minute,...[quote]

Wieso bloß einmal in der Minute, es kann genauso sein, das man im Edit Feld die Sekunden eingeben kann, wann der Wecker klingeln soll...*g*

Gruß Philipp


//EDIT

Auserdem hab ich danach gesagt, wenn du bloß jede Sekunde überprüfen willst...

sollst du

Timer1.Intervall:=1000; schreiben^^