дку В«РозробникВ» => В«Visual BasicВ» => В«ToolsВ» => В«ReferenceВ» (див. малюнок 13).
В
Рис.13 Включення компоненту В«SolverВ»
Файл В«TZ.xlsmВ» використовує наступний макрос:
Sub makros1 ()
'makros1 POISK RESH ("F28"). SelectSetCell: = "$ F $ 28", MaxMinVal: = 2, ValueOf: = "0", ByChange: = "$ E $ 18: $ H $ 19 "UserFinish: = TrueSub
Далі запускаємо програму В«Var16.exeВ». З'являється вікно з заповненими даними відповідно до варіанту: постачальники (Елеватор 1, Елеватор 2) їх запаси, споживачі (Хлібозавод 1, Хлібозавод 2, Хлібозавод 3) їх потреби і витрати на 1 одиницю (див. малюнок 14). br/>В
Рис.14 Заповнення даних
При натисканні на кнопку В«ВважатиВ» програма зробить розрахунки і буде виведений результат в рядок В«Оптимальний вантажообігВ» і В«Мінімальні витратиВ». Так само розрахується оптимальний план перевезень (див. малюнок 15). br/>В
Рис.15 Розрахунок результатів
У програмі передбачена можливість введення інших даних: відстаней, потреб, запасів і витрат на 1 одиницю. Для вірного обчислення результатів має дотримуватися умова - сума всіх запасів повинна бути більше, ніж сума всіх потреб. Якщо умова не виконається, то при натисканні на кнопку В«ВважатиВ» з'явитися помилка (див. малюнок 16). br/>В
Рис.16 Помилка
При натисканні на кнопку В«ВихідВ» буде виконаний вихід їх програми. І при її наступного запуску будуть введені початкові дані з умови задачі. p align="justify"> Як видно з рішення даної задачі оптимальний вантажообіг складе:
Q = 148000 тон/км.
А мінімальні грошові витрати складуть:
S = 3700000 Д.Є.
Структура програми Delphi
У програмі використовуються наступні компоненти:
Button-проста командна кнопка, використовується для реалізації в програмі команд за допомогою обробника події OnClick цього компонента.предназначен для відображення статичного тексту, тобто написів і позначок на Форме.представляет собою однорядкове текстове поле, що служить для введення даних користувачем.
Memo - простий текстовий редактор. Memo дозволяє вводити багатостроковий текст з клавіатури, завантажувати його з файлу, редагувати і зберігати у файл текстового формату. p align="justify"> Змінні в модулі були задіяні
Form1: TForm1;
ap: variant. Мінлива Ap - посилання об'єкта, повернута функцією 'Excel.Application'
Функція повертає посилання на об'єкт, що представляє собою змінну типу variant
Тип Variant забезпечує гнучкий універсальний тип даних ...
