Informatika va axborot texnologiyalari

Rasmga shakllarni joylash. Rasmga bir qator geometrik shakllarni joylash mumkin. Ulardan to‘g‘ri to‘rtburchak, ellips kesmalarni qanday joylashni avvalgi mashg‘ulotlarda ko‘rib chiqqan edik. Endi ular yoniga boshqalarini qo‘shamiz.

Ellips yoyini rasmga qo‘shish uchun arc(x1,y1,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Ellips uchlari (x1, y1), (x2, y2) nuqtalarda bo‘lgan to‘g‘ri to‘rtburchakka ichki chizilgan va uning markazini (x3, y3), (x4, y4) nuqtalar bilan birlashtiruvchi to‘g‘ri chiziqlar bilan kesilgan qismi olinadi. Bunda uchinchi nuqtadan to‘rtinchi nuqtaga soat miliga teskari yo‘nalishda harakatlanadi.

Ellips yoyini chizadigan operatorlar va ular chizgan yoylarni quyida ko‘rsatilgan.

Image1.Canvas.Arc(0,0,100,100, 50,0,0,50);

Image1.Canvas.Arc(100,0,200,100, 0,50,150,0);

Ellips segmentini rasmga qo‘shish uchun Cord(x1,y1,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Unga misol quyida keltirilgan:

Image1.Canvas.Chord(0,0,100,100, 50,0,0,50);

Image1.Canvas.Chord(100,0,200,100, 0,50,150,0);

Ellips sektorini rasmga qo‘shish uchun Pie(x1,y1,x2,y2, x3,y3,x4,y4) usulidan foydalaniladi. Unga misol quyida keltirilgan:

Image1.Canvas.pie(0,0,100,100, 50,0,0,50);

Image1.Canvas.pie(100,0,200,100, 0,50,150,0);

1. 
   Rasmga ellips segmenti qanday qilib qo‘yiladi?
   
2. 
   Rasmga ellips sektori qilib qo‘yiladi?
   
3. 
   Rasmga bir nechta matn satri kiritadigan ilova yarating.
   
4. 
   Rasmga bir nechta geometrik shakllar kiritadigan ilova yarating.
   

UYGA VAZIFA

1. 
   Rasmga matn qanday qilib qo‘yiladi?
   
2. 
   Rasmga ellips yoyi qanday qilib qo‘yiladi?
   

1. 
   Yangi ilova yarating. Unda koordinata sistemasini chizing.
   

Koordinata o‘qlarining nomlarini va undagi sonlarni rasmga kiriting.

2. 
   Yangi ilova yarating. Unga kompyuter faylida joylashgan rasmni yuklang. Rasm faylining nomini rasmning o‘ng burchagiga joylang.
   
3. 
   Yangi ilova yarating. Unga bir necha rangdagi ellips yoylarini joylang.
   
4. 
   Yangi ilova yarating. Unga bir necha xil doira segmentlarini joylashtiring.
   
5. 
   Yangi ilova yarating. Unga ichma ich joylashgan 10 ta ellips segmentini joylang.
   

Ilovaga oynasiga Image obyektini joylang.

Ilova oynasining bo‘sh joyida sichqonchani ikki marta chertib, quyidagi protsedurani kiriting.

procedure TForm1.FormCreate(Sender: TObject); var i:integer;

begin

for i:=10 downto 1 do image1.Canvas.Chord(100-10*i,100- 10*i,100+10*i,100+10*i, 0,100,100,0);

end;

Ilovani ishga tushiring.

1.