Snake für die Schule programmieren,Pause;Highscoures einbaun

[MarkusUhl]

Sry das habe ich sogelernt. Dumm ist nur, dass die Steuerung per Pfeiltasten immer noch net funzt. Warum?

[Mavarik]

Ach und warum eine Paintbox....?

Da musst Du ja immer das ganze Feld neu "malen"?

Frank :coder:

[MarkusUhl]

Sry habe doch keine Ahnung... Nur warum geht das mit den Pfeiltasten immer noch nict

[Mavarik]

Zitat:

Zitat von MarkusUhl

Sry habe doch keine Ahnung... Nur warum geht das mit den Pfeiltasten immer noch nict

Warum ist Deine Richtung ein TPoint.... Egal...

Do hast ja noch nicht alle Richtungen umgesetzt..

Wie wäre es mit :

Delphi-Quellcode:

procedure TMainform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left  : Globalrichtung := links;
    VK_Right : Globalrichtung := rechts;
    VK_Up    : Globalrichtung := hoch;
    VK_Down  : Globalrichtung := runter;
    VK_Escape : Close;
  end; // of Key
end;

Oder besser in Deinen Fall:

Delphi-Quellcode:

procedure TMainform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left  : BLeftClick(Sender);
    VK_Right : BRightClick(Sender);
    VK_Up    : BUpClick(Sender);
    VK_Down  : BDownClick(Sender);
    VK_Escape : Close;
  end; // of Key
end;

Frank

PS.: Hat die Schlange keinen Körper?

PPS.:Warum prüfst Du immer auf Richtung.X=0 ab?

[MarkusUhl]

Die Schlange besteht aus Punkten? Weiß nicht was du mit Körpern meinst.
Was ist denn daran falsch, so funzt es doch wenigsten?

Dein Forschlag geht auch nicht, FormKeyDown ist undefiniert. Wo muss ich das definieren?
Habe nun folgendes:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left  : BLeftClick(Sender);
    VK_Right : BRightClick(Sender);
    VK_Up    : BUpClick(Sender);
    VK_Down  : BDownClick(Sender);
    VK_Escape : Close;
  end;
end;

Danke für deine Hilfe..

[Mavarik]

OK... Dann nochmal ganz langsam...

Klick auf Dein Form.

Dann F11
Dann Ereignisse
Dann nach unten und OnKeyDown suchen.
Dann Doppelklick.

Frank

[MarkusUhl]

Danke dir nun funzt es. Sry aber wir lernen nichts in der Schule...

[Mavarik]

Wieso schreibst Du die Länge in die Map?

[Mavarik]

PS.: Weil hier schon öffter die Frage nach Snake war, habe ich mich auch mal hingesetzt...

Wenn Du magst, schaues Dir mal an:

2D Version hier
3D Version hier

Frank :coder:

[MarkusUhl]

Habe dieses Muster hier gefunden und mich daran gehalten. Wie würdest du es machen..