Материал: 1089

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

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

«ПРОЕКТИРОВОЧНЫЙ РАСЧЕТ КЛИНОРЕМЕННОЙ ПЕРЕДАЧИ» С ПОМОЩЬЮ РЕДАКТОРА VISUAL BASIC

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

Задание. Создать приложение «Проектировочный расчет клиноременной передачи» с помощью редактора Visual Basic.

Исходные данные.

 

 

И

 

P1 – мощность передачи,

кВт ;

 

 

n1

– частота вращения ведущего шкива, об / мин

;

d1 – диаметр малого шкива, мм ;

Д

 

q

– вспомогательный коэффициент ;

 

 

 

 

 

А

 

 

pl

– масса единицы ремня (погонная плотность), кг / м ;

А – площадь поперечного сечения ремня, мм2 ;

 

v – скорость перемещения ремня, м / с ;

 

α1 – номинальный угол о хвата малого шкива.

 

 

 

С

 

 

 

 

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

 

 

 

Результатом работы пр ложения является расчет основных

параметров

дляиавтоматизированного

проектирования

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

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

1. Момент вращения ведущего шкива.

T1 = 9550 P1 , n1

где T1 – момент вращения ведущего шкива, кН м;

16

P1 – мощность передачи, кВт ;

n1 – частота вращения ведущего шкива, об/мин.

2. Полезное окружное усилие, передаваемое ременной

передачей.

 

 

 

 

 

3 T1

 

 

 

 

F = 2 10

,

 

 

 

t

 

 

 

d1

 

 

 

 

 

 

 

 

 

 

где Ft – полезное окружное усилие,

 

передаваемое ременной

передачей, Н;

 

 

 

 

 

 

 

 

 

T1

– момент вращения ведущего шкива, кН м;

d1

– диаметр малого шкива, мм .

 

 

 

 

 

И

3. Натяжение ведущей ветви ремня.

 

 

 

 

 

 

 

 

Д

 

 

 

S1

= Ft

 

q

,

 

где S1

 

 

 

 

 

q 1

 

 

– натяжение ведущей ветви ремня, Н;

q

 

 

А

 

 

– вспомогательный коэффициент;

 

 

Ft

– полезное окружное усилие, передаваемое ременной

передачей, Н.

 

б

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4. Натяжение ведомой ветви ремня.

 

 

 

 

С

 

 

 

 

1

 

 

 

 

 

S2

= Ft q 1

,

 

где S2 – натяжение ведомойиветви ремня, Н;

Ft – полезное окружное усилие, передаваемое ременной

передачей, Н;

 

 

 

 

 

 

 

 

 

q

– вспомогательный коэффициент.

 

 

5. Напряжение ремня, возникающее при действии центробежной нагрузки.

σс = pAl v2 ,

где σс– напряжение ремня, возникающее при действии центробежной

нагрузки;

pl – масса единицы ремня (погонная плотность), кг/м ;

17

v – скорость перемещения ремня, м/с ;

А– площадь поперечного сечения ремня, мм2 .

6.Дополнительное напряжение от центробежной нагрузки.

Sc =σc A,

где Sc – дополнительное напряжение от центробежной нагрузки;

σс– напряжение ремня, возникающее при действии центробежной нагрузки;

А– площадь поперечного сечения ремня, мм2 .

7.Сила предварительного натяжения.

 

So =

S1 + S2

 

,

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

где So – сила предварительного натяжения, Н;

 

 

S1 – натяжение ведущей ветви ремня, Н;

 

 

S2 – натяжение ведомой ветви ремня, Н.

 

 

 

 

 

 

 

 

И

8. Сила, действующая на вал со стороны шкива.

S = S2

+ S2

Д2S S cosα

1

,

1

 

2

1

2

 

 

где S – сила, действующая на вал со стороны шкива, Н;

S1 – натяжение ведущей ветвиАремня, Н;

 

 

б

 

 

 

 

 

 

 

и

 

 

 

 

 

 

 

 

S2 – натяжение ведомой ветви ремня, Н;

 

 

α1– номинальный угол обхвата малого шкива.

 

Порядок выполненияС работы.

1. Все данные, которые используются в приложении (рис. 3, 4), необходимо разместить на элементе управления MultiPage.

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

Часть программного кода для вывода результатов:

ListBox1.Clear ListBox1.ColumnCount = 2

18

ListBox1.AddItem "СИЛОВЫЕ ХАРАКТЕРИСТИКИ" ListBox1.List(0, 1) = "ЗНАЧЕНИЯ"

ListBox1.AddItem "Момент вращения ведущего шкива"

ListBox1.List(1, 1) = T1

ListBox1.AddItem "Полезное окружное усилие"

ListBox1.List(2, 1) = Ft

ListBox1.AddItem "Натяжение ведущей ветви ремня"

ListBox1.List(3, 1) = S1

 

 

ListBox1.AddItem "Натяжение ведомой ветви ремня"

ListBox1.List(4, 1) = S2

 

И

 

Д

ListBox1.AddItem "Напряжение ремня, возникающее при действии

центробежной нагрузки"

А

 

ListBox1.List(5, 1) = sig

 

 

 

ListBox1.AddItem "Дополнительное напряжение от центробежной

нагрузки"

 

 

ListBox1.List(6, 1)

= Sc

 

ListBox1.AddItem "С ла предварительногоб

натяжения"

ListBox1.List(7, 1)

= So

 

 

и

 

ListBox1.AddItemС" ила, действующая со стороны шкива "

ListBox1.List(8, 1) = S

19

 

 

 

 

И

 

 

 

Д

 

 

А

 

 

б

 

 

и

 

 

 

С

 

 

 

 

Рис. 3. Приложение «Проектировочный расчет клиноременной передачи» (Начальная страница элемента управления MultiPage)

20

Источник: https://studfile.net/preview/16407146/