Timer

[Reap3r]

HI Leute!

Ich hab mal ne Frage zu Timern.

Ich habe folgenden code:

Delphi-Quellcode:

if ErgebnisRest > LFilm then begin
  form2.Image1.Visible := false;
  form2.Image2.Visible := true;
  end;
if Ergebnisrest < LFilm then begin
  form2.image1.visible := true ;
  form2.image2.visible := false ;
  end;

Jetzt will ich das nach jedem Intervall das geprüft wird.

Es ErgebnisRest soll also nach jedem Intervall geprüft ob es größer oder kleiner ist als LFilm.
ErgebnisRest soll sich also auch nach jedem Intervall verändern( sonst würde das ganze keinen Sinn machen).
Somit soll also sobald ErgebnisRest kleiner wird als LFilm das eine Bild sichtbar und das andere unsichtbar werden.

[alleinherrscher]

Kannst du das Image nicht direkt dort sichtbar/unsichtbar machen, wo du ErgebnisRest berechnest - dafür muss doch nicht extra ein Timer laufen, oder?

[DeddyH]

Wie wäre es mit der Kurzform?

Delphi-Quellcode:

form2.Image1.Visible := ErgebnisRest < LFilm;
form2.Image2.Visible := ErgebnisRest > LFilm;

Und wie schon gesagt, ein Timer ist da eigentlich unnötig.

[himitsu]

oder so

Delphi-Quellcode:

form2.Image1.Visible := ErgebnisRest < LFilm;
form2.Image2.Visible := not form2.Image1.Visible;

und das mit dem Timer wurde ja schon gesagt

[DeddyH]

Kommt jetzt darauf an, was passieren soll, wenn ErgebnisRest LFilm entspricht. Soll immer eins der Images sichtbar sein, ist Deine Version richtig, ansonsten meine ;)

[himitsu]

:oops: ups, den Fall "Beides gleich" hab ich doch glatt übersehn

[DeddyH]

Nobody' s perfect :zwinker:

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
TTimer wäre VCL, aber vermutlich wird es nicht darauf hinauslaufen. Dann schiebe ich es - joah - mal hier hin.

[Reap3r]

Naja es geht mir aber vor allem farum, dass ErgebnisRest nach jedem Intervall des Timer um einen bestimmten Betrag weniger wird.( in diesem Fall ist dieser ZErgebnis)!
Wie kann ich jetzt den timer so programmieren, dass er also nach jedem intervall den Wert ErgebnisRest verändert und er auch nach jedem Intervall prüft, ob ErgebnisRest größer oder kleiner ist als LFilm?

[DeddyH]

Wo ist das Problem? Du kannst die Variable doch im Timer-Ereigins dekrementieren und anschließend vergleichen. Allerdings würde ich zuerst einmal nachsehen, ob evtl. eine Schnittstelle z.B. als Callback zur Verfügung steht, das wäre genauer und eleganter als ein Timer.

[Reap3r]

sry bin noch net so der profi!

kannst du mir en beispiel im code geben?

[DeddyH]

Delphi-Quellcode:

procedure TDeinForm.DeinTimerTimer(Sender: TObject);
begin
  //Ergebnisrest herunterzählen
  dec(ErgebnisRest);
  //und auswerten
  Image1.Visible := ErgebnisRest < LFilm;
  Image2.Visible := ErgebnisRest > LFilm;
end;

[Reap3r]

um was wird hier ergebnisrest hruntergesetzt?(dec(ErgebnisRest))

[Medium]

F1 ist dein Freund, und deutlich schneller als ein Beitrag im Forum ;)