1089
.pdf
Имя объекта.Метод
Рассмотрим основные методы объектов:
AddItem (строка) – добавить элемент в конец списка. Clear – очистить список.
Hide – скрыть форму.
RemoveItem (номер) – удалить заданный элемент из списка. SetFocus – установить фокус на объект.
Show – показать форму.
Написание программного кода
Для того чтобы написать процедуру обработки события Click для
процедуры обработки данного события. С помощьюИраскрывающихся списков «Выбор объекта» (Object) и «Выбор события» (Procedure)
какого-либо объекта, нужно дважды щелкнуть левой кнопкой мыши
по этому объекту на форме или выделить объект и воспользоваться
кнопками переключения между программой и объектом (см. рис. 1).
На экране появится окно программного кода (рис. 2) с заготовкой
можно написать процедуру обработки нужного события для любого |
||||
объекта (см. рис. 2). |
б |
Д |
||
|
После написания программного кода (процедур обработки |
|||
|
||||
|
и |
Азапуск приложения осуществляется с |
||
|
событий для объектов) |
|||
помощью кнопки Запуск (Run Sub) на панели инструментов или с |
||||
|
С |
|
|
|
помощью клавиши [F5]. |
|
|
|
|
Основы языка Visual Basic
Приведем краткий обзор основных команд и операторов языка VBА. Основные типы данных описаны в табл. 2.
Таблица 2. Основные типы данных VBA
Тип |
Содержимое переменной |
Диапазон допустимых значений |
1 |
2 |
3 |
Byte |
Достаточно малое целое |
От 0 до 255 |
|
неотрицательное число |
|
Integer |
Целое число |
От –32768 до 32767 |
|
|
|
Long |
Большое целое число |
От –2147483648 до 2147483647 |
11
|
|
Окончание табл. 2 |
1 |
2 |
3 |
Single |
Вещественное число |
От –3,402823Е38 до –1,401298Е-45 |
|
Значение одинарной |
для отрицательных значений и от |
|
точности с плавающей |
1,401298Е-45 до 3,402823Е38 для |
|
запятой |
положительных значений |
Double |
Вещественное число |
От –1,79769313486231Е308 до |
|
Значение двойной точности |
1,79769313486232Е308 |
|
с плавающей запятой |
|
String |
Последовательность |
От 0 до 65400 символов |
|
символов |
|
Boolean |
Логический тип данных |
Истина (-1) или Ложь (0) |
Date |
Дата/Время |
Даты с 1.01.100 по 31.12.9999 и |
|
|
время с 0:00:00 по 23:59:59 |
Type |
Набор данных разного типа, |
Определяется пользователем |
|
имеющих общее имя |
И |
|
(запись) |
|
|
|
Основные математические функции, используемые в VBA, приведены в табл. 3. Перечень операций представим в табл. 4 (в порядке уменьшения приоритета операции).
|
|
|
|
А |
|
Таблица 3. Порядок выполнения операций в VBA |
|||||
Знаки операций |
|
|
|
Операции |
|
|
|
|
б |
|
|
|
Арифметические операцииД |
||||
^ |
|
|
Возведение в степень |
||
|
и |
|
|
||
– |
|
|
Отрицание |
|
|
* или / |
|
|
Умножение или деление |
||
\ |
С |
|
Выч сление целой части от деления |
||
|
|
||||
Mod |
|
|
Выч сление остатка от деления |
||
+ или – |
|
|
Сложение или вычитание |
||
|
|
Операции сравнения |
|||
= |
|
|
Равенство |
|
|
<> |
|
|
Неравенство (не равно) |
||
< |
|
|
Меньше |
|
|
> |
|
|
Больше |
|
|
<= |
|
|
Меньше или равно |
||
>= |
|
|
Больше или равно |
||
|
|
Логические операции |
|||
Not |
|
|
Логическое НЕ |
||
And |
|
|
Логическое И |
|
|
Or |
|
|
Логическое ИЛИ |
||
12
Таблица 4. Математические функции VBA
Функция |
|
|
|
|
|
|
Значение |
|
|
|
|
||||
Abs(число) |
|
|
Абсолютное значение числа (модуль числа) |
||||
|
|
|
|
|
|
||
Cos(число) |
|
|
Косинус числа |
|
|
||
|
|
|
|
||||
Exp(число) |
|
|
Возводит константу е в указанную степень |
||||
|
|
|
|
|
|||
Int(число) |
|
|
Целая часть числа |
|
|||
|
|
|
|
||||
Log(число) |
|
|
Натуральный логарифм числа |
||||
|
|
|
|
||||
Rnd |
|
|
Выдает случайное число от 0 до 1 |
||||
|
|
||||||
Round(число, точность) |
Округляет число с указанной точностью |
||||||
|
|
|
|
|
|
||
Sin(число) |
|
|
Синус числа |
|
|
||
|
|
|
|
|
|
|
|
Sqr(число) |
|
|
|
|
|
|
И |
|
|
Квадратный корень из числа |
|||||
Tan(число) |
|
|
Тангенс числа |
|
|
||
Оператор описания переменной |
Д |
||||||
Dim Имя переменной As |
А |
|
|||||
Тип |
|
|
|||||
|
|
|
|
б |
|
|
|
Оператор присваивания |
|
|
|
||||
|
и |
|
|
|
|||
Имя переменной |
= Выражение |
|
|
||||
С |
|
|
|
|
|||
Оператор ввода |
|
|
|
|
|
|
|
Имя переменной = InputBox (“Сообщение”)
Оператор вывода
MsgBox (“Сообщение” & Имя переменной)
Оператор перехода на рабочий лист Excel
Sheets(“Имя листа”).Select
Sheets(Номер листа).Select
13
Считывание данных из ячейки рабочего листа Excel
Имя переменной = Сells(номер строки, номер столбца)
Вывод данных в ячейку рабочего листа Excel
Сells(номер строки, номер столбца) = Значение
Условный оператор
Неполная форма:
1.If Условие Then Оператор
2.If Условие Then
Блок операторов
End If |
|
|
И |
Полная форма: |
|
|
|
|
|
|
|
1. If Условие Then Оператор1 Else Оператор2 |
|||
2. If Условие Then |
Д |
||
А |
|
||
Блок операторов 1 |
|
||
Else |
|
|
|
Блок операторов б2 |
|
||
End If |
и |
|
|
|
|
|
|
Оператор выбора |
|
|
|
Select CaseСТестируемое выражение |
|
||
Case Значение 1 |
|
|
|
Блок операторов 1 Case Значение 2
Блок операторов 2
……………
Case Значение n
Блок операторов n
Case Else
Блок операторов
End Select
14
Оператор цикла с параметром
For Параметр = Начало To Конец Step Шаг Блок операторов
Next Параметр
Операторы циклов с предусловием
1. Do While Условие Блок операторов
Loop
2. |
Do Until Условие |
|
|
|
И |
|
|
|
Блок операторов |
|
|
||
|
|
|
|
|
||
|
Loop |
|
|
Д |
||
3. |
While Условие |
|
|
|||
|
|
|
|
|||
|
|
Блок операторов |
А |
|
||
|
Wend |
|
|
|||
|
б |
|
|
|||
|
|
|
|
|
||
Операторы циклов с постусловием |
|
|||||
1. |
Do |
и |
|
|
|
|
|
|
|
|
|
||
|
Блок операторов |
|
|
|
||
|
Loop While Услов е |
|
|
|
||
2. |
Do |
|
|
|
|
|
|
Блок операторов |
|
|
|
|
|
|
|
СLoop Until Условие |
||||
15
Лабораторная работа № 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