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

2. Виконання робочого креслення із застосуванням системи автоматизованого проектування компас-графік

1. Етапи виконання робочого креслення «Корпус»

2.1.1. Для того щоб створити креслення, необхідно запустити програму Компас. Цю операцію можна виконати запустивши ярлик програми на робочому столі.

В середовищі програми відкрити робоче вікно «Фрагмент» (Рис.2.1). Для створення нового аркуша креслення потрібно клацнути по кнопці «Створити документ», відкриється вікно, у якому потрібно клацнути на кнопку «Фрагмент».

Рисунок 2.1 – Робоче вікно «Фрагмент»

2.1.2 Накреслимо основу малюнка (Рис.2.2). Для її створення користуємося командою Відрізок на панелі Геометрія. Задаємо довжину й стиль відрізка на Панелі властивостей.

Рисунок 2.2 – Основа

2.1.3 Заштрихуємо та добудуємо основу малюнка (Рис. 2.3). Зображаємо необхідні геометричні побудови (Рис. 2.3) використовуючи інструментальну панель Геометрія, на якій обирали Скруглення, Фаска та Штриховка.

Для побудови скруглень використовуємо кнопку Скруглення на інструментальній панелі Геометрія. Вказуємо на Панелі властивостей радіус скруглення.

Для побудови фасок використовуємо кнопку Фаска на інструментальній панелі Геометрія. Вказуємо довжину та кут на Панелі властивостей.

Для зображення штриховки використовуємо кнопку Штриховка, яка знаходиться на панелі Геометрія. Вказуємо крок, колір та кут штриховки.

Рисунок 2.3 – Вид з переду

2.1.4 Зобразили виносний елемент (Рис. 2.4). Для його створення потрібно виділити частину, що має виноситися і копіювати її в потрібну частину листа.

Рисунок 2.4 – Створення виносного елемента

2.1.5 Відповідно до вигляду з переду, будуємо вигляд з ліва дотримуючись розмірів (Рис 2.5). Для побудови окружності використовуємо команду Окружність, яка знаходиться на інструментальній панелі Геометрія. Для частинного зображення вигляду з ліва я користувався командою Крива Безьє. Потім, за допомогою команди Усікти криву, яка знаходиться на панелі Редагування, повидаляли все зайве.

Рисунок 2.5 – Вигляд з ліва

2.1.6 За даними розмірами креслимо вигляд з верху (Рис. 2.6), використовуючи вже відомі нам команди (окружність, відрізок, фаска, скруглення). Зображаємо виносний елемент. Для створення шестикутника вибираємо на панелі Геометрія команду Прямокутник, клацаємо один раз лівою клавішою мишки (не відпускаючи її), та переходимо на команду Багатокутник. Задаємо потрібний нам діаметр та кількість вершин.

Рисунок 2.6 – Вигляд з верху

2.1.7 Накресливши три вигляди, ставимо необхідні розміри (Рис. 2.7). Для їх простановки вибираємо панель Розміри. Користуємось такими розмірами як: авторозмір, діаметральний, радіальний, кутовий розмір.

Рисунок 2.7 – Зображення розмірів

2.1.8 Позначення розрізів на кресленні (Рис. 2.8). Для цього користуємося командою Лінія розрізу, яка знаходиться на панелі Позначення.

Рисунок 2.8 – Позначення розрізів

2.1.9 Переносимо креслення на аркуш А3. Для створення нового аркуша креслення потрібно клацнути по кнопці «Створити документ», відкриється вікно «Новий документ» (Рис. 2.9 а), у якому необхідно клацнути по кнопці «Креслення» (Рис. 2.9 б). На екрані з’явиться аркуш формату А4, який буде розташований вертикально. Для того щоб вибрати формат А3 необхідно зайти в «Сервіс» - «Параметри» (Рис. 2.10), де вибрати пункт «Формат першого листа» (2.11). Виставляємо потрібний формат сторінки і нажимаємо «ОК».

Рисунок 2.9 а

Рисунок 2.9 б

2.1.10 Переносимо креслення з Фрагменту на лист Креслення. Копіюємо наш малюнок, вказуємо базову точку. Заходимо на лист Креслення, клацнемо правою клавішою миші, нажимаємо «Вставити» (Рис. 2.10).

Рисунок 2.10 – Лист креслення

2.1.11 Заповнюємо основний надпис. Необхідно двічі клацнути мишкою на табличку. (Рис. 2.11).

Рисунок 2.11 – Заповнення основного надпису

ВИСНОВКИ

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

Складена блок-схема програми пояснює алгоритм програми. Текст програми написаний для середовища 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 Корегування технічного завдання допускається з дозволу керівника роботи.

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

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

Додаток Б

(довідковий)

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

Додаток В

(обов’язковий)

Робоче креслення деталі