Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабник по СПО

.pdf
Скачиваний:
9
Добавлен:
05.06.2015
Размер:
1.59 Mб
Скачать

Основной характеристикой исключения является его тип. Родительский класс всех исключений Exception имеет много потомков разных типов, но система программирования C++ Builder позволяет не указывать конкретный тип исключения. Если в заголовок блока catch ввести три точки, то в этом случае обрабатываются все исключения.

catch(...)

{

//Операторы, обрабатывающие исключение;

}

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

На языке Delphi обработчик исключения записывается следующим образом:

Try

//Операторы, выполнение которых может вызвать исключение;

Except

//Операторы, обрабатывающие исключение;

End;

Зарезервированное слово Try (попытка) обозначает начало оператора или блока операторов, во время выполнения которых может возникнуть исключение. Если во время выполнения операторов блока Try возникло исключение, то выполняются операторы блока Except (исключение). Если исключение не возникло, операторы блока Except пропускаются. Если не указывать тип исключения, то будут обрабатываться все исключения.

Компоненты библиотеки VCL, используемые в работе

Компонент BitBtn (кнопка с графикой) находится на вкладке Additional, имеет действующее свойство Font.Color и набор стандартных действий в свойстве Kind с набором условных обозначений.

Условные обозначения на кнопке можно изменять, используя свойство Glyph. Рисунок для кнопки должен быть типа *.bmp. Изображения на кнопке могут изменяться в зависимости от её состояния. Таких состояний может быть три: нормальное, запрещённое

инажатое. Для отображения состояния кнопки рисунок может содержать

соответствующее число пиктограмм, расположенных в виде одного длинного растра. Для

41

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

одной пиктограммы размер растра в пикселях равен 16×16, для двух - 32×16, для трёх - 48×16. В принципе растр может содержать до четырёх пиктограмм, но в кнопке BitBtn используется только три состояния. Четвёртая пиктограмма может использоваться для кнопки типа SpeedButton, имеющей четыре состояния: нормальное, запрещённое,

нажатое и утопленное.

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

Если в растре имеется только одна пиктограмма, то её изображение меняется автоматически. В состоянии нажатая пиктограмма смещается на один пиксель вправо и вниз. В состоянии запрещённая все цвета, кроме чёрного, меняются на светло-серый, а чёрный - на белый, что обеспечивает эффект вдавленности изображения.

Для того чтобы перевести кнопку в состояние запрещённое, необходимо свойству Enabled присвоить значение False. Присвоение значения True делает кнопку доступной, например:

BitBtn2.Enabled := True; BitBtn2->Enabled = true;

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

Компонент Memo (многострочное окно ввода) находится на вкладке Standard и предназначен для ввода, редактирования и (или) отображения многострочного текста. Текст хранится в поле класса TStrings и представляет собой набор строк. Каждая линия компонента Memo может содержать значения только символьного или строкового типа.

Компонент Memo позволяет вводить текст построчно, а также обращаться к строке по её номеру, если строка с таким номером имеется, например: Memo1->Lines->Add("Вводимый текст");

Memo1->Lines->Strings[2]="Текст строки2"; Label1->Caption=Memo1->Lines->Strings[2];

или

Memo1.Lines.Add('Вводимый текст'); Memo1.Lines[2]:='Текст строки'; Label1.Caption:=Memo1.Lines[3];

42

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

В приведённых операторах Memo1 имя компонента Memo.

Свойство Lines - это указатель на класс TStrings. Конкретная строка Strings[i] является экземпляром класса AnsiString или строки типа String.

В классе TStrings есть методы SaveToFile(<Имя файла>) и LoadFromFile(<Имя файла>),

позволяющие сохранять и загружать строки из текстового файла. Memo1->Lines->SaveToFile("Sv.txt"); Memo1->Lines->LoadFromFile("Sv.txt");

или

Memo1.Lines.SaveToFile('Sv.txt');

Memo1.Lines.LoadFromFile('Sv.txt');

Свойство WantReturns = True обеспечивает переход на новую строку при нажатии клавиши Enter, в противном случае клавиша Enter обрабатывается системой и для перехода на новую строку нужно нажать комбинацию клавиш Ctrl+Enter.

Свойство WantTabs = True вводит в текст символ табуляции, в противном случае -

обрабатывается системой и для ввода в текст символа табуляции нужно нажать комбинацию клавиш Ctrl+Tab.

Если необходимо, чтобы в момент запуска объект типа ТMemo содержал текст, то нужно щелкнуть по значению свойства Lines и в окне String List Editor ввести текст.

Для очистки поля редактора Memo1 во время выполнения используется оператор

Memo1->Clear();.

или

Memo1.Clear;

Компонент RichEdit (многострочное окно ввода) находится на вкладке Win32 и предназначен для ввода, редактирования и (или) отображения многострочного текста. Отличается от компонента Memo расширенным текстовым форматом RTF. Текст формата RTF хранит дополнительную служебную информацию, управляющую свойствами каждого абзаца и сменой шрифта по ходу текста.

Компонент RichEdit обладает методом для форматирования текста по границам листа бумаги и печати его на принтере. Вызов метода печати реализуется оператором

RichEdit1.Print('Печать');

или

RichEdit1->Print("Печать");

RichEdit1 имя объекта, Печать имя заголовка файла печати.

43

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

Компонент ListBox (окно списка) находится на вкладке Standard. Стандартный для ОС Windows список выбора предназначен для работы с перечнем текстовых элементов (с ограничением по числу до ~ 5000 шт.). Перечень можно создавать (в том числе загружать как строки из текстового файла), преобразовывать и выгружать в файл. Элементы списка можно выбирать с помощью клавиатуры или мыши.

Основное свойство списка Items (массив строк) аналогично свойству Lines для компонента Memo. Индекс выбранного элемента списка хранится в переменной ItemIndex. Методы Add, Delete, Insert используются для добавления, удаления и вставки строк.

Свойство Sorted = True упорядочивает список по возрастанию кода символов строк. ItemHeight - вертикальный размер элементов, Columns - число колонок в списке, ExtendedSelect - возможность множественного выбора элементов (при удержании клавиши Shift), при этом для выбранных элементов свойство Selected равно значению

True.

Компонент ComboBox (редактируемый список) находится на вкладке Standard и представляет собой комбинацию списка ListBox и редактора Edit. Существует пять модификаций компонента, определяемых его свойством Style: csSimple, csDropDown, csDropDownList, csOwnerDrawFixed и csOwnerDrawVariable. В первом случае список всегда раскрыт, в остальных он раскрывается после нажатия кнопки, которая находится справа от окна редактирования.

Вмодификации csDropDownList редактор работает в режиме отображения выбора

исписок нельзя использовать для ввода новой строки.

Свойства и методы компонента ComboBox полностью совпадают со свойствами и методами компонента ListBox аналогичного назначения. Своими у компонента являются лишь методы и события, связанные с раскрытием списка:

Ÿсвойство DropDownCount определяет число элементов, при превышении которого добавляется полоса прокрутки. По умолчанию это число равно 8;

Ÿсвойство DroppedDown определяет, раскрыт ли список;

Ÿсобытие OnDropDown происходит при изменении состояния списка.

Вывод данных с задержкой

В некоторых случаях требуется вывод нескольких значений параметра на один объект с заданным интервалом времени. Для обеспечения задержки предусмотрен

44

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

оператор Sleep(Time), но при использовании этого оператора часть выводимой информации может пропасть и не отобразиться на экране. Например, если запустить процедуру вывода трёх значений переменной на одну метку с интервалом в 2 с (распечатки 2.1 и 2.2), то увидим через 4 с только последние результаты, соответствующие третьему значению числа Nm3 = 3.

Распечатка 2.1

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Label1->Caption = " Nm1 = 1"; Sleep(2000);

Label1->Caption = " Nm2 = 2"; Sleep(2000);

Label1->Caption = " Nm3 = 3";

}

Распечатка 2.2

Procedure Tfm2Work1.Button1Click(Sender: TObject);

Begin

Label2.Caption := ' Nm1 = 1'; Sleep(2000);

Label2.Caption := ' Nm2 = 2'; Sleep(2000);

Label2.Caption := ' Nm3 = 3'

End;

Для проверки работы оператора Sleep(2000) создадим проект, установим на форму метку и кнопку и наберём текст, приведённый в распечатке 2.1 или 2.2. Проверим работу процедуры.

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

Application->ProcessMessages объекта Application или метод Repaint класса TControl.

Вызов метода Repaint приводит к немедленному отображению изменений заголовка метки. Пример процедур с использованием метода Repaint приведен в распечатках 2.3 и 2.4.

Распечатка 2.3

void __fastcall TForm1::Button1Click(TObject *Sender)

{

45

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

Label1->Caption = " Nm1 = 1"; Repaint(); Sleep(2000); Label1->Caption = " Nm2 = 2"; Repaint(); Sleep(2000); Label1->Caption = " Nm3 = 3";

}

Распечатка 2.4

Procedure Tfm2Work1.Button1Click(Sender: TObject);

Begin

Label2.Caption := ' Nm1 = 1'; Repaint; Sleep(2000); Label2.Caption := ' Nm2 = 2'; Repaint; Sleep(2000); Label2.Caption := ' Nm3 = 3'

End;

При вызове процедур, приведённых в распечатках 2.3 и 2.4, числа выводятся поочерёдно с интервалами в 2 секунды.

Схема программы для расчёта параметров колебательного контура

Резонансная частота колебательного контура определяется формулой

f =

1

 

,

 

 

LC

где f - резонансная частота колебательного контура; L - индуктивность колебательного контура; С - электрическая емкость колебательного контура.

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

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

Ÿкоманда на закрытие программы;

Ÿввод значения индуктивности колебательного контура;

Ÿввод значения электрической емкости колебательного контура;

Ÿввод значения резонансной частоты колебательного контура;

46

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

Ÿввод единиц измерения индуктивности колебательного контура;

Ÿввод единиц измерения электрической емкости колебательного контура;

Ÿввод единиц измерения резонансной частоты колебательного контура;

Ÿввод рассчитываемого параметра;

Ÿкоманда на запись результатов расчёта.

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

1

Начало

2

Вывод нач. значений

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

?

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выход

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Запись

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Нет

 

 

14

 

 

 

 

 

 

 

 

 

 

 

результатов

 

Да

?

 

 

 

 

 

 

Конец

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Запись

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

?

Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6

 

 

 

 

13

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Расчёт L

 

 

 

 

 

 

 

 

 

Расчёт

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

результата

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ввод L

 

 

 

 

 

12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Пересчёт

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

в осн. единицы

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Расчёт C

 

 

 

 

 

 

 

11

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ввод f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ввод C

 

 

 

 

 

 

 

10

 

?

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Расчёт f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

47

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

Ввод исходных данных должен производиться только в два не рассчитываемых параметра. Изменение значения рассчитываемого параметра должно производиться по результатам расчёта. Ввод параметра оформлен как предопределённый процесс. Процесс ввода параметра предусматривает чтение введённой строки и преобразование её в число.

Для проверки корректности введённых символов следует использовать механизм защищенного блока. Если преобразование введённой строки в число невозможно, то параметру нужно присвоить нулевое значение, чтобы не возникла неопределённость, программа должна выдать сообщение об ошибке (блок 5 на рис.2.2) и вернуться на начало ввода. При успешном преобразовании строки в число сообщение об ошибке нужно удалить. Предопределённые процессы ввода параметров одинаковы и отличаются только именем переменной, поэтому для ввода данных удобно использовать одну функцию, схема которой показана на рис.2.2.

 

 

 

 

 

 

 

 

 

 

 

 

 

1

Начало

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

строки

 

 

 

 

 

 

 

 

 

Чтение

 

 

 

6

 

 

 

 

 

 

 

 

Число = 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Преобразование в число

 

 

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Сообщение об ошибке

 

 

 

 

 

 

?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4

 

 

 

 

 

 

 

 

 

 

Нет

 

 

 

Преобразование

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

успешно

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Убрать сообщение

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

8

 

?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ещё символ

Нет

9

Конец

Рис.2.2. Схема функции для преобразования строки в число

Подпрограмма пересчёта введённых значений параметров в основные единицы измерения (блок 12 на рис.2.1) должна содержать: операторы ввода заданных единиц

измерения величин и операторы пересчёта значений величин в основные единицы измерения. Схема подпрограммы пересчёта введённых значений параметров в основные

единицы измерения данных показана на рис.2.3.

48

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

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Начало

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

?

 

 

 

 

 

 

 

 

 

 

 

 

 

Гн

2

 

 

мкГн

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Единицы L

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

мГн

 

 

 

 

 

 

 

 

 

 

 

Lо = L

 

 

 

 

 

4

 

 

 

 

 

 

 

 

Lо = L/1E6

 

 

 

 

 

 

 

 

 

 

Lо = L/1E3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

?

 

 

 

 

 

 

 

 

 

 

 

Гц

6

 

 

 

 

МГц

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Единицы f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

кГц

 

 

9

 

 

 

 

 

 

 

 

fо = f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

fо = f*1E6

 

 

 

 

 

 

 

 

 

8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

fо = f*1E3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

?

 

 

 

 

 

 

 

 

 

 

 

 

 

мкФ

10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Единицы С

 

 

 

 

 

 

 

 

 

11

 

 

 

 

 

 

 

12

 

 

 

 

пФ

 

 

 

 

 

 

 

Со = C*1E–6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Со = C/1E12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

13

Конец

Рис.2.3. Схема подпрограммы пересчёта параметров

в основные единицы измерения

Подпрограмма расчёта результата должна выполнять: ввод рассчитываемого параметра; ввод единицы измерения рассчитываемого параметра; расчёт значения параметра; вывод значения рассчитываемого параметра на метку. Перед выполнением

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

49

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

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Начало

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

L

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

Рассч.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

параметр

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

C

 

 

 

 

 

 

 

 

 

 

 

 

 

Нет

3

 

?

 

 

 

 

 

 

 

 

 

11

 

?

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f*C > 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

L*C > 0

 

 

 

 

 

 

 

 

 

Да

 

7

 

?

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

 

f*L > 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

 

 

 

 

 

 

 

 

 

 

 

 

 

12

 

 

L

= ?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

C = ?

 

 

 

 

 

 

 

f

= ?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4

 

 

 

 

 

 

 

8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

13

 

 

 

 

 

 

 

 

 

 

 

 

Расчёт L

 

 

 

Расчёт C

 

 

 

 

 

 

 

Расчёт f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

значения L

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

14

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

значения C

 

 

 

 

 

 

 

 

значения f

15

Конец

Рис.2.4. Схема программы расчёта результата

Создание проекта

Создаём проект типа VCL Forms Application. Сохраняем проект в подготовленной заранее папке с именем Work2, присваиваем главному модулю имя UnLCF, а проекту - имя LCf. Присваиваем форме имя fmLCF. Проверяем работу программы.

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

одну метку для вывода текста Рассчитываемый параметр и одну метку для вывода сообщения об ошибке ввода. Размещаем на форме три редактора для ввода значений величин, три списка типа TComboBox - для выбора единиц измерения и один список - для выбора рассчитываемого параметра. Помещаем на форму многострочный редактор для накопительной записи результатов расчёта. Устанавливаем кнопки Записать и Выход, вводим заголовки и устанавливаем в свойстве Kind кнопки Выход значение bkClose. В свойство Glyph кнопки Записать вводим рисунок, обозначающий запись результатов расчёта. Проверяем работу программы. Предлагаемый вид формы с двумя записанными

результатами расчёта и некорректными данными для третьего расчёта показан на рис.2.5.

50

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]