C# İç İçe Kare Oluşturmak

Bu dersimizde iç içe rastgele kare oluşturmayı öğrenelim.

Bu dersimizde iç içe rastgele kare oluşturmayı öğrenelim. Yaptığınız işlemde butona her tıklandığında formun rastgele bir yerinde iç içe geçmiş kareyi oluşturacaktır.

Kodlar şu şekilde:


Procedure Tform1. Button1 click (sender:object);

Var

Mx,my integer

Begin

Randomize

x:= trunc ( random*form1.width);

y:= trunc ( random*form1.height);

Fori:= 10 down to do

Canvas. Rectangle(x+i*10, y+i*10,x-i*10,y-i*10);

End;



Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git