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

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

Міністерство освіти і науки, молоді та спорту України

Пояснювальна записка з дисципліни "Інформаційні технології"

Тема:

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

Анотація

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

Також в курсові роботі розробляється креслення корпуса в Системі Автоматизованого Проектування КОМПАС.

ЗМІСТ

ВСТУП

1. РОЗРОБКА ПРОГРАМИ МОВОЮ ПРОГРАМУВАННЯ VISUAL BASIC ДЛЯ РОЗРАХУНКУ ЗМІЄВИКОВОГО ТЕПЛООБМІННИКА ДЛЯ ЗАГАЛЬНОГО НАГРІВУ РЕЗЕРВУАРУ

.1 Методика розрахунку теплообмінника

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

.3 Блок-схема алгоритму програми та інструкція до програми

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

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

. СИСТЕМА АВТОМАТИЗОВАНОГО ПРОЕКТУВАННЯ КОМПАС-ГРАФІК

.1 Виконання робочого креслення деталі Корпус САПР Компас

Висновки

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

ВСТУП

Для вирішення поставленої задачі - розрахунок головних параметрів волого повітря - була обрана мова програмування Visual Basic.

Початкова мета розробки мови диктувалася необхідністю інструмента "для навчання програмуванню, як систематичної дисципліни". Однак, дуже швидко виявилася надзвичайна ефективність мови Visual Basic у найрізноманітніших додатках, від рішення невеликих задач чисельного характеру до розробки складних програмних систем, баз даних, операційних систем і т.д. В теперішній чаc Visual Basic належить до групи найбільш розповсюджених і популярних у світі мов програмування.

Програма мовою Visual Basic являє собою спеціально організовану послідовність кроків по перетворенню даних, що приводить до вирішення деякої задачі. Це відрізняє Visual Basic від так званих непроцедурних мов.

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

Набір операторів мови Visual Basic відбиває принципи структурного програмування і дозволяє записувати досить складні алгоритми в компактній формі. змієвиковий теплообмінник алгоритм деталь

В даній курсовій роботі було використано мову програмування Visual Basic, яка дозволила досить оптимально вирішити поставлене завдання[1-3].

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

(САПР) КОМПАС призначений для виконання навчальних проектно-конструкційних робіт в різних галузях діяльності. (САПР) КОМПАС розроблений спеціально для операційного середовища MS Windows і в повній мірі використовує всі її можливості і переваги.

1. РОЗРОБКА ПРОГРАМИ МОВОЮ ПРОГРАМУВАННЯ VISUAL BASIC ДЛЯ РОЗРАХУНКУ ЗМІЄВИКОВОГО ТЕПЛООБМІННИКА ДЛЯ ЗАГАЛЬНОГО НАГРІВУ РЕЗЕРВУАРУ

1.1 Методика розрахунку теплообмінника

Створити програму розрахунку змієвикового теплообмінника для нагріву вмісту резервуару для таких варіантів коефіцієнтів використання поверхні:

Таблиця 1.1 - Технічне завдання на розрахунок конструкції теплообмінника, необхідної кількості теплоносія і площі поверхні теплообміну, часу нагріву

Час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату

 (1.1)

Площа теплообмінної поверхні теплообмінника періодичної дії,

якщо теплоносій вода

 (1.2)

Маса гліцерину в резервуарі №1

 (1.3)

Середня температура води в змієвикові

 (1.4)

Середньо логарифмічна різниця температур

 (1.5)

Швидкість води в змієвику

 (1.6)

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

 (1.7)

Критерій Грасгофа

 (1.8)

Критерій Релея

 (1.9)

де Pr - критерій Прандтля.

Критерій Нуссельта при вільній конвекції біля горизонтальної труби

Коефіцієнт тепловіддачі до зовнішньої стінки змієвика

          (1.11)

Коефіцієнт теплопередачі для змієвикового теплообмінника

   (1.12)

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

Час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату

         (1.1)

Площа теплообмінної поверхні теплообмінника періодичної дії,

якщо теплоносій вода

    (1.2)

Маса гліцерину в резервуарі №1

         (1.3)

Середня температура води в змієвикові

         (1.4)

Середньо логарифмічна різниця температур

       (1.5)

Швидкість води в змієвику

        (1.6)

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

  (1.7)

Критерій Грасгофа

   (1.8)

Критерій Релея

       (1.9)

Критерій Нуссельта при вільній конвекції біля горизонтальної труби

       (1.10)

Коефіцієнт тепловіддачі до зовнішньої стінки змієвика

         (1.11)

Коефіцієнт теплопередачі для змієвикового теплообмінника

    (1.12)

Площа теплообмінної поверхні теплообмінника періодичної дії, якщо теплоносій вода

    (1.2.1)

.3 Блок-схема алгоритму програми та інструкція до програми

Інструкція до програми

Щоб відкрити программу мовою VBA потрібно спочатку відкрити Microsoft Office Excel 2003 далі натиснути лівою кнопкою миші на кнопку Сервіс після цього навести на кнопку Макрос і вибрати Редактор Visual Basic.

Рисунок 1.1 - Запуск VBA

Після цього натискаєм Файл і вибираємо кнопку Import File.

Рисунок 1.2 - Відкриття текстового модуля програми

Далі відкриється вікно в якому потрібно знайти збережений модуль програми і натиснути кнопку Открыть після чого нам відкриється текстовий модуль програми , щоб її запустити потрібно натиснути F5 , нам відкриється вікно :

В даному вікні нам потрібно ввести цифру 1 тому що в нас задана відповідна початкова інформація , після чого будуть відкриті наступні вікна в яких потрібно буде ввести початкові дані. Коли всі дані будуть введені програма почне по черзі викидати вікна з розрахованими значеннями за заданими в програмі формулами і початковими умовами , при кожному вивіду данних потрібно натискати кнопку Enter.

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

Таблиця 1.1-Ідентифікатори

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

Public Sub program()A1!, Z!, TW1!, CR!, Y!, J!, EST!, W!, Z2!, T!, TW2!, G1!, M1!, CG!, CW!, T2!, TG1!, TG2!, VG!, BG!, U!, TZ!, H2!, H1!, E!, K!, EW!, FW!, BW!, PW!, PVn!, P!, GR!, R!, N!, DV!, DZ!= InputBox("Якщо обчислюємо час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату - введіть 1, Якщо обчислюємо _ площу теплообмінної поверхні теплообмінника періодичної дії якщо теплоносій вода - введіть 2 , Якщо обчислюємо масу гліцерину в резервуарі №1 - введіть 3 , Якщо обчислюємо середню температуру води в змієвикові - введіть 4 , Якщо обчислюємо середньологарифмічну різницю температур - введіть 5 , Якщо обчислюємо швидкість води в змієвику - введіть 6 , Якщо обчислюємо коефіцієнт тепловіддачі від води до внутрішньої стінки труби для розвиненого турбулентного руху рідини - введіть 7 , Якщо обчислюємо критерій Грасгофа - введіть 8 , Якщо обчислюємо критерій Релея - введіть 9 , Якщо обчислюємо критерій Нуссельта при вільній конвекції біля горизонтальної труби - введіть 10 , Якщо обчислюємо коефіцієнт тепловіддачі до з. стінки змійовика - введіть 11 , Якщо обчислюємо коефіцієнт теплопередачі для зм. теплообмінника - введіть 12")i = 1 Then= InputBox("введіть значення маси гліцерину")= InputBox("введіть теплоємність гліцерину")= InputBox("введіть кінцеву температуру нагріву гліцерину")= InputBox("введіть початкову температуру нагріву гліцерину")= InputBox("введіть витрату грійної води")= InputBox("введіть теплоємність води")= InputBox("введіть температуру води на вході в змійовик")= InputBox("введіть температуру води на виході із змійовика")= M1 * CG * (TG2 - TG1) / G1 * CW * (TW1 - TW2)" A1= " & A1#1, " A1= " & A1Ifi = 2 Then= InputBox("введіть значення маси гліцерину")= InputBox("введіть теплоємність гліцерину")= InputBox("введіть температуру води на вході в змійовик")= InputBox("введіть початкову температуру нагріву гліцерину")= InputBox("введіть кінцеву температуру нагріву гліцерину")= InputBox("введіть витрату грійної води")= InputBox("введіть теплоємність води")= InputBox("введіть час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату")= InputBox("введіть коефіцієнт теплопередачі")= InputBox("введіть коефіцієнт використання поверхні")= Log((1 - (M1 * CG * Log((TW1 - TG1) / (TW1 - TG2))) / (G1 * CW * A1)) ^ (-1)) * (G1 * CW) / (K * U)" Z= " & Z#1, " Z= " & ZIfi = 3 Then= InputBox("введіть об'єм гліцерину")= InputBox("введіть густину гліцерину")= VG * BG" M1= " & M1#1, " M1= " & M1Ifi = 4 Then= InputBox("введіть температуру води на вході в змійовик")= InputBox("введіть температуру води на виході із змійовика")= (TW1 + TW2) / 2" T= " & T#1, " T= " & TIfi = 5 Then= InputBox("введіть більшу різницю температур")= InputBox("введіть меншу різницю температур")= (T3 - T4) / Log(T3 / T4)" T2= " & T2#1, " T2= " & T2Ifi = 6 Then= InputBox("введіть витрату грійної води")= InputBox("введіть густину води")= InputBox("введіть внутрішній діаметр")= G1 / ((BW * 3.14 * DV ^ 2) / 4)" W= " & W#1, " W= " & WIfi = 7 Then= InputBox("введіть швидкість води в змієвику")= InputBox("введіть внутрішній діаметр")= InputBox("введіть коефіцієнт теплопровідності води")= InputBox("введіть кінематичну в'язкість води")= InputBox("введіть теплоємність води")= InputBox("введіть густину води")= InputBox("введіть критерій Прандтля води")= InputBox("введіть критерій Прандтля для води за температурою внутрішньої стінки труби")= (0.021 * W ^ 0.8 * DV ^ (-0.2)) * ((EW ^ 0.57) / (FW ^ 0.37)) * ((CR * BW) ^ 0.43) * ((PW / PVn) ^ 0.25)" H1= " & H1#1, " H1= " & H1Ifi = 8 Then= InputBox("введіть коефіцієнт температурного розширення")= InputBox("введіть температуру зовнішньої стінки змійовика")= InputBox("введіть середню температуру гліцерину в резервуарі")= InputBox("введіть кінематичну в'язкість води")= InputBox("введіть зовнішній діаметр")= (9.8 * Y * (TZ - T2) * (DZ ^ 3)) / (FW ^ 2)" GR= " & GR#1, " GR= " & GRIfi = 9 Then= InputBox("введіть критерій Грасгофа")= InputBox("введіть критерій Прандтля")= GR * P" R= " & R#1, " R= " & RIfi = 10 Then= InputBox("введіть критерій Релея")= InputBox("введіть критерій Прандтля")= InputBox("введіть критерій Прандтля для води за температурою внутрішньої стінки труби")= 0.75 * (R ^ 0.25) * ((P / PVn) ^ 0.25)" N= " & N#1, " N= " & NIfi = 11 Then= InputBox("введіть критерій Нуссельта")= InputBox("введіть теплопровідність")= InputBox("введіть зовнішній діаметр")= (N * E) / DZ" H2= " & H2#1, " H2= " & H2Ifi = 12 Then= InputBox("введіть коефіцієнт тепловіддачі від води до внутрішньої стінки")= InputBox("введіть товщину стінки резервуару")= InputBox("введіть коефіцієнт теплопровідності стінки")= InputBox("введіть коефіцієнт тепловіддачі до зовнішньої стінки змієвика")= (((1 / H1) + (J / EST) + (1 / H2)) ^ (-1))" K= " & K#1, " K= " & KIf#1Sub

2. СИСТЕМА АВТОМАТИЗОВАНОГО ПРОЕКТУВАННЯ КОМПАС-ГРАФІК

2.1 Виконання робочого креслення деталі Корпус САПР Компас

Інструкція до креслення

Рисунок 2.1 - Використання команди Пряма

Для створення прямої необхідно натиснути кнопку Пряма і ввести довжину і кут прямої.

Рисунок 2.2 - Використання команди Ортогональне креслення

Щоб пришвидшити виставлення прямої під 0ᵒ , 90ᵒ , 180ᵒ , 270ᵒ використаємо кнопку Ортогональне креслення.

Рисунок 2.3 - Ввід довжини відрізка

Рисунок 2.4 - Створення фаски

В даному валі на двох кінцях є фаски , щоб її створити потрібно натиснути на кнопку Фаска , далі вибираємо довжину фаски і вибираємо дві прямих на яких потрібно створити фаску.

Якщо потрібно стерти частину прямої і кривої потрібно використати кнопку Усікти криву , лінію буде стерто до перетину з іншою лінією.

Рисунок 2.6 - Використання команди Скруглення

Якщо потрібно зробити округлення двох ліній необхідно натиснути на кнопку Округлення і вибрати радіус округлення.

Рисунок 2.7 - Використання команди Симетрія

Щоб пришвидшити роботу над кресленням можна нарисувати половину деталі далі її виділити і натиснути на кнопку Симетрія після чого вибрати точку симетрії.

Рисунок 2.8 - Використання команди Хвиляста лінія

Щоб зробити місцевий розріз потрібно на дану частину деталі обмалювати хвилястою лінією або Прямою Безьє а далі створити штриховку в даній області.

Рисунок 2.9 - Використання команди Штриховка

Щоб створити штриховку необхідно натиснути на кнопку Штриховка , вибрати необхідну довжину між лініями і їх кут і натиснути в замкнену область на якій потрібно створити штриховку.                     

Рисунок 2.10 - Використання команди лінійний розмір

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

Рисунок 2.11 - Виставити розмір

Рисунок 2.12 - Встановлення параметрів розміра

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

Рисунок 2.13 - Встановлення параметрів розміра

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

Рисунок 2.14 - Використання радіального розміру

Щоб виставити розмір округлення необхідно натиснути на кнопку Радіальний розмір і вибрати криву на яку потрібно нанести даний розмір.

ВИСНОВКИ

В результаті виконання курсової роботи отримано програму для розрахунку змієвикового теплообмінника для загального нагріву резервуару, яка написана мовою програмування Visual Basic for Application. В результаті роботи програми отримано результати(H= 2712,257, z = 62,82128, tm = 96,13621, x = 1,165017,V= 0,8583569). Також під час виконання курсової роботи розроблено креслення деталі Корпус.

ПЕРЕЛІК ПОСИЛАНЬ

1."Microsoft Word 97 Шаг за шагом". Практическое пособие. Изд.: ЭКОМ, 1998.- С.98

. Билл Семпф Microsoft Visual Basic 2005 для "чайников".. Изд.: ЭКОМ,

.-С.74

. Мала гірнича енциклопедія. В 3-х т. / За ред. В. С. Білецького. - Донецьк: "Донбас", 2004.-С.234

. Стивен Буллен, Роб Боуви, Джон Грин Профессиональная разработка приложений Microsoft Office Excel = Professional Excel Development: The Definitive Guide to Developing Applications Using Microsoft Excel and VBA. - М.: "Вильямс", 2007. - С. 736

. Джон Уокенбах 2008, Диалектика., 736с.

. Excel. Трюки Холи Р., Холи Д. 2005, Питер, 288с.

7. Джон Грин Компас "Вильямс",2009.-с.234