Sana:” ” 202 yil Informatika 10 Mavzu: 1-dars. Sodda ifodalarni hisoblash maqsad: Ta’limiy

DARSNING BLOK CHIZMASI:

№	DARS BOSQICHLARI:	Bajariladigan ish mazmuni	Ajratilgan vaqt
1	Tashkiliy qism	Salomlashish, davomatni aniqlash, sinfni darsga tayyorlash,kun tarixi aytiladi	3 daqiqa
2	O’tilgan mavzuni takrorlash	Takrorlash, mustahkamlash, yangi mavzu bilan bog’lash	8 daqiqa
3	Yangi dars mavzusi mazmunini tushuntirish	Yangi mavzuni tushuntirish	14 daqiqa
4	Yangi mavzuni mustahkamlash	Yangi mavzuni mustahkamlash	15 daqiqa
5	Dars yakuni va baholash	O’quvchilarni rag’batlantirish. Darsning so’ngi xulosasini chiqarish	3 daqiqa
6	Uyga vazifa	O’qituvchi tomonidan uyga vazifa e’lon qilinadi va keyingi mavzuga tayyorlanib kelish yo’nalishini aytib o’tadi	2 daqiqa

I.Tashkiliy qism

Salomlashish

Davomatni aniqlash

II. O’tilgan mavzuni takrorlash

III.Yangi mavzu bayoni

1.Oldingi amaliy mashg‘ulotdagi topshiriqlarda ilovalarga Timerobyektini 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 qadambilan 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.

4.1. Ilova Oynasini yarating va unga Timer obyektini joylang.

4.2. Ilova kodi oynasiga o‘tib, var Form1:TForm1; operatorini toping va undan keyin var i:integer; operatorini kiriting;

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;