Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Есеп.docx
Скачиваний:
12
Добавлен:
01.07.2025
Размер:
324.73 Кб
Скачать

54. Seh фреймі және оның программаларды өңдеу кезіндегі қолданылуы

SEН-фрейм және өзіндік исклющенияларды өңдеу. Өңдеудегі коллизияларды жою. Исключениялардың құрылымдық өңделуі. Исключенияларды басқарудың программалық құралдары. Өз исключенияларынды өңдегіштерді құру.

Исключительный жағдайларды қолдану.

Егер қате болса және исключительный жағдай болса, онда ол келесі алгоритм бойынша өңделеді:

1. Егер жағдай try..except блогының ішінде болса, онда ол сол жерде өңделеді. Егер АЖ "жылжыған" онда raise операторының көмегімен, ал егер ол try. .finally блогында пайда болса, онда өңдеу жалғасады.

2. Егер программалаушымен Application.onException уақиға өңдеугіші анықталған болса, онда ол басқаруды алады. Өңдегіш келесі түрде хабарланған:

TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;

3. Егер пррограммалаушы АЖ ешбір уақиғасына көңіл бөлмесе, онда стандартты showException әдісі шақырылады, ол класс жайында және исключительный жағдайлар жайында хабардар етеді.

2 және 3 пунктер TAppiication.HandieException әдісінде таратылады. Ол келесі түрде беріледі:

if not (ExceptObject is EAbort) then

if Assigned(FOnException) then FOnException(Sender, Exception(ExceptObject))

else ShcwExceptior. (Exception(ExceptObject));

onExceptiоn өңдегіші бір әрекетті пайда болған исключительный жағдайларда қолдану керек болса қолданылады. Мысалы:

program Project!;

uses

Forms, SysUtils, //добавлено вручную — там описан класс Exception Dialogs,

Unitl in 'Unitl.pas' {Forml};

{$R *.RES}

type

TExceptClass = class

public

procedure GlobalExceptionHandler(Sender: TObject; E:Exception);

end;

procedure TExceptClass.GlobalExceptionHandler(Sender: TObject;

E:Exception);

begin

ShowMessage('Произошла исключительная ситуация ' + E.ClassName

+ ': ' + E.Message + #13#10'Свяжитесь с разработчиками по тел. 222-33-44');

end;

begin

with TExceptClass.Create do

begin

Application.OnException := GlobalExceptionHandler; Application.Initialize;

Application.CreateFormfTForml, Forml); Application.Run; Free;

end;

end.

55. Nonono

56. Программаға қатынауды журналдау әдістері және қорғау құралдары.

57. Тест құру. Пред- және пост- шарттар – құрылуы және қолданылуы. Тест алу бағдарламасын құру мына әрекеттерді жасаймыз: • белгілі бір атпен қапшық құрып, оны С- дискісіне сақтаймыз. Блокнот бағдарламасын ашып оған ретімен сұрақтарыңызды жазасыз. Әр сұрақ бір қатарға жазылады. Аралық интервал тастаудың қажеті жоқ. Барлық сұрақтарды жазып болған соң блокнотты ат қойып өзіңіз құрған қапшыққа сақтайсыз. Тағыда блокнот бағдарламасын ашып оған ретімен жауаптарыңызды жазасыз. Әр жауап бір қатарға жазылады. Аралық интервал тастаудың қажеті жоқ. Барлық сұрақтарды жазып болған соң блокнотты ат қойып қапшығыңызға сақтайсыз. • Тағыда блокнот бағдарламасын ашып оған ретімен дұрыс жауаптарды цифрмен жазасыз. Әр жауап бір қатарға жазылады. Дұрыс жауаптар цифрмен жазылады. Мысалы: 1. 3. 2. 3… Аралық интервал тастаудың қажеті жоқ. Барлық дұрыс жауаптарды жазып болған соң блокнотты ат қойып қапшығына сақтайсыз. • Тағыда блокнот бағдарламасын ашып оған ештеңе жазбаймыз. Блокнотты ат қойып қапшығына сақтайсыз. Бұлай ету себебіміз оқушы тест тапсырғанда аты-жөні, алған балы осы блокнотта сақтаулы болады оны кейін ашып көруге болады. Келесі әрекетіміз Visual Basic бағдарламасын іске қосып, мынадай әрекеттер жасаймыз: 4-текстік өріс орналастырып қасиеттер терезесіндегі Text текстік өріс ішін оң жағындағы Text1, Text2,Text3,Text4 жазуларын өшіру арқылы тазалап қоямыз. Мысалы: • 6 батырманы формаға орналастырамыз. Оларға әрқайсысына қасиеті арқылы жазу жазамыз. Мысалы: Мынадай: Сұрақтар, Жабу, Дұрыс жауапты тап ,1, 2, 3. Әр батырманың атқаратын қызметі бар Сұрақтар батырмасын шерткенде 1-ші текстік өріске сұрақ шығады. 2, 3,4-ші текстік өрістерге жауаптар шығады.1,2,3 батырмалары қай сұрақты дұрыс десең сол кезде шерту керек.