Funktion um eine angegebene Uhrzeit starten

sintec · Beiträge: 133

Hallo nochmal an alle Helfer,

Kann mir einer verraten wie man eine Funktion um eine bestimmte Uhrzeit (die in ein Editfeld eingegeben wird) ausführt?

noidic · Verfasst: Do 10.05.07 12:33

Timer laufen lassen, im OnTimer-Event Uhrzeiten vergleichen, wenn aktuelle Uhrzeit > eingegebene Uhrzeit, funktion starten.

_________________
Bravery calls my name in the sound of the wind in the night...

sintec · Beiträge: 133

Dass mit Uhr vergleichen habe ich jetzt nicht so ganz verstanden.
Wie würde den das ganze als Code aussehen?

JensLaskowski · Beiträge: 168 Win XP BDS 2006 Architect

ich würde es so machen:

Doppelklick auf den Timer dann

TimeToStr(now) einer Variable zuweisen und diese Variable dann mittels einer IFFrage mit aktuelle zeit vergleichen.

Mit freundlichen Grüßen
JensLaskowksi

noidic · Verfasst: Do 10.05.07 12:43

Mal so komplett ohne Eingabeprüfung:

markieren

Delphi-Quelltext

1:
2:

if StrToTime(Edit.Text) <= time then
  --Funktionsaufruf--

_________________
Bravery calls my name in the sound of the wind in the night...

sintec · Beiträge: 133

noidic hat folgendes geschrieben:

Mal so komplett ohne Eingabeprüfung:

markieren

Delphi-Quelltext

1:
2:

if StrToTime(Edit.Text) <= time then
  --Funktionsaufruf--

so funktioniert es nicht ganz, dem Programm ist es irgendwie egal welche Uhrzeit man eingegeben hat, es startet schon früher bzw. gleich nach der Aktivierung.

woran kann es liegen?

hier ist mein Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

if strtotime(lsb_time.Items[t]) <= now then
    begin
      btn_sichernClick(Sender);
      inc(t);
    end;
    if lsb_time.Items.Count = t then
      tmr_timecheck.Enabled := false;

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

Kann es sein, dass du auf >= überprüfen müsstest, statt auf <= ?! :gruebel:

_________________
Anonymes Eckenkind

sintec · Beiträge: 133

Miri hat folgendes geschrieben:

Kann es sein, dass du auf >= überprüfen müsstest, statt auf <= ?! :gruebel:

Nein ich will ja die Funktion ab einer bestimmten Uhrzeit ausführen.

Aber auf >= reagiert es überhaupt nicht!

Chatfix · Verfasst: Do 10.05.07 15:32

In welchem Format steht denn die Uhrzeit im Edit-Feld?

HH:MM:SS ?

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

sintec · Beiträge: 133

Chatfix hat folgendes geschrieben:

In welchem Format steht denn die Uhrzeit im Edit-Feld?

HH:MM:SS ?

Die Uhrzeit wird in eine Listbox (lsb_time) übertragen im Format 'hh:mm'!

Ich brauch es nicht auf die Sekunde genau, nur dass er nach einer bestimmten zeit die Funktion ausführt.

//EDIT:
Kann es sein, dass es irgendwie noch mit Datum zusammenhängt?
Weil er führt die Funktion schon vor der gewünschten Uhrzeit aus.

Chatfix · Verfasst: Fr 11.05.07 13:16

Aud der Hilfe von Delphi:

Zitat:

Zu diesem Beispiel gehören ein Eingabefeld und eine Schaltfläche. Wenn der Benutzer eine Uhrzeit im Format HH:MM:SS eingibt, wird dieser String in einen TDateTime-Wert konvertiert. Je nach eingegebener Uhrzeit wird dann eine entsprechende Begrüßung angezeigt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);

var
  ATime: TDateTime;
begin
  ATime := StrToTime(Edit1.Text);
  if ATime < 0.50 then
    ShowMessage('Good Morning')
  else
    ShowMessage('Good Afternoon');
end;

Vielleicht hilft dir das ja.

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

sintec · Beiträge: 133

Vielen Dank an alle.

ich habe es gelöst, in dem ich das Datum mitangeben lasse.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme