10-sinf informatika 16. pdf

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. Ulaming xossalarini obyekt inspektori (Object Inspector)da quyidagicha o'zgartiramiz: Forml.Caption:='Oltinchiilova';

Labell.Caption:=''; Label2.Caption:=''; Buttonl.Caption:='OK'; Editl.Text:='';Edit2.Text:=''; Edit3.Text:=''; Edit2.Passwordchar:=#42; Edit3.Read0nly:=True;
Bu ishlami bajarib bo'lgach, Buttonl ni ikki marta bosamiz va ekranda hosil bo'lgan dastur matni oynasida kursor turgan joyga quyidagi operatorlami bexato kiritamiz:
if Edit2.Text='12345' then begin Edit3.Text:='Salom,'+Editl.Text+'!Xush kelibsiz!'; Editl.Visible:=False;Edit2.Visible:=False; Labell.Visible:=False;Label2.Visible:=False; Buttonl.Visible:=False; end else Edit3.Text:='Parol xato, qayta tering.';
Bu operatorlar Buttonl 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 Labell , Label2, ikkita Edit l , Edit2 va Buttonl obyektlarini oynada ko'rinmaydigan qilib qo'yadi. Aks holda uchinchi maydonchaga parol xato terilgani haqida xabar chiqadi va qayta urinib ko'rish mumkin.
Quyidagi rasmlaming birinchisida parol noto'g'ri terilgandagi, ikkinchisida parol to'g'ri terilgandagi holatlari aks etgan.
104