
- •Зертханалық жұмыс №1
- •Зертханалық жұмыс №2
- •2. Delphi негізгі терезесі
- •4. Объектілер инспекторы терезесі
- •Зертханалық жұмыс №3
- •Өзіндік жұмыс тапсырмалары
- •Зертханалық жұмыс №4
- •Зертханалық жұмыс №5
- •Зертханалық жұмыс №6
- •Зертханалық жұмыс №8
- •Зертханалық жұмыс №9
- •Зертханалық жұмыс №10
- •Зертханалық жұмыс №11
- •Зертханалық жұмыс №12.
- •Зертханалық жұмыс №13.
- •Зертханалық жұмыс №14
- •Зертханалық жұмыс №15
- •Зертханалық жұмыс № 16
- •Зертханалық жұмыс №17
- •3.Қорғалған блок механизмі.
- •Зертханалық жұмыс №18
- •Зертханалық жұмыс №19
- •Зертханалық жұмыс № 20
- •Зертханалық жұмыс №21
- •Зертханалық жұмыс №22
- •Зертханалық жұмыс №23
- •Зертханалық жұмыс №24
- •Зертханалық жұмыс №25
- •Зертханалық жұмыс №26
- •Зертханалық жұмыс №27
- •Зертханалық жұмыс №28
- •Зертханалық жұмыс № 29
Зертханалық жұмыс №21
Тақырыбы: Бағдарламаларды жөндеу
Мақсаты: графикалық ақпараттарды өңдеу әдістерін Delphi ортасында бағдарламалау дағдыларын қалыптастыру
Қажетті құралдар: 1. ДК /Pentium 3,4 Windows /
2. Borland Delphi 7.0
Теориялық материалдар
Бағдарлама барысында қателер 3 топқа бөлінеді:
Синтактикалық;
Уақыт орындалуының қателері;
Алгоритмдік;
Бағдарлам орындалуы барысында әр түрлі қателер болуы мүмкін. Мысалға, қолданушы дұрыс емес мәліметтер енгізуі мүмкін немесе бағдарламаға қажетті файл жойылып кетуі мүмкін.
EzeroDivide типі- операция барысында бөлінгіш нөлге тең болған жағдайда қолданылады;
EConvertError- Өзгерту орындалуы жанында. Сандардың символдық жолдарға өзгертуі жанында жиі қолданылады.
EfilerError- файлдарға қатысты, қажетті файл болмаған жағдайда немесе, иілгіш дискілердің орныдары ауыстырылған жағдайларды қолданылады.
Тапсырмалар
try инструкциясының көмегімен қателерді өңдеуге демонстрация жасау. Форма суреттегідей болуы тиіс:
EzeroDivide типті қателерді өңдеу
Жұмысты орындалу реті
Borland Delphi 7.0 бағдарламалау тілін іске қосыңыз
Жаңа жоба ашыңыз.
Формаға қажетті компоненттерді орналастырыңыз.
Бағдарлама кодын келтірейік.
unit UsTry_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Editl: TEdit;
Edit2: TEdit;
Label5: TLabel; // ток қорытындысы
Button1: TButton; //Есептеу батырмасы
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations )
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
u: real;
r: real;
i: real;
begin
Labels.Caption := ' '; try
// қателерді шақыру
u := StrToFloat(Edit1.Text);
r := StrToFloat(Edit2.Text);
i := u/r;
except //
onEZeroDivide do // нөлге бөлу
begin
ShowMessage('Нөлге тең болу мумкін емес!');
exit;
end;
on EConvertError do begin
ShowMessage('Куш пен келдергі болуы тиіс' +'берілген санға. ' +#13+ 'Бөлшек сандарды жазғанда үтір қолданыңыздар.';
exit;
end;
end;
Label5.Caption := FloatToStr(i) + ' A';
end;
end.
Ескерту.
Берілген бағдарлама ток мөлшерін есептейді. Егер қолданушы кедергіге нөл мәнін берсе, i:=u/r инструкциясы орындалу барысында, EzeroDivide типі шығарылады.
Еген, енгізілген сан дұрыс емес болса, мысалға, бөлшек сандарды қолданғанда үтір орнына нүкте қойылса, EconvertError типі шақырылады
Бағдарлама кодының дұрыстығына көз жеткізіп, F9 тетігін басу арқылы бағдарламаны іске қосыңыз.
Құрылған бағдарламаны сақтап, оқытушыға істелген жұмыс бойынша есеп беріңіз
ЖАТТЫҒУЛАР
Кедергіні есептеп табатын бағдарлама құрыңыз.
Бақылау сұрақтары
EzeroDivide типі қандай қызмет атқарады?
EconvertError типі қандай мақсатта қолданылады?
EfilerError қандай қызмет атқарады?
Қателердің қандай түрлері бар?
Есеп беруге нұсқау
Есеп беру келесілерді қамтуы керек:
Жұмыстың тақырыбы мен мақсаты;
Тапсырмалар мен жаттығулардың орындалуы;
Дайындалған бағдарлама;
Жұмыс бойынша қысқаша қорытынды
Әдебиеттер
А. Я. Архангельский. Delphi 7.
М.М. Ерекешова, Т.А.Әмірғалиева Delphi ортасында программалау негіздері
Ю.А.Шпак Delphi 7 на примерах
К.З.Халықова Программалау тілдерін оқыту (Delphi)