Sana:” ” 202 yil Informatika 10 Mavzu: 1-dars. Sodda ifodalarni hisoblash maqsad: Ta’limiy

3.Oyna o‘lchamlari ilovasi. Oldingi mashg‘ulotdagi ilovani qaytadanyaratamiz. 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: ’;

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

1. 
   Ilovani ishga tushiramiz va uning ishlashini kuzatamiz:
   

YODDA SAQLANG !

Label obyekti ilova oynasiga matn satrini kiritish uchun ishlatiladi va bu matn uning Caption xossasida saqlanadi.