Nazariy-amaliy o’quv mashg’ulotining o’qitish texnologiyasi

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?

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?