Mavzu: grafik va animatsion ilovalarga misollar o’tkazish sanasi

2. Koptok ilovasi. Timer obyektidan birinchi navbatda animatsion

harakat yaratish uchun foydalaniladi. Bu qanday amalga oshirilishini

ko‘rish uchun yangi ilova yaratamiz. Unga yetarlicha katta Image

obyektini, bittadan Timer, CheckBox va SpinEdit larni joylaymiz.

Timer obyektini ikki marta bosib uning protsedurasini quyidagicha

to‘ldiramiz:

procedure TForm1.Timer1Timer(Sender: TObject);

var n:integer;

begin

n:=SpinEdit1.Value;

if not CheckBox1.Checked then

Image1.Canvas.Rectangle(-3,-3,Image1.Width+3,Image1.Height+3); x:=x+dx*n;

if x>Image1.Width then

begin x:=2*Image1.Width-x; dx:=-dx;end;

if x<0 then begin x:=-x; dx:=-dx;end;

y:=y+dy*n;

if y>Image1.Height then

begin y:=2*Image1.Height-y; dy:=-dy;end;

if y<0 then begin y:=-y; dy:=-dy;end;

Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);

end;

Beshinchi satrda CheckBox1 da bayroqcha o‘rnatilganligi tekshiriladi.

Agar bu bayroqcha o‘rnatilmagan bo‘lsa, oltinchi satrda koptokning oldingi

holati butun rasmni o‘chirib tashlash bilan yo‘qotiladi:

5. 
   Amaliy ish:
   

Mavzu yuzasida savol va topshiriqlar:

1. Piksellar ilovasida nechta pikselning rangi o‘zgaradi?

2. Koptok ilovasida koptokning holati qaysi o‘zgaruvchilarga qarab

aniqlanadi.

3. Koptok ilovasida koptokning harakat tezligi qanday qilib

o‘zgartiriladi?

4. Koptok ilovasida koptok harakatining yo‘nalishi qaysi o‘zgaruvchida

saqlanadi?

5. Piksellar ilovasida ranglarni shakllashtirishda uchinchi asosiy

rangning ham ishtirok etishini ta’minlang.

6. Koptok ilovasida koptok yo‘nalishini dx va dy o‘zgaruvchilarning

boshlang‘ich qiymatlarini almashtirish bilan o‘zgartiring:

a) dx:=1; dy:=1;

b) dx:=1; dy:=2;

c) dx:=3; dy:=2;

d) dx:=3; dy:=1.

6. 
   Darsga yakun yasash:
   

O’quvchilarni olgan bilimlari hamda qilgan ishlarini nazorat qilib baholash, ularni yo’l qo’ygan kamchiliklarini to’g’irlash.

7. 
   Uyga vazifa berish:
   

Piksellar ilovasida kvadratning uchlari qanday rangda va ular qaysi

ranglar aralashishidan hosil bo‘ladi?

O’IBDO’: _________________________