Hilfe bei einem Schul Projekt ,,SCHIFFE VERSENKEN"!

erdalyyy · Beiträge: 16

hi leute,
ich muss unbedingt meine note in Informatik verbessern deswegen hat der lehrer eine Hausaufgabe gegeben undzwar:

Programmiert ein Programm für das Spiel "Schiffe versenken". Auf einer fläche von 5 Zeilen und 5 Spalten sollen 5 Punkte zufällig belegt werden. Als Fläche bietet sich ein Stringgrid an. Der Spieler muss nun durch Raten der Koordinaten die Schiffe versenken. Dabei soll die Zahl der jeweiligen Raterunde angezeigt werden. Wenn der Spieler alle 5 Schiffe versenkt hat, ist das Spiel vorbei. Das mehrmalige belegen eines Punktes soll verhindert werden.

So als ich diese Aufgabe bekam dachte ich mir, toll das wars mit Informatik

. Ich brauche unbedingt HILFE, so pls pimp my note!!!!!!! ;P

UGrohne · Verfasst: Mi 15.02.06 20:16

So wirst Du hier kaum Hilfe finden. Zuerstmal solltest Du den Titel ändern, damit er auch sagt, was genau das Thema ist und nicht mit welchen Intentionen Du diesen Beitrag schreibst.

Dann solltest Du sagen, wo Du stehst, was Dir Schwierigkeiten bereitet. Denn schreiben wird Dir das Programm hier keiner, das musst Du schon selbst tun!

Marco D. · Verfasst: Mi 15.02.06 20:22 Titel: Re: PLS DELPHI-FORUM PIMP MEINE NOTE!!!!! :D

erdalyyy hat folgendes geschrieben:

Ich brauche unbedingt HILFE, so pls pimp my note!!!!!!! ;P

Wo kommst du nun nicht weiter? :roll:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

erdalyyy · Beiträge: 16

ICH komm nicht klar mit Delphi, mit gar nichts ich kann stringgrid hinzufügen und panels labers und ein wenig mit variablen das aber auch schon...

Marco D. · Verfasst: Mi 15.02.06 20:44

erdalyyy hat folgendes geschrieben:

ICH komm nicht klar mit Delphi, mit gar nichts ich kann stringgrid hinzufügen und panels labers und ein wenig mit variablen das aber auch schon...

Du hast zwei Möglichkeiten:
1. Dir Tutorials saugen, Bücher kaufen/ausleihen und das benötigte lernen.
2. Deine Aufgabe in die Jobbörse stellen - gegen Geld proggen dir viele sowas.
Sei mal ehrlich: Hast du geglaubt, dass jetzt dir jemand so einfach das machen wird? :wink:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Vielleicht hilft dir das weiter?
www.delphicoders.de/...rials/stringgrid.pdf
Oder steck dem Klassenstreber etwas Geld zu :wink:

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Wir helfen dir gerne weiter, wenn du irgendwo hängst aber wenn du uns eine Oberfläche rein stellst und dann sagst "baut mal die Funktionalität ein" wird das sicherlich nicht klappen.

Und wenn du nicht den Titel änderst wirst du glaube ich gar kein Interesse wecken, den mit "pimpen" ist hier nix :-P

erdalyyy · Beiträge: 16

Alles klar ok ich probier dann mal ein bisschen da hat mir auch schon jemand weiter geholfen.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Du wurdest nun schon mehrfach dazu aufgefordert, den Titel zu ändern. Dies hier ist die letzte Aufforderung!

Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

erdalyyy · Beiträge: 16

ok dann gleich meine erste frage, wie kann ich die grauen felder in stringgrid so machen das alle zellen/ felder gleich aussehen?

jasocul · Verfasst: Do 16.02.06 16:47

Im Objekt-Inspektor (OI) gibt es eine Eigenschaft FixedRows, iirc. Die musst du auf 0 ändern. Dann werden alle weiß.
Evtl. musst du das auch für FixedCols machen.

btw:
Neue Frage = Neues Topic.

erdalyyy · Beiträge: 16

jasocul hat folgendes geschrieben:

Im Objekt-Inspektor (OI) gibt es eine Eigenschaft FixedRows, iirc. Die musst du auf 0 ändern. Dann werden alle weiß.
Evtl. musst du das auch für FixedCols machen.

btw:
Neue Frage = Neues Topic.

danke

erdalyyy · Beiträge: 16

also ich hab jetzt mit hilfe von freunden und so etwas gemacht aber irgendwie funzt das nicht kann mir jemand sagen was falsch is:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  versuche:integer;
  schiffe:array[0..5,0..5] of boolean;
  ok:boolean;
  treffer:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i,o,x,y:integer;
begin
Stringgrid1.Enabled:=true;
for i := 0 to 5 do
begin
  for o := 0 to 5 do
  begin
  Stringgrid1.Cells[i,o]:='?';
  schiffe[i,o]:=false;
  end;
end;
panel1.Caption:='Versuche, alle Schiffe zu versenken!';
versuche:=0;
treffer:=0;
for i := 1 to 5 do
begin
 repeat
  ok:=false;
  x:=Random(5);
  y:=Random(5);
  if schiffe[x,y]=false then
   begin
   ok:=true;
   schiffe[x,y]:=true;
   end;
 until ok=true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1click(sender);
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
if StringGrid1.Cells[Acol,Arow]=' ?' then
begin


 if schiffe[Acol,Arow]=true then
  begin
  treffer:=treffer+1;
  StringGrid1.Cells[Acol,Arow]:=' X';
  end
 else
  begin
  StringGrid1.Cells[Acol,Arow]:=' ~';
  end;
  end;
begin
versuche:=versuche+1;
 Label1.Caption:=IntToStr(versuche)+'. Versuch';
 if treffer=5 then
 begin
  StringGrid1.Enabled:=false;
  Label1.Caption:='SIEG!!...mit '+IntToStr(versuche)+'/25 Versuchen';
 end;
 end;
 end;
end.

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Einloggen, um Attachments anzusehen!

Fighter#1 · Verfasst: Do 16.02.06 17:48

Diese Antwort ist Sinnlos!

Ich reg mich jedes mal auf wenn Leute einen Thread schreiben und
verlangen das man für sie die Drecksarbeit macht,
Wer ein Projekt nict selber schafft soll er ganz genau sein Problem
schildern und schon gar nichts wie Also Pimp My note . . . schreiben,
dafür gibts die Jobbörse.
Wir sind nicht Hausaufgaben.de Sondern eine Hilfs-Community!!!

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse

erdalyyy · Beiträge: 16

Fighter#1 hat folgendes geschrieben:

Diese Antwort ist Sinnlos!

Ich reg mich jedes mal auf wenn Leute einen Thread schreiben und
verlangen das man für sie die Drecksarbeit macht,
Wer ein Projekt nict selber schafft soll er ganz genau sein Problem
schildern und schon gar nichts wie Also Pimp My note . . . schreiben,
dafür gibts die Jobbörse.
Wir sind nicht Hausaufgaben.de Sondern eine Hilfs-Community!!!

???
ich frage nur weil ich keine ahnung davon hab, ein paar freunde haben mir gesagt was da stehen soll aber das geht nicht was soll ich denn machen und was für ne Drecksarbeit?!?!?!?! reg dich doch nicht so auf wenn du nicht helfen möchtest dann nicht es wird doch niemand gezwungen.......

Phobeus · Verfasst: Do 16.02.06 17:58

Nun, er hat allerdings vollkommen recht...
Und ich denke er meint es, dass Du uns hier einen Source Code an den Kopf klatscht und sagt: geht nicht... wenn Du das Problem eingrenzen tätest und sagst, was nicht geht, würde sich die Anzahl der Helfer vermutlich signifikant erhöhen... die meisten haben nämlich nicht gerade in die Thematik eingearbeitet und wollen zeilenweise raten, wo vielleicht ein Problem vorliegen könnte, wenn ein Ereignis im Programm auftritt... geht zumindest mir so.

_________________
"Menschen sterben nicht wenn man sie zu Grabe trägt, sondern wenn sie ihre Träume verlieren..."

erdalyyy · Beiträge: 16

Phobeus hat folgendes geschrieben:

Nun, er hat allerdings vollkommen recht...
Und ich denke er meint es, dass Du uns hier einen Source Code an den Kopf klatscht und sagt: geht nicht... wenn Du das Problem eingrenzen tätest und sagst, was nicht geht, würde sich die Anzahl der Helfer vermutlich signifikant erhöhen... die meisten haben nämlich nicht gerade in die Thematik eingearbeitet und wollen zeilenweise raten, wo vielleicht ein Problem vorliegen könnte, wenn ein Ereignis im Programm auftritt... geht zumindest mir so.

na wenn man das die exe runterläd sieht man was nicht funzt, die hab ich extra gemacht damit jeder sich ein bild machen. kann ja sein das man nicht versteht was ich schreibe...

ich kann auch gerne sagen wo mein problem ist undzwar:

wenn man rauf drückt um ein feld auszuwählen gehts nicht...wir ihr versteht was ich meine und den rest der danach kommt kann ich ja nicht prüfen weils ya gar nicht weiter geht

Moderiert von UGrohne: Beiträge zusammengefasst.

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Hmm ich sehe nichts weiter als ein graues Stringgrid und nach einem Klick auf den Button überall Fragezeichen.

Nochmal, wir sind hier bestimmt keine bösen Menschen aber wenn man etwas von jemanden will, gehört es sich nunmal diesem konkret zu sagen was man will und es ihm so leicht wie möglich zu machen.
Es hat keiner was von STRG+A/STRG+C Postings. Grenze es ein woran es liegt und poste bitte nur diesen Ausschnitt.
Dazu zählt auch Groß/klein Schreibung

Und mit .EXE im Internet ist das so eine Sache, Screenshots und Stichpunkte sind da bestimmt den meisten lieber.

mtin · Beiträge: 177 Win XP SP2 BDS2006 Enterprise

erdalyyy hat folgendes geschrieben:

also ich hab jetzt mit hilfe von freunden und so etwas gemacht aber irgendwie funzt das nicht kann mir jemand sagen was falsch is:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  versuche:integer;
  schiffe:array[0..5,0..5] of boolean;
  ok:boolean;
  treffer:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i,o,x,y:integer;
begin
Stringgrid1.Enabled:=true;
for i := 0 to 5 do
begin
  for o := 0 to 5 do
  begin
  Stringgrid1.Cells[i,o]:='?';
  schiffe[i,o]:=false;
  end;
end;
panel1.Caption:='Versuche, alle Schiffe zu versenken!';
versuche:=0;
treffer:=0;
for i := 1 to 5 do
begin
 repeat
  ok:=false;
  x:=Random(5);
  y:=Random(5);
  if schiffe[x,y]=false then
   begin
   ok:=true;
   schiffe[x,y]:=true;
   end;
 until ok=true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1click(sender);
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
if StringGrid1.Cells[Acol,Arow]=' ?' then
begin


 if schiffe[Acol,Arow]=true then
  begin
  treffer:=treffer+1;
  StringGrid1.Cells[Acol,Arow]:=' X';
  end
 else
  begin
  StringGrid1.Cells[Acol,Arow]:=' ~';
  end;
  end;
begin
versuche:=versuche+1;
 Label1.Caption:=IntToStr(versuche)+'. Versuch';
 if treffer=5 then
 begin
  StringGrid1.Enabled:=false;
  Label1.Caption:='SIEG!!...mit '+IntToStr(versuche)+'/25 Versuchen';
 end;
 end;
 end;
end.

Moderiert von Christian S.: Delphi-Tags hinzugefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme