inf_meth_Delphi

Rocker position angle can be identified using the following parameters:

crank rotation angle– ;

crank radius– R;

distance between supports – L;

rocker length– L1;

connecting rod length – L2.

Для однозначного определения углаположения коромысла функция должна получать для расчета такие параметры:

угол поворота кривошипа – ;

радиус кривошипа – R;

расстояние между опорами – L;

длину коромысла – L1;

длину шатуна – L2.

Caption of rocker position function should be described in interface section of Main unit, and function should be described in implementation section.

Заголовок функции положения коромысла должен быть описан в интерфейсной секции модуля Main, а сама функция – в секции реализации.

Function parameters allow determining rocker position (rotation angle). First function line is assigned to calculate Lk value, and the second one is assigned to determine function value. After creating a function one should specify input parameter and result units. In this case angular values (alfa) are set in radians and linear values (R,L,L1,L2) are set in millimeters. Function result (fi) is an angular value in radians.

В функцию передаются параметры, позволяющие однозначно определить положение (угол поворота) коромысла. Первой строкой функции рассчитывается значение Lk, а второй – непосредственно значение функции. При создании функции обязательно следует четко определить, в каких единицах передаются значения параметров в нее, и в каких единицах функция выдает результат. В нашем случае угловые величины (alfa) передаются в радианах, линейные (R,L,L1,L2 – в мм). Результат функции (fi) – угловая величина в радианах.

Transmission ratio function

To identify the transmission ratio u the function should receive the same parameters as rocker position function. Schematically the function can be displayed as follows.

Функция передаточного отношения

Для однозначного определения передаточного отношения u функция должна получать такие же параметры, как и функции положения коромысла. Схематически функцию можно отобразить так.

Caption of rocker position function should be described in interface section of Main unit, and function is described in implementation section.

Заголовок функции положения коромысла должен быть описан в интерфейсной секции модуля Main, а сама функция – в секции реализации.

Transmission ratio function requires the same parameters as the previous one which is invoked inside the function body. Transmission ratio has no dimension.

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

Structure of main menu

Solution of the second task should result in creating simple menu system which allows invoking single system units of main program.

Menu structure is described in fig. 2.6:

Структура главного меню

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

Предлагается следующая структура меню (рис. 2.6).

It is necessary to place component

MainMenu1 of TMainMenu on Delphi form for making menu structure (fig. 2.6).

Further, one should go to menu creation mode by double clicking of left button and input caption of corresponding items (Caption property).

To add icons to menu items, you should create image collection (ImageList1), attach it with main menu (Images) and point out the image which should be inserted to corresponding menu item.

For procesing of event of choosing a determine point of menu, item requires double click of left button on this menu item that results in generating program code fragment. The form of a specific unit shoud be invoked between operators “begin” and “end” as follows:

Для создания приведенной на рис. 2.6 структуры меню в среде Delphi необходимо на форме разместить компонент MainMenu1

класса TMainMenu.

Далее двойным нажатием левой кнопки мышки следует перейти в режим создания меню и ввести надписи соответствующих пунктов (свойство Caption).

При желании добавить к соответствующим пунктам меню пиктограммы, следует сначала создать коолекцию катринок (компонент ImageList1), подсоединить ее к главному меню (свойство Images) и указать какую катринку следует поставить в соответствие каждому из пунктов меню.

Для обработки события выбора определенного пункта меню, следует в режиме проектирования меню дважды нажать на соответствующем пункте левой кнопкой мышки, что приведет к генерированию фрагмента кода программы. Между операторами begin и end следует вызвать форму соответсвующего модуля как это показано ниже.

2.4.3 Design of unit “DataInput”

DataInput unit is assigned to provide correct data input. There are two types of data: values typed with the keyboard (L, R, B, L1) and calculated value (D, L2). After all data are input and processed checking information is output on the screen. Operation is completed by saving both new and previous values.

English interface of input data unit is introduced in fig. 9.

Input data unit should process some independent events:

Form activation (during calling from main unit);

Pressing button “Update checking information” (BitBtn1);

Pressing button “Apply new parameters” (BitBtn2);

Pressing button “Exit without saving values” (BitBtn3);

2.4.3 Проектирование модуля

DataInput

Основное назначение модуля DataInput

– обеспечить удобный и безошибочный ввод исходных данных. Отметим, что данные разделяются на такие, которые следует вводить (L, R, B, L1) и такие, которые рассчитываются (D, L2). После ввода и расчета всех данных на экран следует вывести контрольную информацию. Завершение работы возможно с принятем новых знaчений и с сохранением предыдущих.

Интерфейс английского варианта модуля ввода данных представлен на рис. 9.

Модуль ввода данных должен обрабатывать несколько независимых событий:

Активизация формы (при вызове из главного модуля);

Нажатие на кнопку «Обновить контрольную информацию» (BitBtn1);

Нажатие на кнопку «Принять новые параметры» (BitBtn2);

Нажатие на кнопку «Выйти без сохранения значений» (BitBtn3);

Procedure provides identity of current and temporary value of parameters and after that it is displayed in a suitable form component

(Edit1.Text).

Процедура обеспечивает идентичность текущего и временного значений параметров, после чего отображает его в соответствующем компоненте формы (Edit1.Text).

Event of input data update takes place when pressing button BitBth1. Before checking information output it is necessary to examine it (procedure CheckData), recalculate all values (procedure RecalculateData) and clean a form (Memo1.Lines.Clear).

Full English text of input data update procedure is listed below.

Событие обновления введенной информации возникает при нажатии на кнопку BitBth1. Перед непосредственным выводом контрольной информации ее необходимо проверить (процедура CheckData), пересчитать все значения (процедура RecalculateData) и очистить поле вывода от предыдущих результатов (Memo1.Lines.Clear)

Полный текст английского варианта процедуры обновления введенной информации приведен ниже.

Procedure CheckData consists of four equal blocks, each block controls correct input of one variable. English text of such block is listed below.

try

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

end except

ShowMessage('Input number!'); RestoreDefaultL;

end;

Structure try…except…end allows correct data input (between try and except) and displaying a message of incorrect data input (Input number!). Structure try…except…end allows control type mapping only but not range of values. Therefore, the final control block contains the following operations.

Структура try…except…end; позволяет попробовать корректно ввести данные (часть между try и except) и выдать сообщение о некорректном вводе (Input number!). Отметим, что структура try…except…end; позволяет проконтролировать только соответствие типов, но не контроллировать диапазон значений. Поэтому окончательно блок Контроля вода содержит следующие действия.

First variable L attempts to set component Edit1 value of input data form. In case of a successful input we check a range of input value, and if input value exceeds the bounds of this range, the following message is displayed (' L must be in 100...250 mm') and default value is restored. If user tried to input data which are not a number, other message will be displayed ('Input number!') and default value will be restored.

Procedure RecalculateData is responsible for transferring values of forming components to corresponding variables and calculating dependent values. Procedure text is stated below.

Сначала значению переменной L предпринимается попытка присвоить значение компонента Edit1 формы ввода данных. Если эта попытка выявилась удачной (пользователь ввел число, а не просто набор символов) мы контролируем диапазон введенного значения и, если введенное значение выходит за пределы этого диапазона, выдаем на экран соответсвующее сообщение (' L must be in 100...250 mm') и

восстанавливаем значение по умолчанию. Если же пользователь пытался ввести совсем не число, будет выведено другое сообщение ('Input number!') и также восстановлено значение по умолчанию.

Процедура RecalculateData представляет собой передачу значений от элементов формы ввода соответствующим переменным и расчет зависимых значений. Текст процедуры приведен ниже.

Event of input data reception takes place when pressing button BitBth2 and consists of invoking of two procedured previously described

– input data checkup (procedure CheckData) and recalculation (procedure RecalculateData).

Procedure code is listed below.

Событие принятия введенной информации возникает при нажатии на кнопку BitBth2 и состоит в вызове двух ранее описанных процедур – проверки введенных значений (процедура CheckData) и пересчета

(процедура RecalculateData).

Код процедуры принятия введенной информации приведен ниже.

Thus, DataInput unit elements allow organizing correct data input for a specific task.

Таким образом, совокупность элементов модуля DataInput позволяет организовать кооректный ввод исходных данных для рассматриваемого варината задания.

2.4.4 Design of unit ”OutputResult”

Unit OutputResult is assigned for output of information about mechanism elements using 12 points (in 30 degrees of crank rotation), calculation and output of boundary values of mechanism parameters, saving results to text file.

English interface of result output unit is shown on fig. 2.8.

Fig. 2.8. Interface of result output

2.4.4 Проектирование модуля

OutputResult

Назначение модуля OutputResult – обеспечить вывод на форму информации об элементах механизма по 12 точкам (через 30 градусов вращения кривошипа), расчет и вывод предельных значений параметров механизма, запись результов в текстовый файл.

Интерфейс английского варианта модуля вывода резльтатов представлен на рис. 2.8.

Рис. 2.8. Интерфейс вывода результатов

Result output unit should process several independent events:

Form activation (when it is invokedg in main unit);

Pressing button BitBth1 “Save results to file and exit”;

Pressing button BitBth2 “Exit wothout saving”

Form activation event

Form activation procedure code is listed below:

Модуль вывода результатов должен обрабатывать несколько независимых событий:

Активизация формы (при вызове из главного модуля);

Нажатие на кнопку «Сохранить результаты в файле и выйти» (BitBtn1);

Нажатие на кнопку «Выход без сохранения» (BitBtn2);

Событие активизации формы

Ниже приведен код процедуры активизации формы:

First, one should fill in a table in the left corner of a form. There is a cycle (parameter i) responsible for output of numerical values, in which a value of crank rotation angle (alfa) is calculated, further the value of rocker rotation angle (fi) and transmission ratio (u) is calculated. The variable values after conformance of dimensions (degrees-radians) and transformation into values of string type, are transferred to corresponding cells (Cells) of the table (StringGrid1).

The second part of procedure consists of output of boundary values in the table in the right corner of the form (StringGrid12). Before being output boundary values should be determined (internal procedure CalcMinMax, procedure code is listed below).

Draw attention that maximum values on the right of a table can slightly exceed the values on the left of a table, and minimum values can be rather less respectively. This can take place if only extreme(s) of a function conforms to crank rotation angle, not divisible by 30.

При появлении перед пользователем формы сначала происходит заполнение таблицы в левой части формы. Основу вывода численных значений составляет цикл (параметр i), в котором рассчитывается значение угла поворота кривошипа (alfa), затем рассчитывается значение угла поворота коромысла (fi) и передаточного отношения (u). Значения этих переменных после согласования размерностей (градусырадианы) и преобразования в строковые значения, передаются соответствующим ячейкам (Cells) такблицы (StringGrid1).

Вторая часть процедуры предсталяет собой вывод предельных значений в таблицу в правой части формы (StringGrid12). Однако перед выводом предельных значений следует их найти (внутренняя процедура CalcMinMax) код которой приведен ниже.

Обратите внимание на то, что максимальные значения в таблице справа могут несколько превышать, а минимальные значения быть меньшими результатов, которые отображаются в таблице слева. Это может быть лишь в том случае, если экстремум (-мы) функции соответствуют углу поворота кривошипа, не кратным 30.

Forming of array elements

ZnAlfa, ZnFi, ZnU

No

Fig. 2.9. Algorithm of deterimination of boundary values

Saving results to file

Results are saved to text file by pressing button “Save results to file and exit” (BitBtn1).

English code variant procedure which describes event of pressing button BitBtn1 is stated below.

Формирование элементов массивов ZnAlfa, ZnFi, ZnU

Нет

Рис. 2.9. Алгоритм нахождения предельных значений

Сохранение результатов в файле

Действия, приводящие к сохранению результатов в текстовом файле, возникают при нажатии на кнопку «Сохранить результаты в файле и выйти» (BitBtn1).

Код английского варианта процедуры обработки события нажатия клавиши BitBtn1.

end;

To make a dialog for data saving it is necessary to place the component SaveDialog1 in a form. Logic condition of dialog (SaveDialog1.Execute) execution can be processed at the beginning of procedure; file variable t is linked with file name (SaveDialog1.FileName) and the file is opened for information rewrite.

Further procedures of information saving to file take place (writeln(t,…);) which conform to checking information output blocks of input data procedure, value table output blocks in every 30 degrees, and a table with boundary values of result output procedure.

Для обеспечения диалога при сохранении информации в файле следует на форме разместить экземпляр компонента SaveDialog1. Тогда в самом начале процедуры можно обработать логическое условие выполнения диалога (SaveDialog1.Execute)

сохранения файла, связать файловую переменную t с именем файла, возвращенным в результате диалога (SaveDialog1.FileName)

и открыть указанный файл для записи информации (rewrite).

Далее следуют процедуры записи информации в файл (writeln(t,…);), которые по своей структуре соответствуют блокам