Материал: 1089
Порядок выполнения работы.
1.На рабочем листе создать табл. 9, переименовать «Лист2» в «Трубы» (рис. 12).
2.Разместить на форме в VBA элементы управления в соответствии с рис. 13, 14. На активацию формы заполнить списки Combobox (Щёлкнуть по Userform, в открывшемся окне Click заменить на Activate):
Часть программного кода для заполнения списка из листа «Трубы»:
Dim i as Integer i = 2
While Cells(i, 1) <> " "
ComboBox1.AddItem " " & Cells(i, 2) i = i + 1
Wend
3.На кнопку «Начало расчета» написать процедуру расчета зависимостей (10) для каждого вида гидролиний и вывода результатов в первое окно приложения. Для вывода результатов расчета диаметры гидролиний перевести в миллиметры.
4.Для кнопок на вкладке «Выбор трубы» написать процедуры расчета зависимостей (11) действительных скоростей для каждого вида гидролиний и вывода результатов во второе окно приложения. Необходимо учитывать, что значения диаметров в списке «Трубы» представлены в миллиметрах, а расчет в формуле производится в метрах.
Часть программного кода для выбора значений диаметров из списка «Трубы» для уточнения скорости всасывающей гидролинии:
i = 2 |
|
|
|
И |
|
While Cells(i, 1) <> " " |
|
|
|||
|
|
|
|
||
If ComboBox1.Value = " " & Cells(i, 1) & " |
" & Cells(i, 2) Then d1 = |
||||
Cells(i, 1) |
|
|
|
|
|
i = i + 1 |
|
|
|
|
|
Wend |
|
|
А |
|
|
|
|
|
|
|
|
Аналогично выбираются значения диаметров для уточнения |
|||||
скоростей сливной и напорной гидролинийД |
. Расчетные значения |
||||
параметров округлить с помощью функции Round(). |
|||||
|
и |
|
|
|
|
4. Данные для расчета: |
б |
|
|
||
С |
|
|
|||
Vж1 =1,2 м/c , |
|
|
|
||
Vж2 |
= 2 м/c , |
Vж3 |
= 5 м/c , |
Qнд |
= 0,927 дм3/c. |
Контрольные вопросы
1.Назовите основные расчетные параметры для определения внутреннего диаметра гидролиний.
2.Для чего предназначен шток в гидроцилиндре объемного гидропривода?
3.Для чего предназначен вал в гидромоторе объемного гидропривода?
4.Какие виды гидролиний используются в объемном гидроприводе?
5.Для чего предназначены гидролинии?
47
|
|
|
|
И |
|
|
|
Д |
|
|
|
А |
|
|
|
б |
|
|
|
и |
|
|
|
|
С |
|
|
|
|
Рис. 13. Приложение «Определение внутреннего диаметра трех гидролиний и скоростей движения жидкости в них» (Начальная страница элемента управления MultiPage)
48
|
|
|
|
И |
|
|
|
Д |
|
|
|
А |
|
|
|
б |
|
|
|
и |
|
|
|
|
С |
|
|
|
|
Рис. 14. Приложение «Определение внутреннего диаметра трех гидролиний и скоростей движения жидкости в них» (Вторая страница элемента управления MultiPage)
49
Лабораторная работа № 6 СОЗДАНИЕ ПРИЛОЖЕНИЯ «РАСЧЕТ ПОТЕРЬ ДАВЛЕНИЯ
ВГИДРОЛИНИЯХ ОБЪЕМНОГО ГИДРОПРИВОДА»
ВСРЕДЕ ПРОГРАММИРОВАНИЯ VBA
Цель работы. Изучение основных расчетных зависимостей и освоение навыков автоматизации процесса расчета потерь давления в гидролиниях объемного гидропривода в среде программирования VBA.
Задание. Создать приложение «Расчет потерь давления в гидролиниях объемного гидропривода».
Исходные данные. |
|
|
|
|
|
ρ |
– плотность рабочей жидкости, кг м3 ; |
||||
l1 – длина всасывающей гидролинии, м; |
И |
||||
l2 |
– длина сливной гидролинии, м; |
|
|||
|
|
|
|
Д |
|
l3 – длина напорной гидролинии, м; |
|
||||
d1 |
– внутренний диаметр всасывающей гидролинии, м; |
||||
|
|
|
А |
|
|
d2 – внутренний диаметр сливной гидролинии, м; |
|||||
d3 – внутренний диаметр напорной гидролинии, м; |
|||||
V1 |
|
б |
|
|
|
–скорость движения жидкости во всасывающей гидролинии, м/c ; |
|||||
|
и |
|
|
|
|
V2 –скорость движения жидкости в сливной гидролинии, м/c ; |
|||||
V3 |
–скорость дв жен я ж дкости в напорной гидролинии, м/c ; |
||||
k |
С |
|
|
|
|
– кинематическ й коэфф циент вязкости жидкости, м2 с. |
|||||
Результаты расчета.
Результатом расчета является определение потерь давления в напорной, сливной и всасывающей гидролиниях объемного гидропривода (рис. 11). Потери давления по длине трубы и в местных сопротивлениях вычисляются отдельно для каждой гидролинии.
Расчетные зависимости.
1. Режим движения жидкости зависит от числа (критерия)
Рейнольдса. |
|
Rei = Vi di , i =1,...,3, |
(12) |
k
где i −индекс (порядковый номер) гидролинии:
50