Sakktábla delphiben?
segítene valaki, és leírná az egész programot?
lehetoleg egyszerű dolgok legyenek benne. Nem tudok tovább jutni mint egy sor nál... azt meg for i:=1 to 8 do, és akkor kockák, és utána meg if i mod 2=0 then szín fekete, else szín fehér. Légyszi segítsetek.
válasza:"segítene valaki, és leírná az egész programot?"
Most komolyan mi írjuk meg a leckéd? Szerintem órán mindent elmagyaráztak ami a feladathoz kell.
válasza:procedure TForm1.Button1Click(Sender: TObject);
var i, j : byte;
begin
for j := 0 to 7 do
begin
for i := 0 to 7 do
begin
if Odd(i + j) then
begin
Canvas.Brush.Color := clBlack;
Canvas.Rectangle(i * 40, j * 40, i * 40 + 40, j * 40 + 40);
end
else
begin
Canvas.Brush.Color := clWhite;
Canvas.Rectangle(i * 40, j * 40, i * 40 + 40, j * 40 + 40);
end;
end;
end;
end;
válasza:Ebben a formában pedig rövidebb és méretet is könnyebb állítani:
procedure TForm1.Button1Click(Sender: TObject);
const meret = 50;
var i, j : byte;
begin
for j := 0 to 7 do
begin
for i := 0 to 7 do
begin
if Odd(i + j) then Canvas.Brush.Color := clBlack else Canvas.Brush.Color := clWhite;
Canvas.Rectangle(i * meret, j * meret, i * meret + meret, j * meret + meret);
end;
end;
end;
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!