Пән аты: Технология
Сынып: 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мин)
Сабақ таңдаған кезде үй жұмысын шығаратын бағдарлама құру.
Достарыңызбен бөлісу: |