Mavzu: 41-dars. Showmessage oynasi o’tkazish sanasi


Uyga vazifalarini tekshirish va o’tilgan mavzuni mustahkamlash



Download 63,16 Kb.
bet3/4
Sana04.03.2022
Hajmi63,16 Kb.
#482654
1   2   3   4
Bog'liq
41 dars. showmessage oynasi

Uyga vazifalarini tekshirish va o’tilgan mavzuni mustahkamlash.
Berilgan avollarni ihlash jarayonini daftaringizga yozing:
1.5. Uchinchi tugmani ikki marta bosib, uning protsedurasini quyidagi
ko‘rinishga keltiring:
procedure TForm1.Button3Click(Sender: TObject);
begin
TForm1.Top:= TForm1.Top+10; end;
1.6. Ilovani ishga tushirib, tugmalar qanday vazifa bajarishini kuzating.
Ilova oynasini yopib, uning barcha fayllarini saqlab qo‘ying. Ilovaning
barcha fayllarini yoping.
2. Oldingi mashg‘ulotda berilgan mashqni kompyuterda bajaring.


  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. Ikkinchi ilovaning kamchiliklari. Ikkinchi ilovani ishga tushirib, undagi “++” tugmasini ming marta bossak, ilova ekranining eni 16000 pikseldan oshib ketadi. Bu esa dasturchi uchun kechirib bo‘lmas xato. Uni bartaraf qilish uchun ilova oynasi eni ming pikseldan oshsa, boshqa kattalashtirmaslikka kelishib olamiz. Lekin foydalanuvchi tugmani bossada, unda hech qanday o‘zgarish ro‘y bermasa, dasturning to‘g‘ri ishlayotgani unda shubha tug‘dirishi mumkin.
2. ShowMessage protsedurasi. Buning oldini olish uchun ilova o‘z oynasi eni 600 dan oshib ketganligi haqida ekranga alohida oynada xabar chiqarsin. Bu ishni ShowMessage orqali amalga oshiramiz.
Ikkinchi ilovadagi Button1 tugmasini ikki marta bosib, paydo bo‘lgan protseduradagi avvalgi ikki operatorni quyidagicha qayta yozib chiqamiz:
If Form1.Width<600 then begin
Form1.Width:=Form1.Width+16;
Form1.Height:=Form1.Height+9; End else
ShowMessage(‘Oyna boshqa kengaymaydi’);
Ilovani ishga tushirib, uning tugmasini bir necha marta bossak, ekranga
quyidagi yozuv chiqadi. Undagi OK tugmasini chertmagunimizcha, ilova
o‘z ishini to‘xtatib turadi.
3. IntToStr funksiyasi. Ilovaning ishini yanada yaxshilaymiz. Ilova o‘z
oynasining o‘lchamlarini o‘zgartirganda ular qanday bo‘lgani bizga
mavhumligicha qolmoqda. Uni ilova oynasiga chiqarishning iloji bormi?
Hozircha biz buning bitta yo‘lini bilamiz: oyna o‘lchamlarini oyna
sarlavhasiga chiqarish. Buning uchun
Form1.Caption:=Form1.Height+’*’+Form1.Wide;
operatoridan foydalanamiz. Lekin bu operatordan foydalanib bo‘lmaydi, chunki unda bir turdagi o‘zgaruvchiga ikkinchi turdagi o‘zgaruvchini kiritishga urinish bo‘layapti. Delphida bu xatoga olib keladi.
Butun son turidagi kattalikni matn satri turidagi kattalikka o‘tkazish
uchun IntToStr (integer to string – butundan satrga olingan)
funksiyasidan foydalanamiz:
Form1.Caption:=’(‘+IntToStr(Form1.Height)+’*’+In
tToStr(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)+’*’+IntTo
Str(Form1.Width)+’)’;
Form1.Caption:=’Uchinchi ilova ’+ Form1.Caption;
Ilovani ishga tushirib, uning sarlavhasi o‘zgarishini kuzatamiz:





  1. Download 63,16 Kb.

    Do'stlaringiz bilan baham:
1   2   3   4




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish