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

Для вирішення поставленої задачі - розрахунок головних параметрів волого повітря - була обрана мова програмування Visual Basic. Початкова мета розробки мови диктувалася необхідністю інструмента "для навчання програмуванню, як систематичної дисципліни". Однак, дуже швидко виявилася надзвичайна ефективність мови Visual Basic у найрізноманітніших додатках, від рішення невеликих задач чисельного характеру до розробки складних програмних систем, баз даних, операційних систем і т.д. В теперішній час Visual Basic належить до групи найбільш розповсюджених і популярних у світі мов програмування. Програма мовою Visual Basic являє собою спеціально організовану послідовність кроків по перетворенню даних, що приводить до вирішення деякої задачі.Створити програму розрахунку змієвикового теплообмінника для нагріву вмісту резервуару для таких варіантів коефіцієнтів використання поверхні: Таблиця 1.1 - Технічне завдання на розрахунок конструкції теплообмінника, необхідної кількості теплоносія і площі поверхні теплообміну, часу нагріву Резервуар Теплоізоляція Продукт, що нагрівається Необхідна температура Теплоносій 600 м3, розміщений на вулиці, D=7,4м; Н=15,7 м Базальтова Вата товщиною 100 мм Дистильований гліцерин Початкова 40?С Вода Т=80 ?С, витрата води Q=9м3/год; Час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату Площа теплообмінної поверхні теплообмінника періодичної дії, якщо теплоносій водаЧас нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату Площа теплообмінної поверхні теплообмінника періодичної дії, якщо теплоносій вода Середня температура води в змієвикові Коефіцієнт тепловіддачі від води до внутрішньої стінки труби для розвиненого турбулентного руху рідиниЩоб відкрити программу мовою VBA потрібно спочатку відкрити Microsoft Office Excel 2003 далі натиснути лівою кнопкою миші на кнопку Сервіс після цього навести на кнопку Макрос і вибрати Редактор Visual Basic. Далі відкриється вікно в якому потрібно знайти збережений модуль програми і натиснути кнопку Открыть після чого нам відкриється текстовий модуль програми , щоб її запустити потрібно натиснути F5 , нам відкриється вікно : В даному вікні нам потрібно ввести цифру 1 тому що в нас задана відповідна початкова інформація , після чого будуть відкриті наступні вікна в яких потрібно буде ввести початкові дані.H2 коефіцієнт тепловіддачі до зовнішньої стінки змієвика - E теплопровідність k K коефіцієнт тепловіддачі EW коефіцієнт теплопровідності води PW критерій Прандтля води - PVN критерій Прандтля для води за температурою внутрішньої стінки труби - Pr P критерій Прандтля - H1 коефіцієнт тепловіддачі від води до внутрішньої стінки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! i = INPUTBOX("Якщо обчислюємо час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату - введіть 1, Якщо обчислюємо _ площу теплообмінної поверхні теплообмінника періодичної дії якщо теплоносій вода - введіть 2 , Якщо обчислюємо масу гліцерину в резервуарі №1 - введіть 3 , Якщо обчислюємо середню температуру води в змієвикові - введіть 4 , Якщо обчислюємо середньологарифмічну різницю температур - введіть 5 , Якщо обчислюємо швидкість води в змієвику - введіть 6 , Якщо обчислюємо коефіцієнт тепловіддачі від води до внутрішньої стінки труби для розвиненого турбулентного руху рідини - введіть 7 , Якщо обчислюємо критерій Грасгофа - введіть 8 , Якщо обчислюємо критерій Релея - введіть 9 , Якщо обчислюємо критерій Нуссельта при вільній конвекції біля горизонтальної труби - введіть 10 , Якщо обчислюємо коефіцієнт тепловіддачі до з. стінки змійовика - введіть 11 , Якщо обчислюємо коефіцієнт теплопередачі для зм. теплообмінника - введіть 12") M1 = INPUTBOX("введіть значення маси гліцерину") TG2 = INPUTBOX("введіть кінцеву температуру нагріву гліцерину") TG1 = INPUTBOX("введіть початкову температуру нагріву гліцерину") A1 = INPUTBOX("введіть час нагріву гліцерину змієвиковим теплообмінником при використанні теплоти конденсації пари і теплоти охолодження конденсату")Для створення прямої необхідно натиснути кнопку Пряма і ввести довжину і кут прямої. В даному валі на двох кінцях є фаски , щоб її створити потрібно натиснути на кнопку Фаска , далі вибираємо довжину фаски і вибираємо дві прямих на яких потрібно створити фаску. Рисунок 2.5 - Використання команди Усікти криву Якщо потрібно стерти частину прямої і кривої потрібно використати кнопку Усікти криву , лінію буде стерто до перетину з іншою лінією. Щоб створити штриховку необхідно натиснути на кнопку Штриховка , вибрати необхідну довжину між лініями і їх кут і натиснути в замкнену область на якій потрібно створити штриховку.В результаті виконання курсово

ЗМІСТ

ВСТУП

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

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

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

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

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

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

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

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

Висновки

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