“Informatika va at” fanidan

21-MAVZU: “Raqamli soat hosil qilish” loyixasi: Timer komponenti
1. Timer obyektining xossalari. Ba’zan ilovada vaqtga bog‘liq amallarni bajarishga to‘g‘ri keladi. Masalan, ilovada joriy vaqtni ko‘rsatuvchi soat bo‘lsa, har sekundda ko‘rsatilayotgan vaqtni yangilab turish kerak. Aks holda soatdagi vaqt orqada qolib ketadi.
Taymer obyektining o‘ziga xos xususiyati uning ekranda ko‘rinmasligidir. Taymer obyekti obyektlar panelining System (Tizim) jildida joylashgan:

2. Elektron soat va Taymer ilovasi. Elektron soat ilovasini yaratamiz.
Yangi ilova yaratib, uning sarlavhasini elektron soatga o‘zgartiramiz. Ilova oynasiga ikkita obyekt: Label va Timer joylaymiz. Label ning Font (shrift) xossasini ikki marta bosib, shrift muloqot oynasida shrift o‘lchamini 24 ga teng qilib o‘rnatamiz:

Timer obyektini ikki marta bosib, uning protsedurasiga Label1.Caption:=TimeToStr(Now); operatorini kiritamiz. Bu operatorda ikkita standart funksiyadan foydalanilayapti. Ulardan birinchisi Now (hozir) bo‘lib, uning qiymati kompyuterning soati bu funksiya ishga tushgandagi vaqtiga teng:

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;

IV. Mustahkamlash
Mavzu yuzasida savol va topshiriqlar:
1. Taymer ishlatiladigan holatlarga misollar keltiring.
2. Timer obyekti obyektlar panelining qaysi jildida joylashgan?
3. Timer obyektining interval xossasi qanday vazifani bajaradi?
4. Timer obyektining Enabled xossasi qanday qiymat qabul qiladi va bu
qiymat o‘zgarganda qanday hodisa ro‘y beradi?
5. Taymer ilovasida ShowMessage protsedurasi o‘rniga Label
obyektidan foydalanib, qayta yarating.
6. Elektron soat ilovasini soat har sekundda qisqa ovoz signali
beradigan qilib o‘zgartiring.