10-sinf informatika 16. pdf

SAVOL VA TOPSHIRIQLAR

1. 
   Timer ishlatiladigan holatlarga misollar keltiring.
   
2. 
   Timer obyekti obyektlar panelining qaysi jildida joylashgan?
   

142

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. 
   Timer ilovasida ShowMessage protsedurasi o'miga Label obyektidan foydalanib, qayta yarating.
   
6. 
   Elektron soat ilovasini soat har sekundda qisqa ovoz signali beradigan qilib o'zgartiring.
   

UYGA VAZIFA
1. Timer obyektining nechta xossasi bor?

1. 
   Oldingi amaliy mashg'ulotdagi topshiriqlarda ilovalarga Timer
   

obyektini joylang va geometrik shakllami 2 sekund interval bilan ekranga chiqaring.

2. 
   Button va Label obyektlaridan foydalanib soat dasturini tuzing.
   
3. 
   Ilova oynasining eni 100 dan 800 gacha sekundiga 20 marta 1 qadam bilan o'zgaradigan ilova yarating.
   
4. 
   Svetofor ilovasini ishlab chiqing. Qizil va yashil shiroqlar 5 sekund, sariq chiroq 1 sekund yonsin. Chiroqlar o'chganda kul rangga o'tsin.
   
   1. 
      Ilova oynasini yarating va unga Timer obyektini joylang.
      
   2. 
      Ilova kodi oynasiga o'tib, var Forml:TForml; operatorini toping va undan keyin var i:integer; operatorini kiriting;
      
   3. 
      Timer obyektini ikki marta bosib, uning protsedurasiga quyidagi operatorlami kiriting:
      

procedure TForml.TimerlTimer(Sender: TObject); begin
i:=i+l;
if i mod 12 =1 then begin light off;
canvas.brush.Color:=clRed; canvas.Ellipse(20,20,70,70); end;
if i mod 6 =0 then begin light off;

143

canvas.brush.Color:=clYellow; canvas.Ellipse(80,20,130,70);end; if i mod 12 =7 then
begin light off; canvas.brush.Color:=clGreen; canvas.Ellipse(140,20,190,70); end; end;

4.