Delphi-PRAXiS
Seite 13 von 19   « Erste     3111213 1415     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Schiffe versenken programmieren (https://www.delphipraxis.net/178499-schiffe-versenken-programmieren.html)

Mavarik 28. Feb 2014 11:31

AW: Schiffe versenken programmieren
 
Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.

Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

OK... Wie mache ich aus einem Array ein Spielfeld...

Delphi-Quellcode:
Var
  Feld : Array ['A'..'B',1..2] of Integer;
Spielfeld;

AB
1..
2.o

Initialisierung:

Delphi-Quellcode:
begin
  Feld['A',1] := 0; // Wasser
  Feld['A',2] := 0; // Wasser
  Feld['B',1] := 0; // s.o.
  Feld['B',2] := 1; // U-Boot
end;
Schuss:

Gegeben sind 2 Edit Felder. 1x für die Spalte "A..B" ('L' in Deinem Fall) 1x für die Reihe

Delphi-Quellcode:
var
  Spalte : Shortstring; // eigentlich auch ein "Array" ;-)
  Reihe : Integer;
begin
  Spalte := copy(Uppercase(trim(Edit1.Text)),1,1);
  Reihe := Strtoint(trim(Edit2.Text));

  if Feld[Spalte[1],Reihe] = 0 then
    // Ausgabe "Wasser"
    else // Ausgabe "Treffer"
end;
Verstanden?

Mavarik

PS.: 120 Nachtrichten für so ein kleines Thema... Klingt langsam wie ein Wettbewerb... Wer Programmiert Schiffe-Versenken mit den wenigsten Zeilen Source-Code... Müssen nur noch die Rahmenbedingungen festlegen...

p80286 28. Feb 2014 11:34

AW: Schiffe versenken programmieren
 
[OT]
Zitat:

Zitat von Mavarik (Beitrag 1250008)
Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

Sir Rufo 28. Feb 2014 11:38

AW: Schiffe versenken programmieren
 
Zitat:

Zitat von p80286 (Beitrag 1250009)
[OT]
Zitat:

Zitat von Mavarik (Beitrag 1250008)
Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

Wenn Bauer mit Badehose nicht schwimmen kann, dann sagt der Bauer "Liegt an der Badehose" und die Hose "Liegt am Bauern".
Das Wasser sagt "Mir doch egal wer Schuld ist"

Mavarik 28. Feb 2014 11:41

AW: Schiffe versenken programmieren
 
Zitat:

Zitat von p80286 (Beitrag 1250009)
[OT]
Zitat:

Zitat von Mavarik (Beitrag 1250008)
Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

[OT]Ach Du bist sein Lehrer? :cyclops:...

Hast natürlich recht, aber das ist doch auch die Aufgabe eines Lehrers den Stoff so zu vermitteln, dass der Schüler Ihn versteht. So eine Aufgabe "Programmier mal Schiffeversenken" kommt ja nicht von 0 auf 100.
Das Thema wurde doch sicherlich aufgebaut...
König Dodon und das Array of Boolean...usw.
[/OT]

Mavarik 28. Feb 2014 11:43

AW: Schiffe versenken programmieren
 
Zitat:

Zitat von Sir Rufo (Beitrag 1250010)
Wenn Bauer mit Badehose nicht schwimmen kann, dann sagt der Bauer "Liegt an der Badehose" und die Hose "Liegt am Bauern".
Das Wasser sagt "Mir doch egal wer Schuld ist"

Du hast "was" vergessen...

leodinho 28. Feb 2014 12:05

AW: Schiffe versenken programmieren
 
:?::?::?:
Ich bekomme es aber nicht auf meine Form übertragen /:

leodinho 28. Feb 2014 12:11

AW: Schiffe versenken programmieren
 
Zitat:

Wenn du das Spielfeld anzeigen willst, dann gibst du abhängig vom Wert eben das passende heraus
Wie bekomm ich das Spieldfeld nun ausgegeben? syntaktisch habe ich keine fehler aber sobald ich auf den button klicke habe ich ein error /:

Mavarik 28. Feb 2014 12:11

AW: Schiffe versenken programmieren
 
Zitat:

Zitat von leodinho (Beitrag 1250015)
:?::?::?:
Ich bekomme es aber nicht auf meine Form übertragen /:

Hä?

Was von wo nach wo? Kannst du bitte deine Frange etwas ausführlicher stellen?

Mavarik 28. Feb 2014 12:13

AW: Schiffe versenken programmieren
 
Zitat:

Zitat von leodinho (Beitrag 1250016)
Zitat:

Wenn du das Spielfeld anzeigen willst, dann gibst du abhängig vom Wert eben das passende heraus
Wie bekomm ich das Spieldfeld nun ausgegeben? syntaktisch habe ich keine fehler aber sobald ich auf den button klicke habe ich ein error /:

Welchen error? Welchen sourcecode? Meine Glaskugel will gerade nicht so richtig...

Klaus01 28. Feb 2014 12:13

AW: Schiffe versenken programmieren
 
.. das kommt ja auch erst später...

Ein Array ist ein nicht visuelles Element.

Ein StringGrid/DrawGrid kannst Du zum anzeigen verwenden.

Das Array ist zur Datenhaltung gedacht.
Das StringGrid/DrawGrid zur Anzeige der Daten.

Im Prinzip musst Du nach jeder Aktion ducht das Array wandern
und anhand der Daten das StringGrid/DrawGrid füllen.

Grüße
Klaus


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:02 Uhr.
Seite 13 von 19   « Erste     3111213 1415     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz