Ein ganz merkwürdiges Problem... hab nicht mal den Ursprung!

[Lefko]

Hallo Freunde ,

ich hab ein kleines Programm geschrieben (Snake um genau zu sein ) mit dem ich ein Problem ungeahnter Herkunft habe:

Die App wird gestartet, und es läuft ein Timer, der jede sekunde den integer in einem label um 1 vermindert (also ein zähler) so: 3 , 2 , 1 LOS
wenn der Spieler verloren hat, wird das Programm beendet und per ShellExecute erneut gestartet.

HÄUFIG kommt es nun aber vor, dass das Label folgende Reihenfolge zeigt: 3, 1, -1, -2,-3,...
und dadurch dann das Programm durcheinander kommt, timer falsch gestartet werden und tasten nicht reagieren!

HÄÄÄ??

ich hab dann festgestellt, dass dieses Mysterium seltener auftritt, wenn ich den Speedbutton zum starten (DANN läuft der zähler) nicht per Enter sondern mit der Maus betätige.... warum auch immer...

Hat irgendjemand IRGENDEINE Idee, woher so n quatsch kommen könnte?

hier ist der text, der ausgeführt wird:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
StartZaehler := 3;

//Feld anpassen
Form1.width := round(Form1.width div 10) * 10;
Form1.height := round(Form1.height div 10) * 10;
Image1.width := Form1.width;
Image1.Height := Form1.Height - 40;
Image1.Left := 0;
Image1.Top := 40;

//StartFeld generieren
CreateStartArray;
CreateStartSnake;
DrawArray(Spielfeld, Image1, true{schlange}, true{frucht}, true{wand}, true{nix});
ZeichneAugen;
end;

// und der Timer, der den StartZaehler vermindert:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Speedbutton1.visible := true;
Speedbutton1.caption := inttostr(StartZaehler);
dec(StartZaehler);

if StartZaehler = -1 then begin
                          image1.Canvas.pen.color := SchlangenFarbe;
                          image1.Canvas.brush.Color := SchlangenFarbe;
                          speedbutton1.visible := false;
                          timer1.enabled  := true;
                          timer2.Enabled := false;
                          SetCursorPos(Form1.Left + Form1.width + 10, Form1.Top);
                          CreateFruit;
                          end;
timer2.Interval := 1000;
end;

MfG Lefko.

[MrKnogge]

1.
das timer2.interval würde ich vor dem timer2.enabled = true schreiben,
warum darein ?

2.
schreibe mal nicht "=-1" sonder "<=-1"

[Lefko]

Zitat von MrKnogge:

das timer2.interval würde ich vor dem timer2.enabled = true schreiben,
warum darein ?

weil der timer2 nicht erst 1 sekunde nach klicken des speedbuttons ausgeführt werden soll, sondern sofort. danach aber dann immer nur noch im sekundentakt zu anfang ist timer2.interval 1.

Zitat von MrKnogge:

schreibe mal nicht "=-1" sonder "<=-1"

Das ändert aber doch nix an dieser merkwürdigen Reihenfolge? 3 , 1 da fehlt ja auch die 2....

MfG Lefko.

[scp]

Wenn der Timer2 direkt nach dem drücken aktiv werden soll, nehme ich mal an, das der interval am anfang 1 ist oders so. Damit er keine zahlen überspringt, musst du also interval := 1000 ganz an den Anfang von Timer2Timer setzen.

[MrKnogge]

dann müsste es funktionieren, schreib mal statt "dec" "Startzaehler := Startzeahler-1"

PS:
intervall auf 1 bringt nichts, das minimum was ausgeführt werden kann ist 50.
Aber vielleicht braucht dein Rechner für den Timer-Ablauf länger als 50ms ?
- Wobei ich mir das nicht vorstellen kann (probiers aber einfach mal)

[Christian Seehase]

Moin Lefko,

schreib' mal in das Timer Event als erstes Timer.Enabled := false, und setz' das am Ende wieder auf true, damit sich nicht mehrere Aufrufe des Events gegenseitig beeinflussen, falls der Aufruf erfolgt, während das Programm die Event Prozedur noch abarbeitet.

[Lefko]

Hab eure Ratschläge beherzigt,
aber an dem Auftreten dieses Fehlers hat es nix geändert...
also manchmal ist die reihenfolge statt 3,2,1,LOS eben 3,1,-1,-2,-3,-4,etc...
merkwürdig ist dabei eben auch, dass keine (sonst funktionierenden) tasten mehr reagieren im spiel ausser ESC.
und wie schon gesagt, je öfter ich das Shellexecute mit dem Mauszeiger auslöse (übern button) desto seltener kommt der fehler; meistens eben wenn ich ENTER verwende...

koooooomisch..

MfG Lefko.

[scp]

Wie wärs damit:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
timer2.Enabled := false; 
timer2.Interval := 1000; 

Speedbutton1.visible := true; 
Speedbutton1.caption := inttostr(StartZaehler); 
dec(StartZaehler); 

if StartZaehler = -1 then begin 
                          image1.Canvas.pen.color := SchlangenFarbe; 
                          image1.Canvas.brush.Color := SchlangenFarbe; 
                          speedbutton1.visible := false; 
                          timer1.enabled  := true; 
                          SetCursorPos(Form1.Left + Form1.width + 10, Form1.Top); 
                          CreateFruit; 
                          end
                     else timer2.Enabled := true; 
end; 

// ...

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  timer2.Interval := 50;
  timer2.Enabled := true; 
end;

[Robert Marquardt]

Lass doch den Kaese mit der Interval-Manipulation.

Delphi-Quellcode:

  Timer2.Interval := 1000;
  Timer2Timer(Self);
  Timer2.Enabled := True;

Niemand verbietet dir den Timer-Event selbst aufzurufen.

[Lefko]

@Marquart: Oke, hab ich mal gemacht! Ist sicher sinnvoll, aber ob der Fehler auftritt weiss ich noch nicht, hatte noch keine Zeit, es öfter zu probieren.

MfG Lefko.