Rivojlantirish va muvofiqlashtirish hududiy boshqarmasi karmana tuman kasb-hunar maktabi

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:

Amaliy ish:

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.