Timer_Schleife

[mkinzler]

Wenn ich (Sprung-)Lables sehe bekomme ich immer Bauchweh

[chicky]

Zitat:

Wenn ich (Sprung-)Lables sehe bekomme ich immer Bauchweh

Tut mir leid, aber ich weiß keine Alternative ?!

[Zoot]

Zitat von chicky:

Zitat:

Wenn ich (Sprung-)Lables sehe bekomme ich immer Bauchweh

Tut mir leid, aber ich weiß keine Alternative ?!

Mit dem Sprung bastelst du dir doch eine Art Schleife. Warum?
Einfach ein Timer, wenn der ausgelöst wird in DB schreiben und fertig.
Was soll denn dein Sprung nach "Sprung1"?

[chicky]

Zitat:

Was soll denn dein Sprung nach "Sprung1"?

Wenn die Uhrzeit, die reinkommt keine vollen Zehn minuten hat
z.B. 13:49:57 ->Sprung
13:49:58 ->Sprung
13:49:59 ->Sprung
13:50:00 ->in DB schreiben

[Zoot]

Zitat von chicky:

Wenn die Uhrzeit, die reinkommt keine vollen Zehn minuten hat
z.B. 13:49:57 ->Sprung
13:49:58 ->Sprung
13:49:59 ->Sprung
13:50:00 ->in DB schreiben

Setz den Timer auf 1 Sekunde:

z.B. 13:49:57 ->Tu nichts
13:49:58 ->Tu nichts
13:49:59 ->Tu nichts
13:50:00 ->in DB schreiben
13:50:01 ->Tu nichts
usw.

[chicky]

Hab nen Timer gesetzt, der die Uhrzeit prüft und wenn volle 10Min erreicht sind, dann schreibt er in Db,allerdings dieselbe Zeile 42mal

[DeddyH]

Dann machst Du wohl etwas falsch

[jfheins]

Also wenns wirklich immer schön die volle Minute sein soll, würde ich das so machen:

Delphi-Quellcode:

// OnTimer
begin
if (MinuteOf(Now) mod 10 = 0) and SecondOf(now) = 0 then // runde 10 Minuten, Bedingung nochmal überprüfen
begin
  // Machwas
  Timer1.Interval := 570*1000; // 9 Minuten und 30 Sekunden
end
else
begin
  Timer1.Interval := 400;
// 0,4 Sekunden, damit sollte sichergestellt sein
// dass es ein Timer-Event gibt, wenn die Sekunden 0 sind.
end;
end;

Aber ist nur so ne Idee

[Zoot]

Zitat von jfheins:

Also wenns wirklich immer schön die volle Minute sein soll, würde ich das so machen:

Delphi-Quellcode:

// OnTimer
begin
if (MinuteOf(Now) mod 10 = 0) and SecondOf(now) = 0 then // runde 10 Minuten, Bedingung nochmal überprüfen
begin
  // Machwas
  Timer1.Interval := 570*1000; // 9 Minuten und 30 Sekunden
end
else
begin
  Timer1.Interval := 400;
// 0,4 Sekunden, damit sollte sichergestellt sein
// dass es ein Timer-Event gibt, wenn die Sekunden 0 sind.
end;
end;

Aber ist nur so ne Idee

Hier solltest du aber noch Sorge tragen, dass 3 Timerevents kommen können, während die Sekunde 0 ist.
[Edit: ok ok, das kann bei dir gar nicht passieren]