подбор воздуховодов и аэродинамический расчет Опции

[Composter]

Добрый день, форумчане. Два года назад от безделья на работе и желания изучить VBA решил написать эту программу. До этого пользовлся veтtcalc , но меня не устраивал подбор воздуховодов в нем и если расчитывать трассу то приходилось записывать на бумаге сопротивления каждого участка отдельно.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.

Сообщение отредактировал elena - 3.6.2013, 7:09

Прикрепленные файлы

 aerodinami4eskii_ras4et.xls ( 518,5 килобайт ) Кол-во скачиваний: 3194

 

[Composter]

Добрый день, форумчане. Два года назад от безделья на работе и желания изучить VBA решил написать эту программу. До этого пользовлся veтtcalc , но меня не устраивал подбор воздуховодов в нем и если расчитывать трассу то приходилось записывать на бумаге сопротивления каждого участка отдельно.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.

Сообщение отредактировал elena - 3.6.2013, 7:09

Прикрепленные файлы

 aerodinami4eskii_ras4et.xls ( 518,5 килобайт ) Кол-во скачиваний: 3194

 

[vsklokoch]

а что, мне нравится. Одно смущает. При открытой проге помытался переключиться на свою ёксилевскою страничку - и ага - не дает!

[Composter]

спасибо.как нить на днях уберу модальность окна.

[Helland]

Неплохая прога.
Еще бы добавить расчет элементов сети для аспирации было бы вообще супер)

[Composter]

спасибо. просто в всн не было формул для расчетов элементов сети для аспирации, и я ее никогда не делал .

[jota]

спасибо.как нить на днях уберу модальность окна.

Хотел посмотреть на Exel 2003 - клавиша "Запустить программу" не находится....

[Composter]

странно, что не находится.я вроде ваял ее в 2003, и в 97 excele запускалось. кнопки нет на листе?или ничего не происходит при нажатии?

[jota]

странно, что не находится.я вроде ваял ее в 2003, и в 97 excele запускалось. кнопки нет на листе?или ничего не происходит при нажатии?

[Composter]

подредактировал программу.теперь если она открыта то можно переключаться на другие екселевские файлы.специально для jota добавил запуск без кнопки, теперь можно открыть окно макросов alt+f8 и запустить 1 единственный макрос

[silent]

Хорошая программа. А не подскажите, где в ВСН формулы для расчетам КМС переходов? Не нашел..

[Composter]

Для круглого диффузора 1 формула, для конфузора 3 ,прямоугольного диффузора 7 ,конфузора 3 , соответсвенно Lo в них =0. это номера формул в приложении 1 к всн.

[silent]

Спасибо большое, вполне логично, теперь все понятно.

[shprot]

Здравствуйте. Приятно что проектировщики занимаются созданием подобных вещей, желаю Вам успехов. Но есть еще очень много над чем стоит подумать.
1. Координально пересмотрите подход к дизайну, он слишком сырой, т.е. поставьте задачу делать компоновку элементов формы наиболее удобно для пользователя, поставив себя на место человека который первый раз открыл программу, да еще и мало что понимает в ТГВ, это лучше всего помогает)
1.1 Уменьшить высоту textbox, они мин. в 2 раза выше чем числа в них
1.2 Сделать округление значений (как минbмум тех что выводятся в textbox), так например точность для удельных потерь получил с 5 знаками после запятой.
1.3 Соответственно изменить и ширину textbox
1.4 Есть ряд значений которые пользователю совсем не нужны, т.е. носят информацонный характер, но информация в таком случае должна быть использована, но некоторые значению пользоваелю совсем не нужны, так например динамическое давление, вязкость, экв. диаметр, советую это скрыть.
1.5 Размещение элементов управления на форму достаточно произвольное, стоит во первых все таки размещать элементы с какой то привязкой (например расстояние между CommandButton и textbox должны иметь какой то один шаг 10 или 15 или 5 и т.п.)
1.6 В целом высота Listbox основного с участками должна иметь высоту мин. в три раза выше, т.е. хотя-бы в 0,5 высоты формы, так как это основной информационный элемент.
1.7 Ширина суммарная всех столбцов Listbox задана слишком большая, по этому у него есть гор. полоса прокрутки. Хотя возможно Вы этого и хотели, не знаю.
1.8 Для Listbox стоит сделать шапку из label.
2. КМС. достаточно скупы и хотелось бы их видеть в большем наборе, посмотрите например здесь http://forum.abok.ru/index.php?showtopic=24907 там КМС не моя работа а другого человека, но вот хотя бы так оно должно выглядеть, можно даже взять модули и формы именно того расчета КМС и применить здесь.
3. Ряд оборудования пользователь вносит просто из каталога где его потери соответственно просто в Па, было бы логично иметь возможность вносить просто потери давления в Па для оборудования.
4. Таблица выгруженая в Excel не имеет границ ячеек, высота строки шапки такая же как все остальные строки, нет расшифровки значений таблицы. Их можно сделать или отдельным списком вконце таблицы или хотябы примечанием в ячейках шапки
5. Выгрузку в Excel думаю все же стоит делать в этот же файл а не в новый.
6. И самое главное, отсутствует самый важный принцип любой программы, возможность добавлять, редактировать и удалять. Т.е. сейчас работа организовывется без возможности редактировать ранее добавленый участок.
Все вышеуказанное только ИМХО не на что не претендующее. Можете взглянуть в качестве примера вот эту программу, http://www.softhvac.com/heat-balance-lite может какие то моменты возьмете от туда.

[Composter]

приятно слышать конструктивную критику.
всегда есть выход из ситуации
1)

6. И самое главное, отсутствует самый важный принцип любой программы, возможность добавлять, редактировать и удалять. Т.е. сейчас работа организовывется без возможности редактировать ранее добавленый участок.

двойным щелчком по списку удаляется строка и можно быстро вбить новые значения и спомощью кнопки передвинуть вверх поставить участок в нужное место.
2)

3. Ряд оборудования пользователь вносит просто из каталога где его потери соответственно просто в Па, было бы логично иметь возможность вносить просто потери давления в Па для оборудования.

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

[shprot]

двойным щелчком по списку удаляется строка и можно быстро вбить новые значения и спомощью кнопки передвинуть вверх поставить участок в нужное место.

Это хорошо что это есть, но скажем так инструмент сделан немного не до конца, обязательно нужен инструмент редактирования. Данные можно хранить в скрытом листе, для изменения данных вызывать отдельную форму.
Собственно если говорить в целом то те мои пожелания это просто результат личного опыта который накопился за пару лет, а работа которую Вы сделали в разы больше чем то что стоит доработать, ну и самое главное во всем этом это конечно знания и некий опыт который Вы получили изучая VBA, он точно Вам еще пригодится.
Уверен чт оу многих программа эта будет востребована, так что успехов!

[sub4cus]

При "выгрузки в excel" ошибка....

Прикрепленные файлы

 ______.jpg ( 179,14 килобайт ) Кол-во скачиваний: 205

 

[gvana]

Здравствуйте. Приятно что проектировщики занимаются созданием подобных вещей, желаю Вам успехов. Но есть еще очень много над чем стоит подумать.
1. Координально пересмотрите подход к дизайну, он слишком сырой, т.е. поставьте задачу делать компоновку элементов формы наиболее удобно для пользователя, поставив себя на место человека который первый раз открыл программу, да еще и мало что понимает в ТГВ, это лучше всего помогает)
1.1 Уменьшить высоту textbox, они мин. в 2 раза выше чем числа в них
1.2 Сделать округление значений (как минbмум тех что выводятся в textbox), так например точность для удельных потерь получил с 5 знаками после запятой.
1.3 Соответственно изменить и ширину textbox
1.4 Есть ряд значений которые пользователю совсем не нужны, т.е. носят информацонный характер, но информация в таком случае должна быть использована, но некоторые значению пользоваелю совсем не нужны, так например динамическое давление, вязкость, экв. диаметр, советую это скрыть.
1.5 Размещение элементов управления на форму достаточно произвольное, стоит во первых все таки размещать элементы с какой то привязкой (например расстояние между CommandButton и textbox должны иметь какой то один шаг 10 или 15 или 5 и т.п.)
1.6 В целом высота Listbox основного с участками должна иметь высоту мин. в три раза выше, т.е. хотя-бы в 0,5 высоты формы, так как это основной информационный элемент.
1.7 Ширина суммарная всех столбцов Listbox задана слишком большая, по этому у него есть гор. полоса прокрутки. Хотя возможно Вы этого и хотели, не знаю.
1.8 Для Listbox стоит сделать шапку из label.
2. КМС. достаточно скупы и хотелось бы их видеть в большем наборе, посмотрите например здесь http://forum.abok.ru/index.php?showtopic=24907 там КМС не моя работа а другого человека, но вот хотя бы так оно должно выглядеть, можно даже взять модули и формы именно того расчета КМС и применить здесь.
3. Ряд оборудования пользователь вносит просто из каталога где его потери соответственно просто в Па, было бы логично иметь возможность вносить просто потери давления в Па для оборудования.
4. Таблица выгруженая в Excel не имеет границ ячеек, высота строки шапки такая же как все остальные строки, нет расшифровки значений таблицы. Их можно сделать или отдельным списком вконце таблицы или хотябы примечанием в ячейках шапки
5. Выгрузку в Excel думаю все же стоит делать в этот же файл а не в новый.
6. И самое главное, отсутствует самый важный принцип любой программы, возможность добавлять, редактировать и удалять. Т.е. сейчас работа организовывется без возможности редактировать ранее добавленый участок.
Все вышеуказанное только ИМХО не на что не претендующее. Можете взглянуть в качестве примера вот эту программу, http://www.softhvac.com/heat-balance-lite может какие то моменты возьмете от туда.

может это зацените
http://dfiles.ru/files/w1ze0ugqb
http://dfiles.ru/files/wkwlanmsq
http://dfiles.ru/files/tuy960lz1
http://dfiles.ru/files/0aa7po73d

[vik74]

Добрый день, форумчане. Два года назад от безделья на работе и желания изучить VBA решил написать эту программу. До этого пользовлся veтtcalc , но меня не устраивал подбор воздуховодов в нем и если расчитывать трассу то приходилось записывать на бумаге сопротивления каждого участка отдельно.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.

Приятная программа!
А как можно удалить ошибочно выгруженный участок в Excel, начинать сначала?
Как добавить местные потери в Па?

Сообщение отредактировал vik74 - 12.12.2014, 19:18

[Lyok]

При попытке вычисления сопротивления конфузура/диффузора или внезапного изменения сечения появляется табличка "Runtime error 13. Type mismatch. End."

Win XP/MS Office 2007

Что делать?

[Composter]

to vik74
А как можно удалить ошибочно выгруженный участок в Excel, начинать сначала?
Да, нужно 2 щелкнуть по нему и участок исчезнет.
Как добавить местные потери в Па?
Вроде никак , только кмс можно задать.
to Lyok
о такой ошибке не знаю, лучше прикрепить скриншот.
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было

[Lyok]

о такой ошибке не знаю, лучше прикрепить скриншот.
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было

И на домашнем ПК та же проблема в Win 7 64

 Screenshot_14.png ( 62,69 килобайт ) Кол-во скачиваний: 98

 Screenshot_15.png ( 68,63 килобайт ) Кол-во скачиваний: 35


Сообщение отредактировал Lyok - 2.9.2015, 22:13

[Composter]

это просто при входе в эту форму или вы что то вводите?
попробуйте в самой первой форме поставить хоть какой то значение для ограничения скорости
ну да все верно, если в самой первой таблице ввести что нибудь в расходе и скорости , то ошибки не будет

Сообщение отредактировал Composter - 2.9.2015, 22:39

[buran88]

А что за пароль просит VBA?

Прикрепленные файлы

 ______.JPG ( 17,86 килобайт ) Кол-во скачиваний: 43

 

[Юрий_Нд]

Не могу начать работу с Вашей программой,
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...

[Composter]

Не могу начать работу с Вашей программой,
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...

если вы первые сталкиваитесь с VBA , то программа не заработает без включения скриптов. Так что обновитесь лучше вы...

[Composter]

если кто еще пользуется то вот немного обновил. убрал большую часть ошибок, в том числе конфликт при выгрузке в excel в новых версиях офиса. в остальном все по прежнему.

на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал

Прикрепленные файлы

 aerodinami4eskii_ras4et_V_1_01.xls ( 432,5 килобайт ) Кол-во скачиваний: 632

 

[77sergey]

если кто еще пользуется то вот немного обновил. убрал большую часть ошибок, в том числе конфликт при выгрузке в excel в новых версиях офиса. в остальном все по прежнему.

на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал

Спасибо!

[Барабан]

Набрел на Вашу программу. Спасибо за работу. Очень интересно.

[Dozorro]

Спасибо!

[Gefest]

Отличная программа!
Вот только не могу разобраться с редактированием.
Сделал несколько участков в программе, выгрузил в эксель (создается новый файл с данными). Если я закрываю программу, и открываю заново, то открывается всё без моих расчетов. Мне все участки заново вбивать, или можно как-то загрузить заново из сохраненного экселя?