Лабник по СПО

Функция выводит сообщение в модальном окне с кнопкой OK, которая организует ожидание. В заголовке окна сообщения выводится имя исполняемого приложения, а на поле окна сообщения - текст сообщения, записанный внутри скобок.

Простое сообщение не определяет реакцию пользователя. Для определения реакции пользователя предусмотрена функция:

Function MessageBox(Const Text, Caption: PChar; Flags: Longint): Integer;

Функция выводит сообщение в модальном окне с набором кнопок, число и вид которых определяются значениями флагов. Функция возвращает значение нажатой кнопки в соответствии с табл.5.1.

Таблица 5.1

Значения, возвращаемые кнопками сообщений

MB_ICONEXCLAMATION, MB_ICONSTOP, MB_ICONQUESTION.

Сообщение, показанное на рис.5.3, можно вызвать на экран как члена класса Application с заданием соответствующих значений параметров спецификации функции

(язык C++ Builder):

int MSq=Application->MessageBox("Программу закрыть", "Работа с меню",MB_YESNOCANCEL | MB_ICONQUESTION);

121

PDF created with pdfFactory Pro trial version www.pdffactory.com

MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2) = IDYES Then CanClose:=True

Else CanClose:=False

End;

или

void __fastcall TfmCalc::FormCloseQuery (TObject *Sender, bool &CanClose)

{

PChar StrMs;

if (IndSave==0) StrMs="Результаты не сохранены"; else StrMs="Закрытие программы";

int MsQv=Application->MessageBox("Выходите из программы?" ,StrMs,MB_YESNO | MB_ICONQUESTION | MB_DEFBUTTON2); if (MsQv==IDYES) CanClose=true;

else CanClose=false;

}

Схема программы для расчёта площадей плоских фигур

Работа программы должна начинаться с вывода значений по умолчанию и проверки наличия команды на закрытие программы.

Затем необходимо вывести список фигур, площадь которых может рассчитать программа. После этого должна выполняться проверка наличия команд на расчёт, на запись результатов расчёта в список и на сохранение результатов расчёта в файле (рис.5.4).

123

PDF created with pdfFactory Pro trial version www.pdffactory.com

Размещаем на форме пять меток: три для обозначения исходных данных, одну для обозначения результата расчёта и одну для вывода сообщения об ошибке.

Размещаем на форме четыре редактора для ввода значений исходных данных и вывода результата. Свойству ReadOnly редактора для вывода результата присваиваем значение True. Устанавливаем четыре кнопки, вводим заголовки и пиктограммы. Устанавливаем редактор для ввода имени файла, в котором будут сохраняться результаты расчётов.

Помещаем на форму список типа TListBox. В свойство списка Items вводим перечень фигур и сочетаний горячих клавиш в соответствии с рис.5.6. Поскольку расчёт площади треугольника может производиться двумя способами: по высоте и по длине трёх сторон, то для выбора способа расчёта площади треугольника введена третья клавиша, нажимаемая отдельно, после нажатия сочетания клавиш Ctrl+T.

Начальные значения площади выделенной фигуры должны соответствовать начальным значениям исходных данных. Обычно в качестве начальных значений выбирают нули, но в данном случае, при выборе начальной фигурой треугольника с расчётом площади по трём сторонам, удобнее выбрать значения сторон 3, 4 и 5, соответственно площадь должна получить значение 6.

Проверяем работу проекта.

Для формирования сообщения о закрытии программы добавим ещё одну форму. Присвоим добавленной форме имя fmClose, файлу второго модуля - имя UnClose. Установим на форму рисунок со знаком вопроса, метку с вопросом и две кнопки для выбора ответа (рис.5.7).

Рис.5.7. Окно сообщения о закрытии программы

Для формирования сообщения о некорректном вводе или о недопустимых значениях исходных данных добавим ещё одну форму. Например, недопустимыми являются значения, при которых сумма двух сторон треугольника меньше третьей стороны, такого треугольника не может быть. Присвоим новой форме имя fmError, файлу

126

PDF created with pdfFactory Pro trial version www.pdffactory.com

второго модуля - имя UnErr. При возникновении исключительной ситуации должно открываться модальное окно с соответствующей ситуации надписью (рис.5.8).

Рис.5.8. Окно сообщения о недопустимых значениях

исходных данных

Надпись на сообщении об ошибке должна соответствовать ситуации - ошибка ввода или недопустимые значения длины сторон треугольника.

Это уже третья форма. Создаём ещё одну, четвёртую, форму для записи результатов расчёта. Помещаем на неё многострочный редактор типа TMemo. Не забываем внести ссылки на все созданные формы в файл главной формы, и во все созданные формы вносим ссылки на главную форму.

Текст программы на языке Delphi

Написание текста необходимо производить в такой последовательности, чтобы после написания каждого оператора можно было проверять работу программы. Объявляем переменные типа Double для хранения задаваемых и расчётной величин. Объявляем переменную RP для хранения вида рассчитываемой фигуры и переменную Trng для регистрации вызова фигуры треугольника, строковую переменную для формирования строки результата и три переменные типа Byte для хранения информации о числе записей результатов в отчёте, о записи последнего расчёта и о сохранении отчёта в файле.

Var

fmArea: TfmArea;

127

PDF created with pdfFactory Pro trial version www.pdffactory.com

A,C,H,S :Double;

RP,Trng :Byte;

IndWr, IndPas, IndSave :Byte; ResStr: String;

Создаём функцию преобразования строки в число с выводом сообщения о некорректном вводе или недопустимых значениях исходных данных. Сообщение выводим на модальную форму fmError.

Function TfmArea.Vvod(Str: String): Double;

Begin

Try

Vvod:=StrToFloat(Str);

Except

Vvod:=0;

If ((Str <> '')And(Str <> ' '))

Then Begin fmError.LabelErr.Caption:='Ошибка ввода'; fmError.ShowModal

End

End

End;

Затем через событие OnCreate главной формы задаём начальные значения

параметров по умолчанию и исходное значение индекса в списке для расчёта площади треугольника по трём сторонам. Задаём текст строки для записи в отчёт на случай, если команда на запись появится раньше команды на расчёт.

Procedure TfmArea.FormCreate(Sender: TObject);

Begin

RP:=3; ListBox1.ItemIndex:=RP; A:=3; H:=4; C:=5;

IndWr:=0; IndSave:=0; IndPas:=0;

ResStr:=' A = 3; B = 4; C = 5; S = 6.'

End;

Создаём текстовые константы для строк, которые будут использоваться более одного раза, чтобы не переписывать одно и то же несколько раз.

Const lA='Сторона А = ';

128

PDF created with pdfFactory Pro trial version www.pdffactory.com

lB='Сторона B = '; lH='Высота H = ';

SS='Площадь треугольника S = '; sA=' A = ';

Создаём процедуру расчёта, используя переключатель Case с параметром RP (распечатка 5.2).

Распечатка 5.2

Procedure TfmArea.Calc;

Begin

IndPas:=0;

Case RP Of

2:Begin

ALb.Caption:=lA;

LabH.Caption:=lH;

SLb.Left:=224;

SLb.Caption:=SS;

LabC.Visible:=False;

CEd.Visible:=False;

LabH.Visible:=True;

HEd.Visible:=True;

S:=A*H/2;

SEd.Text:=' '+FloatToStrF(S,ffGeneral,5,2);

ResStr:=sA+AEd.Text+

';H = '+HEd.Text+'; S = '+SEd.Text+'.'

End;

3:Begin

ALb.Caption:=lA;

LabH.Caption:=lB; LabC.Caption:='Сторона C = '; SLb.Left:=224; SLb.Caption:=SS; LabH.Visible:=True; HEd.Visible:=True; LabC.Visible:=True; CEd.Visible:=True;

S:=(A+H+C)*(H+C-A)*(A-H+C)*(A+H-C)/16;

129

PDF created with pdfFactory Pro trial version www.pdffactory.com

If S>=0 Then Begin

S:=Sqrt(S);

Ed.Text:=' '+FloatToStrF(S,ffGeneral,5,2)

End

Else Begin

SEd.Text:=' ??'; fmError.LabelErr.Caption:='Недопустимые'#13'значения';

fmError.ShowModal

End;

ResStr:=sA+AEd.Text+'; B = '+HEd.Text+ ';C = '+CEd.Text+'; S = '+SEd.Text+'.'

End;

4:Begin

ALb.Caption:=lA;

SLb.Left:=246; SLb.Caption:='Площадь квадрата S = '; S:=A*A;

SEd.Text:=' '+FloatToStrF(S,ffGeneral,5,2); LabH.Visible:=False;

HEd.Visible:=False;

LabC.Visible:=False;

CEd.Visible:=False;

ResStr:=sA+AEd.Text+'; S = '+SEd.Text+'.'

End;

5:Begin

ALb.Caption:=lA;

LabH.Caption:=lB;

SLb.Left:=210;

SLb.Caption:='Площадь прямоугольника S = '; LabH.Visible:=True;

LabC.Visible:=False;

CEd.Visible:=False;

HEd.Visible:=True;

S:=A*H;

SEd.Text:=' '+FloatToStrF(S,ffGeneral,5,2)

130

PDF created with pdfFactory Pro trial version www.pdffactory.com