61-sabaq. Timer obyektiham onnan paydalaniw

61-SABAQ. Timer OBYEKTIHAM ONNAN PAYDALANIW

1. Timer obyekdnih qasiyetleri. Geyde qosimshada waqitqa baylamsh
amellerdi ormlawga tuwn keledi. Maselen, qosimshada hazirgi waqitti
korsetiwshi saat bolsa, har sekundta korsetilip atirgan waqitti jahalap tunwi
kerek. Bolmasa saattagi waqit arqada qalip ketedi. Test programmasmda
tapsmnani ormlaw ushm belgili waqit ajiratiladi. Bul waqit tamam
bolgannan son, test tapsinw da tamamlanadi. Prezentaciyada har on (yaki
jigirma) sekundtan keyin jaha bet ekranga shiganladi. Animaciyaliq
qosimshalarda qozgalip atirgan formamh halati sekundma bir neshe ret
jahalamp turadi.

Bul misallardih bdrshesinde Timer obyektinen paydalamladi. Timer obyektinih 6zine tan ozgesheligi omh ekranda korinbeytugi 1 igi bolip tabiladi. Sogan qaramstan, eger Timer jedel halatta bolsa, ol berilgen waqit araliginih 6tiwin kutedi. Bul waqit araligi 6tkennen keyin, qosimsha 6z jumism waqitsha toqtatip, Timerdih amawli procedurasi ormlanadi. Bul procedura onnlangannan keyin, qosimsha j&ne 6z jumism dawam ettire beredi.

Timer obyekti obyektler panelinih System (Sistema) tommda jaylastinlgan:

Timer obyektinih bar-jogi eki qasiyeti bar. Olardan birinshisi bizge basqa obyektlerden tams bolgan Enabled (jedel) bolip tabiladi. Bul qasiyet shm Mm jalgan manislerdi qabil etedi. Omn mdnisi True (shm) boliwi menen Timer iske tusedi. Manisi False boliwi menen Timer oz isin toqtatip turadi. Daslep bul qasiyettin manisi Truege ten. Timerdin ekinshi qasiyeti Interval bolip, onda Timer keyingi ret qansha waqittan keyin iske tusiwi korsetiledi. Bul waqit millisekundlarda 61shenedi. Eger Timer M r eki sekundta bir retten iske tusiwi kerek bolsa, interval qasiyeti 2000 ga ten etip omatiladi. Daslep onin manisi 1000 ga ten boladi.

2. Elektron saat hdm Timer qosimshasi. Elektron saat qosimsMsm
duzemiz. Jana qosunsM jaratip, onm bas temasm elektron saatqa
ozgertemiz. QosimsM aynasma eki obyekt: Label ham Timer jaylastiramiz.
Labeldid Font (shrift) qasiyetin eki ret basip, shrift qatnas aynasinda shrift
61shemin 24 ke ten etip omatamiz:

Timer obyektin eki ret basip, onin procedurasma Labell.Caption:=TimeToStr(Now); operatonn kirgizemiz. Bul operatorda eki standart funkciyadan paydalamladi. Olardan birinshisi Now (hazir) bolip, omn mdnisi kompyuterdin saati bul funkciya iske tuskendegi waqtma ten:

Ekinshi funkciya TimeToStr (Time to String waqit turinen tekst qatan turine degen maganani anlatadi) bolip, omn manisi tekst qatan turinde boladi. Bul manisti Labell obyektinin Caption qasiyetine beriw mumkin. 3. Timer qosimshasi. Jana qosimsha duzip, omn aynasma Label, Button, SpinEdit ham Timer obyektlerin jaylastiramiz. Label ham Button bas temalann QALGAN WAQIT: ham START larga ozgertemiz.

SpinEdittin qasiyetlerin tomendegishe omatamiz: SpinEditl .MaxValue:=l 00; SpinEditl. Value:=30; SpinEditl .Enabled:=False; Button tiiymesin eki ret basip, omn procedurasma Timerl.Enabled:=Tme; operatorm kirgizemiz. Timerdi eki ret basip, TFormLTimerlTimer procedurasma tomendegi programma kodin kirgizemiz: SpinEditl .Value:=SpinEditl .Value-1; if SpinEditl. Value=0 then begin Timerl .Enabled:=False; ShowMessage(WAQlT PITTI.'); FormLClose; end; Bul procedura har sapan iske tiiskende, omn birinshi qatarmdagi operator SpinEditnin manisin birge kemeytedi. Ekinshi qatardagi operator SpinEdittin manisi 0 ge ten bolganligm tekseredi.