10-sinf informatika 16. pdf

3. Timer 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'matamiz:

140

SpinEditl.MaxValue:=100; SpinEditl.Value:=30; SpinEditl.Enabled:=False;
Button tugmasm1 ikk:i marta bosib, uning protsedurasiga Timerl .Enabled:=True; operatorini kiritamiz. Timemi ikk:i marta bosib, TForml .Timerl Timer protsedurasiga quyidagi dastur kodini kiritamiz:
SpinEditl.Value:=SpinEditl.Value-1; if SpinEditl.Value=O then
begin Timerl.Enabled:=False;
ShowMessage('VAQT TUGADI.'); Forml.Close;
end;
Bu protsedura har safar ishga tushganda, uning birinchi satridagi operator SpinEditning qiymatini bittaga kamaytiradi. lkkinchi satrdagi operator SpinEditning qiymati O ga teng bo'lganligini tekshiradi. Agar 0 bo'lsa, to'rtinchi satrdagi operator Timer 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 Timeming vaqtini SpinEditda o'matamiz va Start tugmasini bosib, Timemi ishga tushiramiz. Timerdagi vaqt kamayib boradi va u tugashi bilan ekranga muloqot darchasi chiqadi. Uni yopishimiz bilan ilova ham o'z ishini tugatadi.