Solitär - Schule!

[Luckie]

Benötigtes Wissen: Array, for-Schleifen, if-Abfragen. Rest ist Programmlogik, die man nicht beibringen kann.

[Phallic]

Meine Frage ist egtl: Wie kann ich dem zweiten Block sagen, dass er nach dem ersten Block unten drunter weiter machen soll?

[noch_ein_hannes]

Ich finde es allerdings auch sehr merkwürdig, dass ein Leher seinen Schülern Aufgaben gibt ohne ihnen vorher das Wissen bzw. die Grundlage zum Lösen beizubringen.

Das "in Blöcken" denken ist ja schön und gut, aber in Koordinaten bzw. in Arrays ist es doch wesentlich praktischer. Wenn Dein Leher die Lösung verraten hat, dann poste diese doch mal hier ...

[Phallic]

Nein, leider hat er diese nicht verraten. Aber allerdings habe ich es jetzt selber geschafftz..mit bißchen rumprobieren und der Benutzen von nur 2 Boxen!

Jetzt allerdings weiß ich nicht wie man Kreise ausfüllen lässt...ich brauch doch dafür eine variable oder?
Und dann war da doch irgendetwas...mit floodfill...allerdings weiß ich das nicht mehr genau ^.^

Und wie mache ich es, dass sich alle z.b blau ausfüllen...nur das in der Mitte bleibt weiß?

Delphi-Quellcode:

.
.
.
var
  Form1: TForm1;
  z,zr,a,x1,x2,y1,y2,s : integer;

.
.
.

procedure TForm1.Button1Click(Sender: TObject);
  begin
    zr:=10;
    a:=30;
    For z:=0 to 6 do
      begin
        For s:=0 to 2 do
          begin
            x1:=zr+3*(a+zr)+(a+zr)*s;
            y1:=zr+(a+zr)*z;
            image1.Canvas.Ellipse(x1,y1,x1+15,y1+15);
          end;
      end;
    For z:=0 to 2 do
      begin
        For s:=0 to 6 do
          begin
            x1:=zr+(a+zr)+(a+zr)*s;
            y1:=9*zr+(a+zr)*z;
            image1.canvas.Ellipse(x1,y1,x1+15,y1+15);
          end;
      end;
  end;

[Matze]

Canvas.Brush.Color := clRed; Füllt das die Kreise nicht aus?

[Phallic]

Doch! Hat prima funktioniert!! Danke sehr...! Nur das in der Mitte ^^..muss mal schauen...

[Matze]

Du könntest ja hinterher mit weiß über den mittleren kreis zeichnen oder in den Schleifen die Koordinaten überprüfen und falls diese das mittlere Feld sind, eben weiß zeichnen.

[Phallic]

Darin liegt ja das Problem vom ganzen Delphi...

Gut, mir selbst kann ich sagen: Mach mal den mittleren Kreis weiß..

Aber Delphi braucht da andere befehle...kann dem ja nicht sagen middle circle, white



Damit man net denkt, dass ich spammen will, editier ich ma den davor...

nein, die Koordinaten kenne ich nicht, ich habe sie ja niemals eingegeben, habe dem ja nur gesagt er soll da einmal kreise nach unten und einmal kreise nach rechts zeichnen...Mehr habe ich ja nicht gemacht...und selbst wenn ich die koordinaten kennen sollte, würde es immer noch an den Befehlen liegen, dass ich diesen kreis nicht ausfüllen kann, da ich nicht weiß wie man die koordinaten in welchem befehl reinbringt..

[Matze]

Zitat von Phallic:

Aber Delphi braucht da andere befehle...kann dem ja nicht sagen middle circle, white

Musst du doch nicht, du kennst doch die Koordinaten des mittleren Kreises.

[atreju2oo0]

Also bei mir heisst das Spiel Halma und ich habe es auch mal gemacht...
Ist zwar nicht fertig geworden aber die Grundfunktionen gehen!
Vielleicht hilft es Dir ja!