Hallo Leute,
ich muss für die Schule etwas in Delphi programmieren...und komme da nicht so richtig weiter.
Es ist ein kleines witziges Spiel, names Solitär! Also nicht das Windows Kartenspiel sondern, für die, die es nicht kennen, hier eine kleine Erklärung: Das Feld sieht so aus:
------O O O
------O O O
O O O O O O O
O O O O O O O
O O O O O O O
------O O O
------O O O
Das Feld in der Mitte ist ein freies Feld. In den anderen Löchern ist ein kleines Stöckchen. Jetzt muss man geschickt überlegen, wie man es schaffen kann, dass nur ein Stöckchen, und das in der Mitte, übrigbleibt. Man kann über Stöckchen springen, wenn nach dem Stöckchen ein leeres Feld ist. Dann nimmt man das Stöckchen aus dem Spiel!
Mein Ansatz:
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 1 do
begin
For s:=0 to 2 do
begin
x1:=zr+2*(a+zr)+(a+zr)*s;
y1:=zr+(a+zr)*z;
image1.Canvas.Ellipse(x1,y1,x1+30,y1+30);
end;
end;
end;
Das ist der Quellcode für den ersten Block, also für:
O O O
O O O
Jetzt weiß ich leider nicht wie ich die anderen mit den selben Variablen programmieren soll. Es sollen 3 Blöcke entstehen. Den, den ich grad aufgezeichnet habe, dann den länglichen:
O O O O O O O
O O O O O O O
O O O O O O O
und zu guter letzt, der hier:
O O O
O O O
Wenn ihr mir einen Ansatz geben könntet, wäre ich euch sehr dankbar. Und bitte achtet darauf, dass ich nicht gut Delphi kann, deswegen werde ich manche Begriffe nicht kennen!