حرفه ای: بیضی های درهم [بایگانی]

paramony

شنبه 31 تیر 1391, 22:17 عصر

در این برنامه با وارد کردن یک عدد و زدن دکمه شروع در فرم بیضی های درهمی ایجاد می شود که برای خاتمه برنامه باید پنجره آن را ببندید

mbshareat

یک شنبه 01 مرداد 1391, 05:28 صبح

سلام
من که نتونستم راحت پنجره رو ببندم.

Ananas

یک شنبه 01 مرداد 1391, 06:09 صبح

سلام.
جالبه. به طور پیش فرض یک عدد تو Edit بنویس که خالی نباشه.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,y:integer;
r:TRect;
begin
j:=0;
r:=GetClientRect;
x:=r.Right ;
y:=r.Bottom;
i:=StrToInt(Edit1.Text);
while (j<i) do
Canvas.Ellipse(random(x),random(y),random(x),rando m(y));
Canvas.Brush.Color:=RGB(random(155),random(255),ra ndom(255));
Inc(j);
end;

تو این قسمت خط بعد از while بلاک begin end; نداره به همین خاطر هیچوقت حلقه تموم نمیشه تا برنامه بسته بشه. می تونی به این شکل تغییرش بدی :

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, x, y: integer;
r: TRect;
begin
j := 0;
r := GetClientRect;
x := r.Right;
y := r.Bottom;
i := StrToInt(Edit1.Text);
while (j < i) do
begin
Canvas.Ellipse(random(x), random(y), random(x), random(y));
Canvas.Brush.Color := RGB(random(155), random(255), random(255));
Inc(j);
end;
end;

paramony

یک شنبه 01 مرداد 1391, 18:52 عصر

سلام.
جالبه. به طور پیش فرض یک عدد تو Edit بنویس که خالی نباشه.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,y:integer;
r:TRect;
begin
j:=0;
r:=GetClientRect;
x:=r.Right ;
y:=r.Bottom;
i:=StrToInt(Edit1.Text);
while (j<i) do
Canvas.Ellipse(random(x),random(y),random(x),rando m(y));
Canvas.Brush.Color:=RGB(random(155),random(255),ra ndom(255));
Inc(j);
end;

تو این قسمت خط بعد از while بلاک begin end; نداره به همین خاطر هیچوقت حلقه تموم نمیشه تا برنامه بسته بشه. می تونی به این شکل تغییرش بدی :

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, x, y: integer;
r: TRect;
begin
j := 0;
r := GetClientRect;
x := r.Right;
y := r.Bottom;
i := StrToInt(Edit1.Text);
while (j < i) do
begin
Canvas.Ellipse(random(x), random(y), random(x), random(y));
Canvas.Brush.Color := RGB(random(155), random(255), random(255));
Inc(j);
end;
end;

ممنونم دوست عزیز از راهنمایتون امیدوارم موفق باشید