Листинг программы для автоматизации выполнения расчетов и создания чертежей

CalculateFunctions. cs

using System;System. Collections. Generic;System.componentModel;System. Data;System. Drawing;System. Linq;System. Text;System. Windows. Forms;ProjectCreator

{partial class MainForm: Form

{[] calculateRashod (int what, object nagruzka, object T1, object T2)

{(what)

{0: // отопление

{[] rezult = { "", "" };[0] = Convert. ToString (Math. Round (Convert. ToDouble (nagruzka) * 1000/ (Convert. ToDouble (T1) - Convert. ToDouble (T2)),

));[1] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [0]) / 3600,6));rezult;

}1: // ГВС циркуляционная

{[] rezult = { "", "", "", "", "", "", "" };

/* Qг. в. max */[0] = Convert. ToString (Math. Round (Convert. ToDouble (nagruzka) * 2.4f,

));

/* Qг. в. цирк*/[1] = Convert. ToString (Math. Round (Convert. ToDouble (nagruzka) * 0.25f / (1 + 0.25f),

));

/* Gг. в. max */[2] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [0]) * 1000/ (Convert. ToDouble (T1) - Convert. ToDouble (T2)),

));

/* Gг. в. min */[3] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [1]) * 0.8f * 100,3));

/* Gцирк. max*/[4] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [3]) * 1.5f,

));

/* Gцирк. min*/[5] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [3]) * 0.4f,

));

/* Gг. в. лет */[6] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [2]) * 0.8f,

));rezult;

}2: // ГВС тупиковая

{[] rezult = { "", "", "" };

/* Qг. в. max */[0] = Convert. ToString (Math. Round (Convert. ToDouble (nagruzka) * 2.4f,

));

/* Gг. в. max */[1] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [0]) * 1000/ (Convert. ToDouble (T1) - Convert. ToDouble (T2)),

));[2] = Convert. ToString (Math. Round (Convert. ToDouble (rezult [1]) / 3600,6));rezult;

}:

{[] rezult = { "" };rezult;

}

}

}[] calculatePoteri (object dyprib, object dytrub, object inputrashod)

{rashod = Convert. ToDouble (inputrashod);dypribora = Convert. ToDouble (dyprib) / 1000;dytruboprovoda = Convert. ToDouble (dytrub) / 1000;L = Math. Round (getTrubaLength (dypribora), 1);v = rashod / ( (3.14f * dytruboprovoda * dytruboprovoda) / 4.0f);Re = v * dytruboprovoda / (0.415f * Math. Pow (10, - 6.0f));Rep = 560.0f * dytruboprovoda / 0.0002f;lt;(Re < Rep) { lt = 0.316f / Math. Pow (Re, 0.25f); }{ lt = 0.11f * Math. Pow ( (0.0002f / dytruboprovoda), 0.25f); }htr = lt * (L / dytruboprovoda) * (v * v / (2.0f * 9.81f));n = Math. Round (dytruboprovoda / dypribora,

);hdif = ( (0.46f * lt * (1 - 1/ (n * n))) + (0.5f * (1 - 1/ (n * n)) * v * v) / (2.0f * 9.81f));hkonf = ( (0.46f * lt * (1 - 1/ (n * n))) * (v * v / (2.0f * 9.81f)));hp = htr + hdif + hkonf + 0.1f;[] rezult = { L, Math. Round (v,3), Math. Round (lt,3), n,. Round (htr,3), Math. Round (hdif,3), Math. Round (hkonf,3),. Round (hp,3) };rezult;

}

}

}

getFunctions. cs

using System;System. Collections. Generic;System.componentModel;System. Data;System. Drawing;System. Linq;System. Text;System. Windows. Forms;ProjectCreator

{partial class MainForm: Form

{getTrubaLength (object dypribora)

{dy = Convert. ToInt32 (dypribora);(dy >= 50) { return 1.2f; }if (dy == 40) { return 1.0f; }{ return 0.8f; }

}

/*[] checkPriborType (object dyforcheck, int amount)

{dy = Convert. ToString (dyforcheck),;(radioPREM. Checked)

{(amount == 2) { SPTConnectionFile = "\\images\\spt941premX2. png"; }{ SPTConnectionFile = "\\images\\spt941premX1. png"; }R1 = "-", R2 = "-";(dy)

Читайте также

Применение системы автоматического проектирования на ИП Суслова
Почти все крупные предприятия используют в своей работе возможности компьютерной техники, в частности CAD, CAM, САЕ технологии, т.к. они предоставляют ряд преимуществ, таких как ...

Разработка комплекта электрических схем маршрутной релейной централизации блочного типа
Целью дипломного проектирование являлась разработка комплекта электрических схем маршрутной релейной централизации блочного типа (БМРЦ) для использования их студентами техникума в качест ...

Проект соединительной цифровой радиорелейной линии для сети сотовой связи Томск - Володино
Темпы увеличения потребности в электросвязи и соответственно темпы реализации этой потребности в технических системах непрерывно увеличивались на всем протяжении закончившегося ХХ века ...