Графика ва анимация

Mavzu: GRAFIK VA ANIMATSION ILOVALARGA MISOLLAR

O’tkazish sanasi: ___________________

O’tkazish joyi: ___-maktab. Inforatika xonasi № ___

Asosiy tushunchalar:

Mavzuni yoritish.

Darsning borishi:

1. Tashkiliy qism:

O’quvchilar bilan salomlashish

Xonani va o’quvchilarni darsga tayyorliklarini kuzatish

Yo’qlamani aniqlash

Navbatchi axboroti.

Siyosiy daqiqa.

1. Darsning maqsad va vazifalarini qo’yish.

2. Tayanch bilimlarning faollashtirish.

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.

1. 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 xImage1.Width then

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

if x

y:=y+dy*n;

if yImage1.Height then

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

if y

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:

1. 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.

1. Darsga yakun yasash:

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

1. Uyga vazifa berish:

Piksellar ilovasida kvadratning uchlari qanday rangda va ular qaysi

ranglar aralashishidan hosil bo‘ladi?

O’IBDO’: _________________________