Mavzu: grafik va animatsion ilovalarga misollar o’tkazish sanasi

Uyga vazifalarini tekshirish va o’tilgan mavzuni mustahkamlash.
1. Taymer ishlatiladigan holatlarga misollar keltiring.
2. Timer obyekti obyektlar panelining qaysi jildida joylashgan?
3. Timer obyektining interval xossasi qanday vazifani bajaradi?
4. Timer obyektining Enabled xossasi qanday qiymat qabul qiladi va bu
qiymat o‘zgarganda qanday hodisa ro‘y beradi?
5. Taymer ilovasida ShowMessage protsedurasi o‘rniga Label
obyektidan foydalanib, qayta yarating.
6. Elektron soat ilovasini soat har sekundda qisqa ovoz signali
beradigan qilib o‘zgartiring.

4. 
   Dars materiallarini tushuntirish (materiallarni tushuntirish dars prezentatsiyasi va videorolik, amaliy harakatlar, tayyor ishlar ko’rgazmasini namoyish qilish bilan birgalikda olib boriladi).
   

Nazariy qism:
1. Ranglar palitrasi. Piksellar xossasi yordamida qizil va yashil
ranglarni turli ulushda aralashtirishdan hosil bo‘ladigan 65536 ta rangli
piksellarni ekranda tasvirlaydigan ilova yaratamiz. Ilovaga Image
(256×256) va Button obyektlarini quyidagi rasmda ko‘rsatilgandek
joylaymiz. Button tugmasini ikki marta bosib, dastur kodiga quyidagi
protsedurani kiritamiz:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,rang:integer;
begin for i:=0 to 255 do
for j:=0 to 255 do begin rang:=RGB(i,j,0);
Image1.Canvas.Pixels[i,j]:=rang; end; end;
Ilovani ishga tushirib, qizil va yashil ranglarning aralashib, sariq rang
hosil bo‘lishini ko‘ramiz:

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.