Kafedra mudiri: D. Norbo`tayeva O‘qituvchi

IntToStr (integer to string – butundan satrga olingan) funksiyasidan foydalanamiz:
Form1.Caption:=’(‘+IntToStr(Form1.Height)+’*’+IntToStr(Form1.Wide)+’)’;
Unga ilovaning haqiqiy nomini ham qo‘shib qo‘yamiz:
Form1.Caption:=’Uchinchi ilova’+ Form1.Caption;
Button1 tugmasini ikki marta bosib, dastur kodi oynasini chaqiramiz va oxirgi ikki satrni unga qo‘shib qo‘yamiz:
If Form1.Width<600 then begin
Form1.Width:=Form1.Width+16;
Form1.Height:=Form1.Height+9; End else
ShowMessage(‘Oyna boshqa kengaymaydi’);
Form1.Caption:=’(‘+IntToStr(Form1.Height)+’*’+IntToStr(Form1.Width)+’)’;
Form1.Caption:=’Uchinchi ilova ’+ Form1.Caption;
Ilovani ishga tushirib, uning sarlavhasi o‘zgarishini kuzatamiz:



(2.5-ilova)
Yangi o’quv materialining slaydli taqdimoti (alohida ilova qilinadi).
Yangi o’quv materialini mustahkamlash
(2.6-ilova)
Mustahkamlash uchun savollar
1. Ikkinchi ilovaning kamchiligi nimada?
2. ShowMessage ning vazifasi nimada?
3. IntToStr funksiyasi nima vazifani bajaradi?
4. Uchinchi ilovani shunday o‘zgartiring-ki, u a) ilova oynasining eni
800 dan, b) ilova oynasi bo‘yi 450 dan oshsa ekranga ogohlantiruvchi
yozuvni chiqarsin.


"TASDIQLAYMAN"
O`quv ishlari bo`yicha
direktor o`rinbosari
__________ M. Mamadaliyeva
2021 yil "____"_________


O’quv mashg’ulotining ta’lim texnologiyasi modeli

Mashg’ulot vaqti-2 soat