linkedin facebook linkedin facebook nod32

Delphida grafik chizishga oid dasturlar

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2015-05-11

Delphida grafik chizishga oid dasturlar

1-masala.
procedure TForm15.Button1Click(Sender: TObject);
begin
// Parallel gorizontal chiziqlar chizish dasturi
Image1.Canvas.LineTo(10,200);
end;
end.

2-masala.
procedure TForm15.Button1Click(Sender: TObject);
begin
// Parallel vertikal chiziqlar chizish dasturi
Image1.Canvas.LineTo(220,10);
end;
end.

3-masala.
procedure TForm15.Button1Click(Sender: TObject);
begin
//Bir-birining ichiga joylashgan kvadratlarni chizish dasturi
Image1.Canvas.Rectangle(10,10,200,200);
end;
end.

4-masala. Aylana chizish dasturini tuzing.
procedure TForm15.Button1Click(Sender: TObject);
begin
// Aylana chizish dasturi
Image1.Canvas.Arc(10,100,200,200,300,200,300,300);
end;
end.

5-masala.
procedure TForm15.Button1Click(Sender: TObject);
begin
// Ellips chzish dasturi
Image1.Canvas.Ellipse(20,40,140,240);
end;
end.

6-masala.
procedure TForm15.Button1Click(Sender: TObject);
begin
//To’g’ri to’rtburchakni aylantirish dasturi
Image1.Canvas.Rectangle(25,25,200,200);
end;
end.

7-masala.
procedure TForm15.Button1Click(Sender: TObject);
Const Pi=3.1415;   

Var x,y,mas:Real;

x1,y1:integer;
begin
//  Sinusoida chizish dasturi
Image1.Canvas.MoveTo(1,92);
Image1.Canvas.LineTo(270,92);
Image1.Canvas.MoveTo(130,50);
Image1.Canvas.LineTo(130,150);
x:=-2*pi; mas:=20;
Repeat
y:=Sin(x);
X1:=132-Round(mas*x);     Y1:=92+Round(mas*y);
Image1.Canvas.Pixels[x1,y1]:=ClRed;
x:=x+0.01;
until x>2*pi;
end;
end.

8-masala.
procedure TForm13.Button1Click(Sender: TObject);
// Tutashgan chiziqlar chizish
Var gr: array[1..50] of TPoint;
x0,y0,dx,dy,i: integer;
begin
x0 := 10; y0 := 200; dx :=5; dy := 5;
for i:=1 to 50 do begin
gr[i].x:=x0+(i-1)*dx; gr[i].y:=y0-(i)*dy;
end;
with Image1.Canvas do
begin MoveTo(x0,y0); LineTo(x0,10); MoveTo(x0,y0); LineTo(200,y0);
Polyline(gr);
end;
end;

end.

9-masala.
procedure TForm13.Button1Click(Sender: TObject);
//Ko'pburchak
Var pol: array[1..3] of TPoint;
begin
pol[1].x := 10;
pol[1].y := 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].y := 50;
Form13.Canvas.Polygon(pol);
end;
end.

10-masala.
procedure TForm13.Button1Click(Sender: TObject);
Var pol: array[1..3] of TPoint;
//Uchburchak chizish dasturi
begin
pol[1].x := 10;
pol[1].y := 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].y := 50;
Form13.Canvas.Polygon(pol);
end;
end.

1067 marta o`qildi.

Foydalanuvchi ismi: Safar
Qo`shilgan sana: 2015-05-30

Delphida ishladi rahmat

Foydalanuvchi ismi: saloh
Qo`shilgan sana: 2015-06-08

image1 ga form1 qo`ysa bo`ldimi

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений