688

1. На рабочем листе создать таблицуД(справочник) «Внутренние диаметры труб по ГОСТ 8734-75» в соответствии с данными табл. 5,

Вариант реализации части программного кода для заполнения

графы «Фактическое наличие трубы на складе» листа «Трубы»:

Dim value As Integer

Dim DaNet As String

. . .

Randomize()

value = Int( Rnd() + 0.5) ' переменная value

' принимает значение 0 или 1

DaNet = "Есть"

If value = 0 Then DaNet = "Нет" End If

21

«Внутренние диаметры труб по ГОСТ 8734-75» на рабочем листе Excel

Для активации формы Combobox можно вручную заполнить одну или две графы листа «Трубы» (щёлкнуть по Userform, в открывшемся окне Click заменить на Activate):

Часть программного кода для заполнения списка из листа «Трубы»:

Dim i as Integer i = 2

While Cells(i, 1) <> " "

ComboBox1.AddItem " " & Cells(i, 1) & " " & Cells(i, 2) ' графу «Фактическое наличие

22

'трубы на складе» можно заполнить

'при помощи функции Rnd

i = i + 1 Wend

3.Для кнопки «Начало расчета» (рис. 6) написать процедуру расчета зависимостей (10) для каждого вида гидролиний и вывода результатов в первое окно приложения. Для вывода результатов расчета диаметры гидролиний перевести в миллиметры.

4.Для кнопок на вкладке «Выбор трубы» (рис. 7) написать процедуры расчета зависимостей (11) действительных скоростей для

каждого вида гидролиний и вывода результатов во второе окно приложения. Необходимо учитывать, чтоИзначения диаметров в списке «Трубы» представлены в миллиметрах, а расчет в формуле производится в метрах. ДА

If ComboBox1.Value = " " & Cells(i, 1) & " " & Cells(i, 2) Then d1 = Cells(i, 1)

всасыващей гидролинияхС. Расчетные значения параметров округлить с помощью функции Round().

5. Исходные данные для реализации тестового примера приведены в табл. 6.

23

Таблица 6. Данные для расчета внутренних диаметров гидролиний

и скоростей движения жидкости в них

24

Рис. 6. Пример реализации приложения «Определение внутренних диаметров трех гидролиний и скоростей движения жидкости в них» (вычисление расчетных значений внутренних диаметров гидролиний)

25

Рис. 7. Пример реализации приложения «Определение внутренних диаметров трех гидролиний и скоростей движения жидкости в них» (выбор трубы и определение действительных скоростей жидкости в гидролиниях)

26

Лабораторная работа № 3 СОЗДАНИЕ ПРИЛОЖЕНИЯ «РАСЧЕТ ПОТЕРЬ ДАВЛЕНИЯ

В ГИДРОЛИНИЯХ ОБЪЕМНОГО ГИДРОПРИВОДА» В СРЕДЕ ПРОГРАММИРОВАНИЯ VBA

Цель работы. Изучение основных расчетных зависимостей и освоение навыков автоматизации процесса расчета потерь давления в гидролиниях объемного гидропривода в среде программирования VBA.

Задание. Создать приложение «Расчет потерь давления в

гидролиниях. К местным сопротивлениям относятся такие элементы гидропривода, в которых происходит изменение скорости по величине и (или) направлению: распределители, фильтры, дроссели, муфты, штуцеры (переходники), угольники, тройники, входы (выходы) в гидробак, гидроцилиндр и т.д. Внутренние диаметры и скорости жидкости в соответствующих гидролиниях необходимо взять из предыдущей лабораторной работы.

Результаты расчета.

Результатом расчета являются значения потерь давления в напорной, сливной и всасывающей гидролиниях объемного гидропривода (см. рис. 2). Потери давления по длине гидролинии и в местных сопротивлениях, принадлежащих этой гидролинии, суммируются и

27

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

–общая длина напорной гидролинии складывается из длины напорной и исполнительной гидролиний;

–общая длина сливной гидролинии складывается из длины сливной

иисполнительной гидролиний.

Расчетные зависимости.

1. Режим движения жидкости зависит от числа (критерия) Рейнольдса.

где λi − коэффициент путевых потерь (коэффициент Дарси); Rei − число Рейнольдса.

28

3. Потери давления по длине гидролиний.

где ∆pli − потери давления по длине гидролиний, МПа;

λi − коэффициент путевых потерь (коэффициент Дарси); li – длины гидролиний, м;

Vi –скорости движения жидкости в гидролиниях, м/c ; di – внутренние диаметры гидролиний, м;

ρ – плотность рабочей жидкости, кгм3 .

29

Таблица 8. Вариант наличия местных сопротивлений в сливной гидролинии

1.Приложение состоит из одной формы «Расчет потерь давления в гидролиниях объемного гидропривода» (рис. 8, 9). Все данные, которые используются в приложении, необходимо разместить на элементе управления MultiPage.

2.Для вывода результатов расчетов использовать элементы управления ListBox.

3.Для расчета использовать блок-схему алгоритма расчета потерь давления в гидролиниях объемного гидропривода (рис. 10).

30