№ Mavzu nomi j a

yozib olishlarini aytadi. 
 
 
 
 
21
-MAVZU: 
“Raqamli soat hosil qilish” loyixasi: Timer komponenti   
  
  
  
  
1. 
  Timer    obyektining    xossalari.    Ba’zan    ilovada    vaqtga    bog‘liq  amallarni  
 
Davomatni aniqlab oladi. 
 
Kurs bo’yicha dastlabki 
tasavvurni beradi. 
Аqliy hujum qoidasi: 
Hech qanday birga baholash va tanqidga yo’l qo’yilmaydi! 
Таklif  etilayotgan  g’oyani  baholashga  shoshma,  аgarda  u  hattoki  ajoyib  va  g’aroyib  bo’lsa  ham 
hamma narsa mumkin. 
Таnqid qilma, hamma aytilgan g’oyalar qimmatli teng kuchlidir. 
O’rtaga chiquvchini bo’lma! 
Тurtki berishdan o’zingni ushla! 
Маqsad miqdor hisoblanadi! 
Qancha ko’p g’oyalar aytilsa, undan ham yaxshi: yangi va qimmatli g’oyalarning paydo bo’lishi uchun 
ko’p imkoniyatdir. 
Agarda g`oyalar qaytarilsa,xafa bo`lma va xijolat chekma. 
Tassavurni “Jo`sh urishiga” ruzsat ber! 
   
 
 
 
 
 
 

---

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;