Kafedra mudiri: D. Norbo`tayeva O‘qituvchi

IV. Mustahkamlash

4.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;
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.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.5. Ilovani ishga tushirib, uning ishini kuzating:



"TASDIQLAYMAN"
O`quv ishlari bo`yicha
direktor o`rinbosari
__________ M. Mamadaliyeva
2021 yil "____"_________


O’quv mashg’ulotining ta’lim texnologiyasi modeli

Mashg’ulot vaqti-2 soat	Talabalar soni: 26 –30 gacha
Mashg’ulot shakli va turi	Nazariy-yangi bilimlarni egallash bo’yicha o’quv mashg’uloti
O’quv mashg’ulot rejasi	“ Ilovaga matn kiritish