AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Timer

Ein Thema von Zeref Darkmage · begonnen am 20. Jan 2018 · letzter Beitrag vom 21. Jan 2018
Antwort Antwort
Zeref Darkmage
(Gast)

n/a Beiträge
 
#1

Timer

  Alt 20. Jan 2018, 22:53
Delphi-Version: 7
Hi!

Ich benutze 2 Timer. Einen um eine Zahl auszugeben und Derweil auf einem Label die Zahlen aufploppen zu lassen. Und einen 2, welcher sich aktiviert wenn der erste Timer


15 mal "durchlaufen" wurde. Soweit so gut, funktioniert auch, jedoch stopt mein 2 Timer (bzw. das Shape läuft einfach aus der Form raus) nach besagter IF-Anweisung nicht

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(xGo); //xGo global als Integer
  randomize;
  lbl_wuerfel.Caption:=intToStr(random(6)+1);

  if xGo = 15 then
  begin
  timer1.enabled:=false;
  timer2.Enabled:=true;
  GoZahl:=STrToInt(label1.Caption); // GoZahl global als Integer
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
   inc(shapeGo); //shapeGo global als Integer
   shape1.Top:=shape1.Top-80;

   if shapeGo = GoZahl then begin
   timer2.Enabled:=false;
   end;
end;
Hoffentlich habt ihr einen Ratschlag

Lg Zeref
  Mit Zitat antworten Zitat
Zeref Darkmage
(Gast)

n/a Beiträge
 
#2

AW: Timer

  Alt 20. Jan 2018, 23:02
Okay,haha.. blöderweise ist mir in den Sinn gekommen erst eine Zahl zu belegen und dann auf das Label zu packen,

anstatt das Label hintenrum auf eine Integer variable.

Dass das jetzt vielleicht kein komplett verschwendet Beitrag wird kann mir jemand möglicherweise sagen was das direkt für einen Unterschied macht


Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(xGo);
  randomize;
  GoZahl:=random(6)+1;
  lbl_wuerfel.Caption:=intToStr(GoZahl);

  if xGo = 15 then
  begin
  timer1.enabled:=false;
  timer2.Enabled:=true;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
   inc(shapeGo);
   shape1.Top:=shape1.Top-80;

   if shapeGo = GoZahl then begin
   timer2.Enabled:=false;
   end;
end;
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#3

AW: Timer

  Alt 20. Jan 2018, 23:26
Da du ja dein problem gelöst hast geh ich mal auf einen direkten fehler ein.

RANDOMIZE gehört nicht in den timer sondern in deiner FormCreate phase,
das soll nur einmal aufgerufen werden!
  Mit Zitat antworten Zitat
Zeref Darkmage
(Gast)

n/a Beiträge
 
#4

AW: Timer

  Alt 20. Jan 2018, 23:31
Danke dir, ist geändert und gemerkt !

LG Zeref
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#5

AW: Timer

  Alt 20. Jan 2018, 23:40
Nachtrag:

Wenn du mit der RANDOM() funktion Zahlen zwischen 1-6 haben willst, solltest du das nach dem RANDOM() auch kontrollieren.
(Wegen dem Wort Würfel)

so wäre mein aufruf

GoZahl:=random(6); // <- hier könnte das ergebniss 0 sein aber ich lass dein +1 weg damit nur nach <1 geprüft werden brauch
if GoZahl < 1 then GoZahl := 1;

oder alternativ
GoZahl:=random(5); // hier kann 0-5 rauskommen
Inc(GoZahl, 1); // also geben wir hier noch einen rauf

das ist nur ein Vorschlag.

Grüße

Geändert von Fukiszo (20. Jan 2018 um 23:53 Uhr) Grund: mein fehler
  Mit Zitat antworten Zitat
gammatester

Registriert seit: 6. Dez 2005
999 Beiträge
 
#6

AW: Timer

  Alt 21. Jan 2018, 00:50
Du liegst um 1 daneben: Bei random(5) kann das Ergebnis nicht 5 sein: 0 <= random(6) <= 5 und 0 <= random(5) <= 4.

Es gibt auch nix zu kontrollieren: r := 1 + random(6) liefert Zahlen mit 1 <= r <= 6.
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz