Пән аты: Технология Сынып: 10 «А» Күні Тақырып

жүктеу 60,08 Kb.

Дата	05.03.2018
өлшемі	60,08 Kb.
	#11286
түрі	Сабақ

Оқыту мен тәрбиелеудің міндеттері: Мақсаты
Көрнекілігі
Сабақтың барысы І. Кіріспе.
ІІ. Өткен сабаққа шолу.
ІV. Сабақты бекіту және бағалау

Пән аты: Технология

Сынып: 10 «А»

Күні__________________
Тақырып. Көп терезелі қосымшалар құру. Модальды және модальды емес терезелер.

Оқыту мен тәрбиелеудің міндеттері:
Мақсаты:

Delphi бағдарламалау тілінде көп терезелі қосымшалар құрып үйрету.

Көп формалармен жұмыс жасау дағдысын қалыптастыру.

Оқушыларды компьютерлік сауаттылыққа, білімділікке тәрбиелеу.

Көрнекілігі:

Сабақ жоспарын экранда проекциялау, таратпа материалдар, компьютер.

Өтілу әдісі: Мультитехникамен жабдықталған дәстүрлі сабақ.

Сабақтың барысы

І. Кіріспе. (2мин)

Оқушыларды түгелдеу, сынып бөлмесі, тақта тазалығына назар аудару;
Журнал толтыру;
Оқушылардың назарын сабаққа бұру,

ІІ. Өткен сабаққа шолу. (10мин)

Өткен сабақтар бойынша сұрақтар қою.

ІІІ. Практикалық тапсырмаларды тарату.

Практикалық тапсырма №27. Аптадағы сабақ кестесін бейнелейтін бағдарлама.

Бағдарламаға қажетті компоненттер: Form1 бетіне - Label1, Button1,Button2, Button3, Button4, Button5, Button6;

Дүйсенбіден сенбіге дейінгі 6 күннің сабақ кестесін шығару үшін Form2-Form7 беттері пайдаланылады. Form2-ден Form7-ге дейінгі форма беттеріне Memo компонентін орналастыру керек.

Объектілер инспекторы терезесінде Lines қасиетін тышқанмен белгілеп,ондағы TStrings мәнін екпінді жасайды , бұдан жолдың оң жақ шетінде үш нүкте (...) пайда болады. Үш нүктенің (...) үстінен тышқан батырмасын бассақ, String List Editor сҧхбат терезесін экранға шығарады. Осы

терезеде сабақ кестесін пернетақтадан енгізіп, OK батырмасын басамыз.Осылайша Form2-Form7 беттері дайындалады.

unit

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form6.show;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form7.show;

end;

end.

ІV. Сабақты бекіту және бағалау: (10мин)

Практикалық тапсырмаларды тексеру.

V. Үйге (3мин)

Сабақ таңдаған кезде үй жұмысын шығаратын бағдарлама құру.

жүктеу 60,08 Kb.

Достарыңызбен бөлісу: