График примитивларни чизиш усуллари - Информатика и ИТ - Рефераты

График примитивларни чизиш усуллари

Загружено в:

20.09.2019

Скачано:

0

Размер:

72 KB

График примитивларни чизиш усуллари Режа: 1. Чизиқ 2. Туташган чизиқ 3. Тўртбурчак 4. Мультипликация

Чизиқ Тўғри чизиқ LinеТо усули орқали амалга оширилади. Компонент.Canvas.LineTo(x,у) LinеТо усули қалам жорий позициясидан берилган координатали нуқтагача тўғри чизиқ чизади. Бошлангич нуқтани керакли нуқтага кўчириш учун MoveTo усулидан фойдаланиш мумкин. Туташган чизиқ Ўзаро туташган кесмалардан иборат шаклни чизиш учун polyline усулидан фойдаланилади. Бу усул параметри TPoint типли массивдан иборат. Polyline усулига мисол тариқасида маълум қиймат ўзгариши графигини чизувчи процедураcини келтирамиз: procedure TForml.Button1Click(Sender: TObject); var gr: array[1..50] of TPoint; x0,y0: integer; dx,dy: integer; i: integer; begin х 0 := 10; у 0 := 200; dx := 5 ; dy := 5; for i:=l to 50 do begin gr[i].x := x0 + (i-l)*dx; gr[i].y := y0 - Data[i]*dy; end; with forml.Canvas do begin MoveTo(x0,y0); LineTo(x0,10); MoveTo(x0,y0); LineTo(200,y0); Polyline(gr); end; end;

Polyline усули ё рдамида ё пи қ к ў пбурчак чизиш учун массивнинг биринчи ва охирги элементи бир ну қ танинг координаталаридан иборат б ў лиши керак . Айлана ва эллипс Айлана ё ки э л липс чизиш учун Ellipse усули ча қ ирилади . Усулни ча қ ириш инструкцияси умумий к ў риниши: Объект.Canvas.Ellipse(x1,y1, х2,у2). Бу ерда x1, y1, х2, у2 – эллипсни ў з ичига олган минимал туртбурчак координаталари. Агар туртбурчак квадрат б ў лса айлана чизилади. Ей Ёйни чизиш учун Arc усули қўлланилади ва у қуйидаги умумий кўринишга эга: Объект.Canvas.Arc(x1,y1,х2,у2,х3,у3,х4,у4) Бу ерда:  x1, y1, х2, у2 - ё й га тегишли б ў лган эллипс ё ки айлана параметрлари;  х3, у3 - ё й бошлан ғ ич нуктаси параметрлари;  х4, у4 - с ў нги ну қ таси параметрлари. Ё й соат милига тескари тартибда чизилади. Т ў ртбурчак Тўртбурчак Rectangle усули билан чизилиб, бу усулни чақириш инструкцияси умумий кўриниши қуйидагича: Объект .Canvas.Rectangle(x1, y1,x2, y2)

Бу ерда x1, y1 ва х2, у2 — чапги ю қ ори ва ў нгги пастги бурчаклар координаталари. RoundRec усули бурчаклари юмало қ т ў ртбурчак чизишга имкон беради. RoundRec усулини чакириш инструкцияси куйидаги куринишга эга: Объект.Canvas.RoundRec(x1,y1,х2, у2, х3, у3) Бу ерда:  x1, y1, х2, у2 – туртбурчак параметрлари;  х3 и у3 — чорак кисми юмалок бурчак чизиш учун ишлатилдадиган эллипс катталиги. Яна икки усул муй қ аламдан фойдаланиб т ў ртбурчак чизишга имкон беради. FillRect усули ичи б ў ялган т ў ртбурчак чизади, FrameRect - фа қ ат контур. Бу усулларда фа қ ат бит т а параметрга эга - TRect типидаги структура. Қ уйидаги мисолда FillRect ва FrameRect усуллари ор қ али форма юзасига қ изил туртбурчак со ҳ а ва яшил контурли т ў ртбурчак чизувчи процедура келтирилган. procedure TForm1.Button1Click(Sender: TObject); var r1, r2: TRect; begin r1 := Rect(20,20,60,40); r2 := Rect(10,10,40,50); with f о rm1.Canvas do begin Brush.Color := clRed;

FillRect(r1); Brush.Color := clGreen; FrameRect(r2}; end; end; К ў пбурчак Polygon усули кўпбурчак чизишга мўлжалланган бўлиб, параметри TPoint типидаги массивдир. Массив нинг ҳ ар бир элементи (х,у) майдонлари к ў пбурчак учи координаталаридан иборат б ў лган ё зувдир. Қ уйида polygon усули ё рдамида учбурчак чизиш процедураси келтирилган: procedure TForm1.Button2Click(Sender: TObject); var pol: array[1..3] of TPoint; begin pol[1].x := 10; polf1].y := 50; pol[2].x := 40; pol[2].y := 10; pol[3]. х := 70; pol[3]. у := 50; Form1.Canvas.Polygon(pol); end;

Сектор Эллипс ёки айлана сектори pie усули билан чизилиб, чақириш инструкцияси қуйидаги умумий кўринишга эга: Объект. Canvas.Pie(x1,y1,x2,y2,х3,у3,х4,у4) Бу ерда:  x1, y1, х2, у2 - эллипс ё ки айлана параметрлари;  х3, у3, х4, у4 - сектор чегарасини ташкил қ илувчи т ўғ ри чизи қ лар охирги нукталари координаталари . Ну қ та Canvas объектининг pixels хоссаси типидаги икки ўлчовли массив бўлиб ҳар бир соҳа нуқтасининг ранги ҳақидаги маълумотни ўз ичига олади. Pixels хоссасидан фойдаланиб ихтиёрий нуқта рангини ўзгартириш, яъни нуқта чизиш мумкин. Мисол учун Form1.Canvas.Pixels[10,10]:=clRed Инструкцияси соҳа нуқтасини қизил ранга бўяйди. Қуйида келтирилган дастур pixels хоссасидан фойдаланиб, у = 2 sin(jc) e*/ 5 функцияси графигини чиқаради. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject);

private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function f(x:real):real; begin f:=2*Sin(x)*exp(x/5) ; end; procedure GrOfFunc; var x1,x2:real; y1,y2:real; x:real; y:real; dx:real; l,b:integer; w,h:integer; mx,my:real; x0,y0:integer; begin l:=10; b:=Form1.ClientHeight-20; h:=Form1.ClientHeight-40; w:=Form1.Width-40; x1:=0;

x2:=25; dx:=0.01; y1:=f(x1); y2:=f(x1); x:=x1; repeat y := f (x); if y < y1 then y1:=y; if y > y2 then y2:=y; x:=x+dx; until (x >= x2); my:=h/abs(y2-y1); mx:=w/abs(x2-x1); x0:=1; y0:=b-Abs(Round(y1*my)) ; with form1.Canvas do begin // оси MoveTo(l,b);LineTo(l,b-h); MoveTo(x0,y0);LineTo(x0+w,y0); TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3)); TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3)); x:=x1; repeat y:=f(x); Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed; x:=x+dx; until (x >= x2); end; end; procedure TForm1.Button1Click(Sender: TObject); begin

Button1.Visible:=false; GrOfFunc; end ; end. Асосий вазифани GrOfFunc процедураси бажаради . Аввал [x1,x2] орали қ да функциянинг максимал (у2) ва минимал (yl) қ ийматлари ҳ исобланади. С ў нгра координаталар у ки б ў йича масштаб ҳ исобланади. Шундан с ў нг процедура график н и қ уради. GrOfFunc процедураси томонидан қ урилган график. Келтирилган дастур универсал характерга эга. Ў зга функция графигини чизиш учун f (х), танасини ў згартириш етарли. Дастур т ўғ ри ишлайди , агар функция ҳ ам мусбат , ҳ ам манфий кийматларни қ абул қ илса. Мультипликация Мультипликация дейилганда ҳаракатланувчи расм тушунилади. Расмни ҳаракатлантириш учун аввал у экранга чизилади, маълум вақтдан сўнг расмни учириб янги жойга чизилади.

Қуйидаги дастур, айлананинг чапдан ўнгга ҳаракатини кўрсатади. Ҳ аракатланувчи айлана дастури формаси Ҳ аракатланувчи айлана дастури матни unit Unit 1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormActivate(Sender: TObject); procedure Timer1Timer(Sender: TObject);

private { Private declarations } public { Public declarations } end; procedure Ris; var Form1: TForm1; x,y: byte; implementation {$R *.dfm} procedure Ris; begin form1.Canvas.Pen.Color:=form1.Color; form1.Canvas.Ellipse(x,y,x+10,y+10); x:=x+5; form1.Canvas.Pen.Color:=clBlack; form1.Canvas.Ellipse(x,y, x+10, y+10) ;

end; procedure TForm1.FormActivate(Sender: TObject); begin x:=0; y:=10; timer1.Interval:=50; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Ris; end; end.

Похожие

StringGrid жадвал компонентаси

График компоненталар

Powеr Point график мухаррири

C++ Builderнинг график имкониятлари

MATLAB нинг график имкониятлари