Informatika va axborot texnologiyalari

Oyna o‘lchamlari ilovasi. Oldingi mashg‘ulotdagi ilovani qaytadan yaratamiz. Ilova oynasi o‘lchamlarini kattalashtirish va kichiklashtirish uchun ikkita tugmadan, oyna o‘lchamlarini ko‘rsatish ikkita Label dan foydalanamiz.

Dastlab ilova oynasining xossalarini o‘rnatamiz (39-dars): Form1.Caption:=’To‘’rtinchi ilova’; Form1.Height:=225; Form1.Width:=400; Form1.Left:=200; Form1.Top:=100;

Yuqoridagi to‘rtta obyektni ilova oynasiga joylaymiz va ularning

xossalarini o‘rnatamiz: Button1.Caption:=’++’; Button2.Caption:=’--’;

Label1.Caption:=’Oynaning bo‘’yi: ’; Label2.Caption:=’Oynaning eni: ’;

Ilova oynasida Button1ni ikki marta bosib, ekranda paydo bo‘lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlarni kiritamiz:

Form1.Width:=Form1.Width+16; Form1.Height:=Form1.Height+9;

Label1.Caption:=’Oynaning_bo‘’yi:’+IntToStr(Form1.Height); Label2.Caption:=’Oynaning_eni:’+IntToStr(Form1.Width);

Ilova oynasida Button1 ni ikki marta bosib, ekranda paydo bo‘lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlarni kiritamiz:

Form1.Width:=Form1.Width+16; Form1.Height:=Form1.Height+9;

Label1.Caption:=’Oynaning_bo‘’yi:’+inttostr(Form1.Height); Label2.Caption:=’Oynaning_eni:’+inttostr(Form1.Width);

Ilovani ishga tushiramiz va uning ishlashini kuzatamiz:

1. Label boshqarish obyektining xossalari ilovada qanday o‘zgartiriladi?

3. To‘rtinchi ilovani shunday o‘zgartiring-ki, uning oynasi bo‘yi va eni mos ravishda 5 va 8 qadam bilan o‘zgarsin.

3. 
   To‘rtinchi ilovani shunday o‘zgartiring-ki, uning oynasi enining qiymati 500 dan 800 gacha bo‘lsin.
   
4. 
   To‘rtinchi ilova tugmalardagi yozuvlarni a–>A va A–>a ga o‘zgartiring.
   

	UYGA VAZIFA
Label boshqarish obyektining vazifasini aytib bering. Label boshqarish obyektining asosiy xossalarini sanab bering.

1. 
   Yangi ilova yarating va uni 03_01 papkada saqlang.
   
   1. 
      Ilovaga yettita Label va bitta Button obyektini joylang.
      
   2. 
      Labellardagi yozuvlarni xossasi yordamida mos ravishda 8, 10, 12, 14, 16, 20 va 24 ga o‘zgartiring.
      
   3. 
      Button1 tugmani ikki marta bosib, uning protsedurasiga quyidagi operatorlarni kiriting:
      

Label1.Font.Size:=8; Label2.Font.Size:=10; Label3.Font.Size:=12; Label4.Font.Size:=14; Label5.Font.Size:=16; Label6.Font.Size:=20; Label7.Font.Size:=24;

4. 
   Ilovani ishga tushiring va tugmani bosib, natijani ko‘ring:
   

2. 
   Yangi ilova yarating va uni 03_02 papkaga saqlang. Unga bittadan Label va Button obyektlarini joylang. Button tugmasi bosilganda har safar Label dagi yozuvning shrifti o‘lchami ikki birlikka oshsin:
   
3. 
   
   Oldingi mashg‘ulotdagi mashqlarni kompyuterda bajaring.
   

1.