Розробка програми мовою програмування VBA (Visual Basic for Applications)

Размещено на http://www.allbest.ru/

Розробка програми мовою програмування VBA (Visual Basic for Applications)



Зміст

Вступ

1. Розробка програми мовою програмування VBA для теплового розрахунку горизонтального неізольованого електричного проводу

1.1 Методика розрахунку

1.2 Контрольний розрахунок

1.3 Блок-схема алгоритму програми

1.4 Таблиця ідентифікаторів

1.5 Текст програми розрахунку

Висновки

Перелік посилань

Додатки



Вступ

Для роботи з текстовою інформацією дуже ефективними є спеціальні програми підготовки текстів: так звані текстові процесори або текстові редактори. На відміну від друкарської машини, текстові процесори дають змогу за значно коротший час і більш якісно підготувати будь-який документ.

На сьогодні є сотні різноманітних текстових редакторів, і їхня кількість продовжує зростати. Функціональні можливості різних програм підготовки текстів істотно різняться, водночас більшість із них має багато спільних властивостей.

До загальних функцій, які можуть бути реалізовані текстовими процесорами, можна зарахувати такі:

1) введення тексту в комп'ютер;

2) редагування тексту (заміна, вставка, видалення тощо);

3) пошук необхідної інформації у тексті;

4) форматування тексту (встановлення лівої межі тексту, вирівнювання правого краю, встановлення позиції відступу першого рядка абзацу тощо);

б) перенесення і копіювання фрагментів тексту;

6) виділення частин тексту певним шрифтом;

7) розбиття тексту на сторінки з певною кількістю рядків та інтервалів між рядками;

8) робота з декількома документами одночасно;

9) друкування тексту з заданою щільністю, якістю тощо;

10) збереження тексту на дисках.

Текстовий редактор Word є одним із найпоширеніших текстових редакторів, що значною мірою зумовлено його численними перевагами, до яких належать, насамперед, широкі функціональні можливості. Важко знайти таке завдання в роботі з текстами, яке не можна було б розв'язати засобами Word. Цей редактор належить до групи програм Microsoft Office. Крім нього, до неї входять електронна таблиця Excel і система управління базою даних Access, тобто основні програми, які можуть використовуватися для формування документообігу в установах. Широкому використанню Word сприяють також вбудовані в нього засоби перетворення файлів, створених іншими текстовими редакторами, в файли формату Word і навпаки.

Існує декілька версій Word для Windows, кожна наступна версія сумісна, як правило, з попередніми і має додаткові можливості. Подальший матеріал буде ґрунтуватися на роботі з русифікованою версією 7.0.

Для встановлення Word у Windows слід виконати команду Пуск/Настройка/ Панель управлення. Потім на Панелі управлені слід вибрати елемент «Установка и удаление программ», установити компакт-диск у накопичувач і натиснути кнопку «Установить». У процесі встановлення на екрані з'являтимуться інструкції, які слід виконувати. Варіанти встановлення відрізняються додатковими можливостями, а отже, і програмами, які ці можливості реалізують[1].

Електронна таблиця - це програма, що моделює на екрані двовимірну таблицю, яка складається з рядків і стовпців. Основним призначенням електронної таблиці є введення даних до комірок й обробка їх за формулами [6].

Однією із таких програм є редактор електронних таблиць - Excel. Це потужна програма загального призначення, що входить в інтегрований пакет Microsoft Office [4].

Система КОМПАС-3D призначена для автоматизації проектно-конструкторських робіт у різних галузях діяльності. Вона може успішно використовуватись в машинобудуванні й приладобудуванні, архітектурі й будівництві, тобто скрізь, де необхідно розробляти й випускати креслярську документацію [5]. КОМПАС-3D розроблений спеціально для операційного середовища Windows фірмою АСКОН, що займає провідне місце серед розроблювачів пакетів програм, що автоматизують конструкторську діяльність.

1. Розробка програми мовою програмування VBA для теплового розрахунку горизонтального неізольованого електричного проводу

1.1 Методика розрахунку

1. Променистий тепловий потік проводу в навколишнє середовище:

Вт / м Qпр = e--Ч--с0 Ч--(Т /100)4 Ч--F = e--Ч--с0 Ч--[(tпр + 273)/100)]4 Ч--p--Ч--d Ч--L

2. Середня температура повітря біля проводу, 0С:

tср = 0,5 Ч--(tпр + tнс)

Теплофізичні параметри повітря вибираємо із довідника [8, 9] :

Коефіцієнт теплопровідності l--= 0,0364 Вт / (м Ч--К) ;

Кінематична в'язкість n--= 30,1 Ч--10-6 м2/с ;

Коефіцієнт температуропровідності a = 43,9 Ч--10-6 м2/с ;

Коефіцієнт температурного розширення b--= 1 / (160 + 273) = 2,3 ??10-3 1/град; Критерій Прандтля Pr = 0,682 .

3. Критерій Релея:

Ra = Gr Ч--Pr = b--Ч--g Ч--Dt Ч--d3 / (n--Ч--а)

Різниця температурDt = tпр- tнс

Оскільки 10-3 < Ra < 102, то критеріальне рівняння теплообміну має вигляд:

Nu = 1,18 Ч--(Ra)1/8



Якщо Ra> 6Ч--1010, то критеріальне рівняння теплообміну має вигляд:

Nu = 0,15 Ч--(Ra)0,33

Якщо Ra<1, то критеріальне рівняння теплообміну приймається рівним:

Nu =0.5

4. Коефіцієнт тепловіддачі конвекцією, Вт / (м2 Ч--К)

a--= Nu Ч--l--/ d = 1,434 Ч--0,0364 / 10-3 = 5,22

5. Конвективний тепловий потік, Вт / м

Qк = a--Ч--Dt Ч--p--Ч--d Ч--L

6. Загальний тепловий потік від провода в навколишнє середовище, Вт/м

Q = Qпр + Qк

7. Електричний опір 1 м проводу, Ом/м

R = 4 Ч--r0 Ч--L / (p--Ч--d2)

8. Оскільки Q = I2 Ч--R, то допустима сила струму, що може проходити через провід і температура його не буде перевищувати 300 0С

І = (Q / R)1/2



1.2 Контрольний розрахунок

Контрольний розрахунок створений за допомогою програми Excel. Спочатку була створена таблиця з вхідними даними (Рис. 1.1), виділивши кількість необхідних нам клітинок і натиснувши кнопку «Всі границі». Ввели дані, клацнувши «мишкою» у потрібному нам місці.

Рисунок 1.1. Початкові дані

Далі створили таблицю для результатів обчислень (Рис. 1.2). Для знаходження значень, на початку клітинки ставимо значок дорівнює, потім з таблички з вхідними даними виділяємо необхідне нам значення, яке автоматично з'являється у рядку обчислення, з клавіатури вводимо знаки математичних операторів, стандартні функції і константи, натискаємо кнопку Enter, після чого з'являється готовий результат.

програмування тепловий ідентифікатор електричний



Рисунок 1.2. Результат

Наступним кроком роботи було перевірка отриманих результатів та звірення їх. Після створення таблиць вхідних даних та результатів, ми приступили до створення блок-схеми .

1.3 Блок-схема алгоритму програми

Рисунок 1.3. Блок-схема програми

Продовження рисунку 1.3.



Накресливши фігури і з'єднавши їх між собою, виділяємо все креслення разом і об'єднуємо між собою, натиснувши на праву кнопку «мишки» і вибравши функцію Групування - Групувати. Для того, щоб ввести текст всередині фігур, потрібно виділити фігуру, на ній натиснути праву кнопку «мишки» і вибрати функцію Вставити текст.

1.4 Таблиця ідентифікаторів

Ідентифікаторами позначаються всі змінні, що використовуються у розрахунку. Складена таблиця 1.2 є розшифровкою для зручності розуміння роботи створеної програми користувачем.

Таблиця 1.2. Таблиця ідентифікаторів

Змінна	Ідентифікатор	Назва	Розмірність
Qпр	H1	Променистий тепловий потік	Вт/м
e	H2	Міра чорноти проводу	-
со	H3	Стала	-
tпр	T1	Температура проводу	оС
tср	T2	Середня температура біля проводу	оС
tнс	T3	Температура навколишнього середовища	оС
p	H4	Число пі	-
d	H5	Діаметр трубопроводу	м
L	H6	Довжина трубопроводу	м
l	H7	Коефіцієнт теплопровідності	Вт/(м*К)
n	H8	Кінематична в'язкість	м2/с
a	H9	Коефіцієнт температуропровідності	м2/с
b	M1	Коефіцієнт температурного розширення	1/град
Pr	M2	Критерій Прандтля	-
Ra	M3	Критерій Релея	-
Gr	M4	Критерій Грасгофа	-
g	M5	Прискорення вільного падіння	м/с2
Nu	M6	Критерій Нуссельта	-
a	M7	Коефіцієнт тепловіддачіконвекцією	Вт/(м2*К)
Qk	M8	Конвективний тепловий потік	Вт/м
Q	M9	Загальний тепловий потік	Вт/м
R	K1	Електричний опір	Ом/м
r?	K2	Питомий електричний опір	Ом*мм2/м
I	K3	Сила струму	А

Маючи таблицю ідентифікаторів, далі створюємо текст програми розрахунку. Особливості цієї програми, що у ній використовується безальтернативний оператор умовного переходу.

1.5 Текст програми розрахунку

Sub курсова()

Dim H1!, H2!, H3!, H4!, H5!, H6!, H7!, H8!, H9!, M1!, M2!, M3!, M4!, M5!, M6!, M7!, M8!, M9!, T1!, T2!, T3!, K1!, K2!, K3!

H2 = InputBox("введення початкових даних", "введіть значення міри чорноти проводу")

H3 = InputBox("введення початкових даних", "введіть значення сталої")

H4 = InputBox("введення початкових даних", "введіть число пі")

H5 = InputBox("введення початкових даних", "введіть значення діаметра трубопроводу")

H6 = InputBox("введення початкових даних", "довжини трубопроводу")

T1 = InputBox("введення початкових даних", "введіть значення температури проводу")

H1 = H2 * H3 * (((T1 + 273) / 100) ^ 4) * H4 * H5 * 10 ^ (-3) * H6

MsgBox "H1=" & H1

T3 = InputBox("введення початкових даних", "введіть значення температури навколишнього середовища")

T2 = 0.5 * (T1 + T3)

MsgBox "T2=" & T2

M1 = InputBox("введення початкових даних", "введіть значення коефіцієнта температурного розширення")

M5 = InputBox("введення початкових даних", "введіть значення прискорення вільного падіння")

H8 = InputBox("введення початкових даних", "введіть значення кінематичної в'язкості")

H9 = InputBox("введення початкових даних", "введіть значення коефіцієнта температуропровідності")

M3 = (M1 * 10 ^ (-3) * M5 * (T1 - T3) * H5 ^ 3) / ((H8 * H9) * 10 ^ (-12))

MsgBox "M3=" & M3

If 10 ^ (-3) < M3 < 10 ^ 2 Then

M6 = 1.18 * (M3 ^ (1 / 8))

MsgBox "M6=" & M6

End If

If M3 > 6 * 10 ^ 10 Then

M6 = 0.15 * (M3 ^ (0.33))

MsgBox "M6=" & M6

End If

If M3 < 1 Then

M6 = 0.5

MsgBox "M6=" & M6

End If

H7 = InputBox("введення початкових даних", "введіть значення коефіцієнта теплопровідності")

M7 = (M6 * H7) / (H5 * 10 ^ (-3))

MsgBox "M7=" & M7

M8 = M7 * (T1 - T3) * (H4 * H5 * 10 ^ (-3) * H6)

MsgBox "M8=" & M8

M9 = H1 + M8

MsgBox "M9=" & M9

K2 = InputBox("введення початкових даних", "введіть значення питомого електричного опору")

K1 = (4 * K2 * H6) / (H4 * H5 * 0.1)

MsgBox "K1=" & K1

K3 = (M9 / K1) ^ (1 / 2)

MsgBox "K3=" & K3

End Sub



Висновки

В результаті виконання курсової роботи була створена програма для теплового розрахунку горизонтального неізольованого електричного проводу.

Складена блок-схема програми пояснює алгоритм програми. Текст програми написаний для середовища Visual Basic for Applications дозволяє спростити теплотехнічні проектні розрахунки.

Для перевірки достовірності роботи програми виконано контрольний розрахунок у середовищі Microsoft Excel. Результатом роботи є норми тепловитрат з поверхні резервуару і час його охолодження в різні періоди року і наведено у додатку Б.

В результаті виконання курсової роботи, було створено робоче креслення «Корпус» за допомогою системи автоматизованого проектування «Компас 3D» і наведено у додатку В. Це дозволило закріпити навички роботи у автоматизованій системі проектування.



Перелік посилань

1. Малачівський П.С. Програмування в середовищі Visual Basic: Навчальний посібник. - Львів: Видавництво «Бескид Біт», 2004. - 260с.

2. Краснощеков Е.А., Сухомел А.С. Задачник по теплопередаче. Изд. 3-е, пере раб. и доп. М: Энергия, 1975. -280с.

3. Календер'ян В.А. Тепломасобмінні аппарати.Навчальний посібник. ОДАХ.- Одесса, 2006. - 105 с.

4. Маньковский О.Н., Толчинский А.Р., Александров М.В. Теплообменная аппаратура химических производств. - Л.: Химия, 1976. - 368 с

5. Промышленная теплоэнергетика и теплотехника. Справочник / Под общ. ред. В.А. Григорьева, В.М. Зорина. - М.: Энергоатомиздат, 1991. - 588 с



Додаток А

Міністерство освіти та науки України, молоді та спорту Вінницький національний технічний університет Інститут будівництва, теплоенергетики та газопостачання

Затверджую Керівник, викладач

__________________________

(підпис, прізвище та ініціали)

?____? _____________20__ р.

ТЕХНІЧНЕ ЗАВДАННЯ

На розробку програми виконання обчислень фрагменту розрахунків

_____________________________________________________________,

(назва об'єкту розрахунку)

використовуючи систему програмування Visual Вasic Applikation, та розробку креслення деталі ___________________________________________,

(назва деталі або складальної одиниці тепло-технологічного обладнання)

використовуючи систему автоматизованого проектування (КОМПАС)

1. Область застосування розробки -- проектування теплотехнологічних об'єктів.

2. Основа для розробки - робочий навчальний план з Основ інформаційних технологій та програмування (ОІТП).

3. Мета та призначення розробки: а) мета розробки - отримання практичних навиків розробки програми теплотехнічних розрахунків, використовуючи систему програмування та виконання робочих креслень деталей апаратів та вузлів тепло-технологічного обладнання, використовуючи систему автоматизованого проектування; б) призначення розробки - навчальна курсова робота з дисципліни ОІТП

4. Джерела розробки - індивідуальне завдання на курсову роботу з дисципліни ОІТП, літературні та інші технічні матеріали з розрахунку та конструювання деталей апаратів та вузлів теплотехнологічного устаткування.

5. Вимоги до рівня уніфікації та стандартизації

5.1 Графічна та текстова документація курсової роботи повинна відповідати всім діючим стандартам України

Крайні терміни виконання КР

Початок розробки ?____? _____________20__ р.

6. Порядок контролю та прийняття виконання етапів графічної та розрахункової документації курсової роботи контролюється викладачем згідно з графіком виконання роботи. Прийняття роботи здійснюється комісією затвердженою зав. кафедрою згідно з графіком захисту.

7. Корегування технічного завдання допускається з дозволу керівника роботи.

Розробив студент групи________ __________________________

(підпис, прізвище та ініціали)



Додаток Б

Результати роботи програми

Размещено на Allbest.ru

...