ПОӘК 042-18-11 20. 84/01-2013 №1 баспа 26. 08. 2013 ж


Практикалық жұмыс №10 «Бейнелерді құру»



бет20/22
Дата12.03.2018
өлшемі3,6 Mb.
#38774
1   ...   14   15   16   17   18   19   20   21   22

Практикалық жұмыс №10 «Бейнелерді құру»


  1. Келесі түрдегі Y=F(x) функциясының графигін тұрғызыңыздар:

0≤x<50 Y=0

50≤x<100 Y=x-50

100≤x<150 Y=50

150≤x<200 Y=-(x-200)

200≤x<250 Y=0

Барлық өлшемдері пиксельмен берілген.



Пішінге график тұрғызу үшін Image құрауышын орналастырыңыз. Пішінге екі батырманы орналастырыңыз «Операция» және «Закрыть». «Операция» батырмасына басқанда график тұрғызылады.

  1. Rectangle әдісін қолданып, оған қажетті координаталарды бере отырып, тіктөртбұрыш сызыңыздар.Төмендегі қасиеттерді орнатыңыз:

property Canvas.Pen – шекараларды сызу үшін.

Property Canvas.Widthсызықтың қалыңдығын анықтайды, пиксельмен беріледі.

property Canvas.Brush – оның ішкі облысын бояу үшін қолданылады.

TextOut әдісінің көмегімен келесі хабарламаны шығарыңыз: «’Прямоугольник с координатами (’+IntToStr(x1)+’;’+IntToStr(y1)+’),
(‘+IntToStr(x2)+’;’+IntToStr(y2)+’)’ ”»

  1. RadioGroup құрауышын және TCanvas класының негізгі әдістерін қолдана отырып, геометриялық фигураларды сызатын қосымша құрыңыз (шеңбер, элиипс, бұрыштары дөңгелектенген тіктөртбұрыш, бұрыштары дөңгелектенген квадрат, квадрат және т.б.).

  2. Алдыңғы тапсырманың бағдарламасын өзгертіңіз, геометриялық фигураны салу үшін Additional парағының Shape құрауышын қолданыңыз.

property Shape – геометриялық фигураның түрін анықтайды.

Samples парағының ColorGrid құрауышын қолдана отырып, геометриялық фигураның түрін өзгертіңіз.

Shape1.Brush.Color:=
ColorGrid1.ForeGroundColor;


  1. Пішіннің канвасында сурет салуға мысал:

Инспектор объектісінің Events парағынан пішін үшін келесі оқиғаларды табыңыздар: OnMouseDown, OnMouseMove, OnMouseUp. Бұл оқиғалар пішінге тышқанмен әсер еткенде қолданылады – тышқанды басу, тышқанның қозғалысы, сәйкесінше тышқанның батырмасын босату.

Келесі оқиғаларға реакцияны өңдейтін процедурураларды жазыңыздар:



procedure TForm1.Form1MouseDown(…)

begin

isdown:=true;

form1.canvas.moveto(x,y);

end;

procedure Tform1.Form1MouseMove(…);

begin

if isdown then Form1.Canvas.LineTo(X,Y);



end;

procedure Tform1.Form1MouseUp(…);

begin

isdown:=false;



end;

Осы бағдарламаны іске қосыңыз, сонда сіз пішіннің терезесінде тышқанның көмегімен сурет сала аласыз.



  1. Image немесе PaintBox құрауыштарын қолдана отырып, көпбұрыштардың интерактивті салынуын көрсетіңіз (сызықтың тізбектей салынуын қолмен жүргізіңіздер).

  2. Pixels қасиетін қолдана отырып функциясының графигін шығаратын бағдарламаны құрыңыз және талдаңыз. Графикті тұрғызу үшін барлық мүмкін аймақтар қолданылады, сонымен қатар бағдарламаның орындалу барысында терезенің өлшемі өзгеретін болса, онда график нақты өлшемді ескере отырып, қайтадан шығады.


Достарыңызбен бөлісу:
1   ...   14   15   16   17   18   19   20   21   22




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет