Schiffe versenken programmieren

[DeddyH]

Sollte die Logik nicht erst einmal klar sein, bevor man eine Oberfläche bastelt? Sonst landet man wieder bei der "function follows design"-Programmierung und vermengt schlimmstenfalls Darstellung und Logik.

[Popov]

Das ist keine Oberfläche, das ist nur zum Testen des Inhalts von dem Array.

[p80286]

Zitat von DeddyH:

Sollte die Logik nicht erst einmal klar sein, bevor man eine Oberfläche bastelt? Sonst landet man wieder bei der "function follows design"-Programmierung und vermengt schlimmstenfalls Darstellung und Logik.

Zitat von Popov:

Das ist keine Oberfläche, das ist nur zum Testen des Inhalts von dem Array.

Ich denke jetzt hole ich mir Chips und Bier.

Gruß
K-H

[leodinho]

Danke schonmal für eure zahlreichen ideen.. Habe sie weitgehend umgesetzt..
Nun habe ich auch schon einen zähler sowie eine bestenlisten , die ich mit tvielist erstellt habe. (:
Nun möchte ich mich wieder an den schwierigen part setzten -> schiffe platzieren
Wie wäre es sinnvoll dabei vorzugehen? (:

[Puke]

Highscores als letztes!
Konzentrier dich auf das Spiel, denn ohne Spiel kein Highscores!

[Popov]

@leodinho

Was hast du bisher programmiert?

[Sir Rufo]

Zitat von leodinho:

Danke schonmal ür eure zahlreichen ideen.. Habe sie weitgehend umgesetzt..
Nun habe ich auch schon zähler fertig und will jetzt erstmal weitere, leichte parts programmieren..
Wie könnte ich ein highscore einbauen?
Oder soll ich jetzt erstmal anfangen die schiffe auf dem vorhanden welt anzeigen zu lassen?

Wenn man geplant vorgeht, dann arbeitet man sich von der groben Planung immer tiefer bis zur Implementierung durch..

Nach der groben Planung definiert man die Funktionen/Klassen/Datentypen.

• Datentyp TSpielfeld : array[0..11,0..11] of integer;
• Funktion procedure ZeigeSpielfeld( ASpielfeld : TSpielfeld );
• Funktion function SchussAuf( ASpielfeld : TSpielfeld; x,y : Integer ) : Integer;

Wichtig ist, dass man hier das erwartete Verhalten festlegt und dokumentiert.
(Beispiel: Welche Werte gibt SchussAuf zurück und welche Bedeutung haben diese)

Dann kann man diese bei der Implementierung auch benutzen, ohne dass diese schon implementiert sein müssen. Es passiert halt einfach noch nichts, gibt aber auch keinen Fehler.

Dann geht man an die Implementierung der einzelnen Teile.

[leodinho]

Zitat von Sir Rufo:

Zitat von leodinho:

Danke schonmal ür eure zahlreichen ideen.. Habe sie weitgehend umgesetzt..
Nun habe ich auch schon zähler fertig und will jetzt erstmal weitere, leichte parts programmieren..
Wie könnte ich ein highscore einbauen?
Oder soll ich jetzt erstmal anfangen die schiffe auf dem vorhanden welt anzeigen zu lassen?

Wenn man geplant vorgeht, dann arbeitet man sich von der groben Planung immer tiefer bis zur Implementierung durch..

Nach der groben Planung definiert man die Funktionen/Klassen/Datentypen.

• Datentyp TSpielfeld : array[0..11,0..11] of integer;
• Funktion procedure ZeigeSpielfeld( ASpielfeld : TSpielfeld );
• Funktion function SchussAuf( ASpielfeld : TSpielfeld; x,y : Integer ) : Integer;

Wichtig ist, dass man hier das erwartete Verhalten festlegt und dokumentiert.
(Beispiel: Welche Werte gibt SchussAuf zurück und welche Bedeutung haben diese)

Dann kann man diese bei der Implementierung auch benutzen, ohne dass diese schon implementiert sein müssen. Es passiert halt einfach noch nichts, gibt aber auch keinen Fehler.

Dann geht man an die Implementierung der einzelnen Teile.

Ich haben den datentyp ja schon ( aber warum (T)Spielfeld? )
Wie zeige ich nun die Schiffe auf dem 12 x 12 Spielfeld an?
Lass ich jetzt per zufallsfunktion 3x 1er , 2x 2er, 1x 3er , 1x 4er zufällig auf das 12x12 anzeigen..?
Wie bekomm ich das am besten hin ?

[Sir Rufo]

Zitat von leodinho:

Zitat von Sir Rufo:

Zitat von leodinho:

Danke schonmal ür eure zahlreichen ideen.. Habe sie weitgehend umgesetzt..
Nun habe ich auch schon zähler fertig und will jetzt erstmal weitere, leichte parts programmieren..
Wie könnte ich ein highscore einbauen?
Oder soll ich jetzt erstmal anfangen die schiffe auf dem vorhanden welt anzeigen zu lassen?

Wenn man geplant vorgeht, dann arbeitet man sich von der groben Planung immer tiefer bis zur Implementierung durch..

Nach der groben Planung definiert man die Funktionen/Klassen/Datentypen.

• Datentyp TSpielfeld : array[0..11,0..11] of integer;
• Funktion procedure ZeigeSpielfeld( ASpielfeld : TSpielfeld );
• Funktion function SchussAuf( ASpielfeld : TSpielfeld; x,y : Integer ) : Integer;

Wichtig ist, dass man hier das erwartete Verhalten festlegt und dokumentiert.
(Beispiel: Welche Werte gibt SchussAuf zurück und welche Bedeutung haben diese)

Dann kann man diese bei der Implementierung auch benutzen, ohne dass diese schon implementiert sein müssen. Es passiert halt einfach noch nichts, gibt aber auch keinen Fehler.

Dann geht man an die Implementierung der einzelnen Teile.

Ich haben den datentyp ja schon ( aber warum (T)Spielfeld? )
Wie zeige ich nun die Schiffe auf dem 12 x 12 Spielfeld an?
Lass ich jetzt per zufallsfunktion 3x 1er , 2x 2er, 1x 3er , 1x 4er zufällig auf das 12x12 anzeigen..?
Wie bekomm ich das am besten hin ?

Du hast eine Variable var Spielfeld : array[0..11,0..11] of integer; und keinen Datentyp type TSpielfeld = array[0..11,0..11] of integer; . Darum steht da einmal var und type .

Das T ist nur Konvention und soll zeigen, dass es sich um einen Type handelt.
(z.B. kennst du TForm )

Gerade wenn man das Spielfeld als Parameter übergeben will/muss, dann einen eigenen Type deklarieren

Delphi-Quellcode:

type
  TSpielfeld = array[0..11,0..11] of integer;

var
  Spielfeld : TSpielfeld;

procedure ZeigeSpielfeld( ASpielfeld : TSpielfeld );

Das mit dem wie anzeigen und platzieren der Schiffe haben wir hier doch schon durchgekaut.

[leodinho]

achso, stimmt, fällt mir grad auch ein.
Ja , das mit dem platzieren meine ich in der Sicht, sie auf dem Feld für den Benutzer sichtbar zu machen? (:

wenn ich den datentyp hinschreibe und starten will ob es probleme gibt, erscheint ein problem das '=' vorhanden aber ':' erwartet wird.. Änder ich das, so kommt neue meldung.

Delphi-Quellcode:

TForm1 = class(TForm)
    Button1: TButton;
    PaintBox1: TPaintBox;
    Label1: TLabel;
    Button2: TButton;
    lvHighscore: TListView;
    Button3: TButton;
    Label2: TLabel;
    Label3: TLabel;
    TSpielfeld = array[0..11,0..11] of integer;

Delphi-Quellcode:

var
  Form1: TForm1;
  zaehler : integer = 0 ;
  Spielfeld : TSpielfeld;
  name : integer;