Informatika va axborot texnologiyalari


Foydalanuvchini qutlash ilovasi



Download 7,71 Mb.
bet59/90
Sana13.08.2021
Hajmi7,71 Mb.
#146527
1   ...   55   56   57   58   59   60   61   62   ...   90
Bog'liq
10-sinf informatika darslik

Foydalanuvchini qutlash ilovasi. Ilovada foydalanuvchi o‘z nomini va hamma uchun umumiy bo‘lgan parol: “12345” ni kiritishi kerak bo‘lsin. Buning uchun Delphida yangi ilova yaratamiz va uning oynasiga ikkita Label, uchta Edit, bitta Button obyektini kiritamiz. Ularning xossalarini obyekt inspektori (Object Inspector)da quyidagicha o‘zgartiramiz: Form1.Caption:=’Oltinchiilova’;Label1.Caption:=’’; Label2.Caption:=’’;Button1.Caption:=’OK’; Edit1.Text:=’’;Edit2.Text:=’’;Edit3.Text:=’’; Edit2.Passwordchar:=#42;Edit3.ReadOnly:=True;

Bu ishlarni bajarib bo‘lgach, Button1 ni ikki marta bosamiz va ekranda

hosil bo‘lgan dastur matni oynasida kursor turgan joyga quyidagi operatorlarni bexato kiritamiz:

if Edit2.Text='12345' then begin Edit3.Text:='Salom,'+Edit1.Text+'!Xush kelibsiz!'; Edit1.Visible:=False;Edit2.Visible:=False; Label1.Visible:=False;Label2.Visible:=False; Button1.Visible:=False; end else Edit3.Text:='Parol xato, qayta tering.';

Bu operatorlar Button1 tugmasini bosganimizda ishlab ketadi. Ulardan birinchisi Edit2 maydonchasiga kiritilgan parol to‘g‘riligini tekshiradi. Agar to‘g‘ri bo‘lsa, u holda uchinchi satrdagi operator uchinchi maydonchaga foydalanuvchini tabriklovchi matn satrini chiqaradi. Keyingi uchta satrdagi operatorlar endi keragi bo‘lmay qolgan ikkita Label1, Label2, Edit1, Edit2 va Button1 obyektlarini oynada ko‘rinmaydigan qilib qo‘yadi. Aks holda uchinchi maydonchaga parol xato terilgani haqida xabar chiqadi va qayta urinib ko‘rish mumkin.



Quyidagi rasmlarning birinchisida parol noto‘g‘ri terilgandagi, ikkinchisida parol to‘g‘ri terilgandagi holatlari aks etgan.






  1. Edit boshqarish obyekti qanday vazifa bajaradi?

  2. Edit obyektining Text xossasida nima saqlanadi?

  3. Edit obyektining ReadOnly xossasi qanday vazifa bajaradi?

  4. Oltinchi ilovada parolni a) “I7:7200U”; b) “123-12-20” ga almashtiring.

  5. Oltinchi ilovada Edit3 o‘rniga ShowMessage buyrug‘idan foydalaning.




Download 7,71 Mb.

Do'stlaringiz bilan baham:
1   ...   55   56   57   58   59   60   61   62   ...   90




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