21-Mavzu: Parol kiritish oynasi”loyihasi: Edit komponenetini Label komponentini qo’shish Button komponentini qo’shish

1-ILOVA
UYGA VAZIFA

1. 
   Piksellar ilovasida kvadratning uchlari qanday rangda va ular qaysi ranglar aralashishidan hosil bo‘ladi?
   

2-ILOVA


Faydalaniladigan adabiyotlar:



3-ILOVA
Fan bo'yicha o'quvchilarni o'zlashtirish, baholash mezonlari

№	Baholash me‘zonlari	Baholar
		5 a‘lo	4 yaxshi	3 qoniqali	2 qoniqarsiz
1	Nazariy ma‘lumotlarni o‘zlashtirishi
2	Amaliy ma‘lumotlarni o‘zlashtirishi
3	Jaoriy nazorat natijalari
4	O‘rtacha bahosi

4-ILOVA

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’
   

5-ILOVA


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)vaButton 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:

Ilovadagi rang:=RGB(i,j,0); operatorini rang:=RGB(i,0,j); ga almashtirib, qizil va ko‘k ranglarning aralashib pushti rang, rang:=RGB(0,i,j); ga almashtirib, yashil va ko‘kranglarning aralashib havo rang hosil bo‘lishiga amin bo‘lamiz:

Ilova oynasining Image egallagan qismida koptok harakatlansin. Koptok devorga urilganda orqasiga qaytsin. Uning harakati tezligini SpinEdit dagi qiymat belgilab bersin va u o‘zgarishi bilan koptok tezligi ham o‘zgarsin. CheckBox da bayroqcha o‘rnatilgan bo‘lsa, koptokning harakatlangandagi izi ham ko‘rinib tursin, aks holda faqat koptokning joriy holati ekranga chiqarilsin. Koptokning holati sekundiga 20 marta (50 millisekund interval bilan) yangilab turilsin CheckBox ning sarlavhasini izi bilan deb o‘zgartiramiz, Checked xossasini rost qilib o‘rnatamiz. SpinEdit ning maksimal qiymatini 10 ga teng qilib olamiz. Timer ning Interval xossasini 50 ga tenglaymiz.

Ilovada koptokning joriy holatini saqlash uchun ikkita: x, y; koptok

harakatining joriy yo‘nalishi			saqlash uchun yana ikkita: dx, dy
o‘zgaruvchilar	kerak	bo‘ladi. Ularni tavsiflovchi operator var
x,y,dx,dy:integer; operatorini dastur kodi oynasida var Form1: TForm1; dan
keyinga joylaymiz.

Ikkinchi satrda protsedurada foydalanish uchun yangi n nomli o‘zgaruvchi tavsiflanadi. To‘rtinchi satrda bu o‘zgaruvchiga SpinEdit1 da berilgan harakat tezligi qiymati kiritiladi.
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:

Yettinchi satrda koptokning yangi holatining koordinatasi topiladi. Sakkizinchi satrda bu yangi holatning rasmning o‘ng chegarasidan o‘tib ketishi tekshiriladi. Agar o‘tib ketsa, ning yangi qiymati hisoblab topiladi va gorizontal harakat yo‘nalishi teskarisiga o‘zgartiriladi. To‘qqizinchi

satrda koptokning yangi holati rasmning chap chegarasidan o‘tib ketishi tekshiriladi va bu holat yuz bergan bo‘lsa, uning koordinatasi qayta hisoblanib, harakat yo‘nalishi teskarisiga o‘zgartiladi.
O‘ninchi satrdan o‘nikkinchi satrgacha koptokning koordinatasi shu
tarzda qayta hisoblanadi. Nihoyat o‘nuchinchi satrda koptokning yangi holati ekranda chiziladi.
Ilovani ishga tushirib, uning ishlashini kuzatamiz.