O‘zbekiston Respubllkasi Xalq ta'limi vazirligi tasdiqlagan

62-DARS. AMALIY MASHG‘ULOT

1. 
   Oldingi amaliy mashg‘ulotdagilargaTimer to obyektini joylang va geometrik shakllarni 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 Form1:TForm1; operatorini toping va undan keyin var i:integer; operatorini kiriting;
   

3. 
   Timer obyektini ikki marta bosib, uning protsedurasiga quyidagi operatorlarni kiriting:
   

procedure TForm1.Timer1Timer(Sender: TObject);

begin i:=i+1;
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. 
   Bu protseduradan oldin light_off protsedurasini kiriting: procedure light_off;
   

begin form1.canvas.brush.Color:=clBlue; form1.canvas.Rectangle(10,10,200,80); form1.canvas.brush.Color:=clGray; form1.canvas.Ellipse(20,20,70,70); form1.canvas.Ellipse(80,20,130,70); form1.canvas.Ellipse(140,20,190,70); end;

4. 
   Ilovani ishga tushirib, uning ishini kuzating: