Помощь в учёбе, очень быстро...
Работаем вместе до победы

Работа с библиотекой Редуктор

РефератПомощь в написанииУзнать стоимостьмоей работы

В этом файле содержатся данные, полученные в результате работы модуля программы CalculateUnit. В этом модуле переменные, необходимые для построения редуктора (например, диаметры валов, межосевое расстояние передачи и пр.), имеют пользовательский тип TResults = record, что позволяет без проблем записывать и перезаписывать их значения в ходе работы программы. Данные из файла Results используются… Читать ещё >

Работа с библиотекой Редуктор (реферат, курсовая, диплом, контрольная)

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

Окно библиотеки Редуктор.

Рисунок 22 — Окно библиотеки Редуктор.

По умолчанию выбран автоматический способ загрузки данных. В этом случае данные для построения берутся из временного файла C: Results. tmp, который создается при работе программы редуктор, когда все расчеты закончены. Ниже приведен фрагмент кода, отвечающий за создание временного файла данных:

f := TFileStream. Create ('c:Results.tmp', fmCreate);

f.Write (Results, SizeOf (Results));

f.Free;

end;

В этом файле содержатся данные, полученные в результате работы модуля программы CalculateUnit. В этом модуле переменные, необходимые для построения редуктора (например, диаметры валов, межосевое расстояние передачи и пр.), имеют пользовательский тип TResults = record, что позволяет без проблем записывать и перезаписывать их значения в ходе работы программы.

Данные из файла Results используются BuilderUnit-ами — модулями, в которых описывается процесс построения редукторов, а сам процесс чтения файла является частью модуля CalcUnit2, в котором определяется тип редуктора исходя из данных, полученных в результате чтения файла данных Results.tmp. Ниже приведен фрагмент кода, отвечающий за чтение файла Results. tmp:

if FileExists ('c:Results.tmp') then

begin

f := TFileStream. Create ('c:Results.tmp', fmOpenRead);

f.Read (Results, SizeOf (Results));

f.Free;

Если же по какой-то причине (например, администратором запрещено добавление файлов на диск С:) файл Results. tmp не может быть прочитан, следует выбрать ручной способ загрузки данных.

При этом кнопка станет активной. После того, как данные загружены, для начала построения нужно нажать на кнопку «Начать построение» (рис. 23).

Готовая к работе программа.
Работа с библиотекой Редуктор.

Рисунок 23 — Готовая к работе программа.

При нажатии на кнопку «Начать расчет» программа построит три вида чертежа рассчитываемого редуктора (рисунок 24).

Рисунок 24 — Результат работы программы.

Показать весь текст
Заполнить форму текущей работой