Саба?ты? ма?саты:
Білімділік: Delphi ба?дарламасында ж?мыс жасау?а, ?рі ж?мыс жасау жолдарына толы? т?сінік.
Дамытушылы?: О?ушыларды? логикалы? ой-?рісін дамыту, ?ызы?ушылы?ын арттыру.
Т?рбиелік: Delphi ба?дарламасында д?рыс ж?мыс жасау?а, жауапкершілікке, іздемпазды??а т?рбиелеу.
Саба?ты? т?рі: Д?ст?рлі емес
Саба?ты? ?дісі: практикум элементі бар, т?сіндірмелі танымды? саба?.
К?рнекі ??рал-жабды?тар: О?улы?тар, ж?мыс д?птерлері, интерактивті та?та.
1. Саба?ты? барысы
- ?йымдастыру
-с?лемдесу
-т?гелдеу
-зейінін саба??а аудару
ІІ. ?йге берілген тапсырманы тексеру (с?ра?тар ?ойып ?ту).
Та?ырыпты кішігірім т?сіндіріп ?ту.
3. ?сынылатын лабораториялы? ж?мыс.
1. «Ж?гіртпелі жарнама» ?олданбасы.
procedure TForm1.Timer1Timer(Sender: TObject);
Var s: string;
begin
s:=Label1.Caption;
s:=s+s[1];
Delete(S,1,1);
Label1.Caption:=s;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
timer1.Interval:=TrackBar1.Position;
end;
№18 Графика. Тінтуірді? о? жа? батырмасы басыл?анда сол н?ктеден бастап т?ртб?рыш шы?атындай ?олданба.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Canvas.Rectangle(x,y,x+100,y+100);
end;
2. Суреттегідей ?олданба ??растыр.
№20 Edit1-дегі м?тін Label1 ж?не Memo1-ге ?згеріссіз к?шетін ?олданба ??растыр. Батырмалар ретінде BitBtn1, BitBtn2 ?олдан.
рrocedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label4.Caption := edit1.Text;
Memo1.Lines.Add(Edit1.Text);
Edit1.Text:=''; Edit1.SetFocus;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin edit1.SetFocus; end;
4. Лабораториялы? ж?мыс бойынша о?ушыларды ба?алау.
5. ?й тапсырмасын беру.
6. ?орытындылау.
Просмотр содержимого документа
«Delphi ба?дарламасы бойынша лабораториялы? ж?мыстар. »
Сабақтың тақырыбы: Delphi бағдарламасы бойынша лабораториялық жұмыстар.
Сабақтың мақсаты:
Білімділік: Delphi бағдарламасында жұмыс жасауға, әрі жұмыс жасау жолдарына толық түсінік.
Дамытушылық: Оқушылардың логикалық ой-өрісін дамыту, қызығушылығын арттыру.
Тәрбиелік: Delphi бағдарламасында дұрыс жұмыс жасауға, жауапкершілікке, іздемпаздыққа тәрбиелеу.
Сабақтың түрі: Дәстүрлі емес
Сабақтың әдісі: практикум элементі бар, түсіндірмелі танымдық сабақ.
Көрнекі құрал-жабдықтар: Оқулықтар, жұмыс дәптерлері, интерактивті тақта.
1. Сабақтың барысы
Ұйымдастыру
-сәлемдесу
-түгелдеу
-зейінін сабаққа аудару
ІІ. Үйге берілген тапсырманы тексеру (сұрақтар қойып өту).
Тақырыпты кішігірім түсіндіріп өту.
3. Ұсынылатын лабораториялық жұмыс.
1. «Жүгіртпелі жарнама» қолданбасы.
procedure TForm1.Timer1Timer(Sender: TObject);
Var s: string;
begin
s:=Label1.Caption;
s:=s+s[1];
Delete(S,1,1);
Label1.Caption:=s;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
timer1.Interval:=TrackBar1.Position;
end;
№18 Графика. Тінтуірдің оң жақ батырмасы басылғанда сол нүктеден бастап төртбұрыш шығатындай қолданба.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Canvas.Rectangle(x,y,x+100,y+100);
end;
2. Суреттегідей қолданба құрастыр.
№20 Edit1-дегі мәтін Label1 және Memo1-ге өзгеріссіз көшетін қолданба құрастыр. Батырмалар ретінде BitBtn1, BitBtn2 қолдан.
рrocedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label4.Caption := edit1.Text;
Memo1.Lines.Add(Edit1.Text);
Edit1.Text:=''; Edit1.SetFocus;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin edit1.SetFocus; end;
4. Лабораториялық жұмыс бойынша оқушыларды бағалау.
5. Үй тапсырмасын беру.
6. Қорытындылау.
