20-Mavzu: Edit komponenti. ”Parol kiritish oynasi” loyixasi. O’quv mashg’ulotining o’qitish texnologiyasi modeli

Taymer ilovasi. Yangi ilova yaratib, uning oynasiga Label, Button, SpinEdit va Timer obyektlarini joylaymiz. Label va Button sarlavhalarini QOLGAN VAQT: va START larga o‘zgartiramiz.

SpinEditning xossalarini quyidagicha o‘rnatamiz:
SpinEdit1.MaxValue:=100;
SpinEdit1.Value:=30;
SpinEdit1.Enabled:=False;
Button tugmasini ikki marta bosib, uning protsedurasiga Timer1. Enabled:=True; operatorini kiritamiz. Timerni ikki marta bosib, TForm1.Timer1Timer protsedurasiga quyidagi dastur kodini kiritamiz:
SpinEdit1.Value:=SpinEdit1.Value-1; if SpinEdit1.Value=0 then
begin Timer1.Enabled:=False;
ShowMessage('VAQT TUGADI.'); Form1.Close;
end;
Bu protsedura har safar ishga tushganda, uning birinchi satridagi operator SpinEditning qiymatini bittaga kamaytiradi. Ikkinchi satrdagi operator SpinEditning qiymati 0 ga teng bo‘lganligini tekshiradi. Agar 0 bo‘lsa, to‘rtinchi satrdagi operator taymer ishini to‘xtatadi, beshinchi satrda ekranga muloqot darchasini chiqariladi. Bu oyna yopilishi bilan oltinchi satrdagi operator ilova oynasini yopadi va ilova o‘z ishini tugatadi.
Ilova ishga tushganda taymerning vaqtini SpinEditda o‘rnatamiz va Start tugmasini bosib, taymerni ishga tushiramiz. Taymerdagi vaqt kamayib boradi va u tugashi bilan ekranga muloqot darchasi chiqadi. Uni yopishimiz bilan ilova ham o‘z ishinitugatadi.