Добрый день, форумчане. Два года назад от безделья на работе и желания изучить VBA решил написать эту программу. До этого пользовлся veтtcalc , но меня не устраивал подбор воздуховодов в нем и если расчитывать трассу то приходилось записывать на бумаге сопротивления каждого участка отдельно.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.
Полная версия этой страницы: подбор воздуховодов и аэродинамический расчет
а что, мне нравится. Одно смущает. При открытой проге помытался переключиться на свою ёксилевскою страничку - и ага - не дает!
спасибо.как нить на днях уберу модальность окна.
Неплохая прога.
Еще бы добавить расчет элементов сети для аспирации было бы вообще супер)
Еще бы добавить расчет элементов сети для аспирации было бы вообще супер)
спасибо. просто в всн не было формул для расчетов элементов сети для аспирации, и я ее никогда не делал .
Цитата(Composter @ 17.5.2013, 18:07) 
спасибо.как нить на днях уберу модальность окна.
Хотел посмотреть на Exel 2003 - клавиша "Запустить программу" не находится....
странно, что не находится.я вроде ваял ее в 2003, и в 97 excele запускалось. кнопки нет на листе?или ничего не происходит при нажатии?
Цитата(Composter @ 27.5.2013, 13:39)
странно, что не находится.я вроде ваял ее в 2003, и в 97 excele запускалось. кнопки нет на листе?или ничего не происходит при нажатии?
подредактировал программу.теперь если она открыта то можно переключаться на другие екселевские файлы.специально для jota добавил запуск без кнопки, теперь можно открыть окно макросов alt+f8 и запустить 1 единственный макрос
Хорошая программа. А не подскажите, где в ВСН формулы для расчетам КМС переходов? Не нашел..
Для круглого диффузора 1 формула, для конфузора 3 ,прямоугольного диффузора 7 ,конфузора 3 , соответсвенно Lo в них =0. это номера формул в приложении 1 к всн.
Спасибо большое, вполне логично, теперь все понятно.
Здравствуйте. Приятно что проектировщики занимаются созданием подобных вещей, желаю Вам успехов. Но есть еще очень много над чем стоит подумать.
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 может какие то моменты возьмете от туда.
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 может какие то моменты возьмете от туда.
приятно слышать конструктивную критику.
всегда есть выход из ситуации
1)
2)
на счет всего остального, это моя первая программа на VBA ,и наверно последняя. копаться в ней уже неохота. если конечно у меня возникнет жеание в ней покопаться, то я воспользуюсь Вашими советами.
всегда есть выход из ситуации
1)
Цитата
6. И самое главное, отсутствует самый важный принцип любой программы, возможность добавлять, редактировать и удалять. Т.е. сейчас работа организовывется без возможности редактировать ранее добавленый участок.
двойным щелчком по списку удаляется строка и можно быстро вбить новые значения и спомощью кнопки передвинуть вверх поставить участок в нужное место.2)
Цитата
3. Ряд оборудования пользователь вносит просто из каталога где его потери соответственно просто в Па, было бы логично иметь возможность вносить просто потери давления в Па для оборудования.
это упущение что нельзя вбить что-то вроде дроссельного клапана и вбить потери в Па , но это можно осуществить в выгруженнной таблице.на счет всего остального, это моя первая программа на VBA ,и наверно последняя. копаться в ней уже неохота. если конечно у меня возникнет жеание в ней покопаться, то я воспользуюсь Вашими советами.
Цитата
двойным щелчком по списку удаляется строка и можно быстро вбить новые значения и спомощью кнопки передвинуть вверх поставить участок в нужное место.
Это хорошо что это есть, но скажем так инструмент сделан немного не до конца, обязательно нужен инструмент редактирования. Данные можно хранить в скрытом листе, для изменения данных вызывать отдельную форму.
Собственно если говорить в целом то те мои пожелания это просто результат личного опыта который накопился за пару лет, а работа которую Вы сделали в разы больше чем то что стоит доработать, ну и самое главное во всем этом это конечно знания и некий опыт который Вы получили изучая VBA, он точно Вам еще пригодится.
Уверен чт оу многих программа эта будет востребована, так что успехов!
При "выгрузки в excel" ошибка....
Цитата(shprot @ 13.6.2013, 14:14)
Здравствуйте. Приятно что проектировщики занимаются созданием подобных вещей, желаю Вам успехов. Но есть еще очень много над чем стоит подумать.
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 может какие то моменты возьмете от туда.
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
Цитата(Composter @ 17.5.2013, 2:13)
Добрый день, форумчане. Два года назад от безделья на работе и желания изучить VBA решил написать эту программу. До этого пользовлся veтtcalc , но меня не устраивал подбор воздуховодов в нем и если расчитывать трассу то приходилось записывать на бумаге сопротивления каждого участка отдельно.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.
теперь по моей программе.Можно щелкнуть на воздуховоде ,который предоставила программа и тогда его данные перенесутся в нижнюю часть.а можно вбить свой размер воздуховода хоть 2561x3672. Впринципе все интуитивно понятно.единственно могу сказать по поводу тройников и крестовин, там по формуле должно быть что ответвление и и прохоод дожны быть меньше чем вход, выход из ситуации такой что если входное сечение 200x500 то на ответвление нужно уменьшить сечение сделать что то вроде 200x499 и тогда будет произведен расчет.
Формулы для расчета фасонины взяты из ВСН 353-86, для некоторой фасонины добавил также расчеты из Староверова, что использовать - ваше дело.
Быстро подбирает как на новых компах так и на древних. Работает во всех версиях excel начиная с 97 и заканчивая 2013.
Приятная программа!
А как можно удалить ошибочно выгруженный участок в Excel, начинать сначала?
Как добавить местные потери в Па?
При попытке вычисления сопротивления конфузура/диффузора или внезапного изменения сечения появляется табличка "Runtime error 13. Type mismatch. End."
Win XP/MS Office 2007
Что делать?
Win XP/MS Office 2007
Что делать?
to vik74
А как можно удалить ошибочно выгруженный участок в Excel, начинать сначала?
Да, нужно 2 щелкнуть по нему и участок исчезнет.
Как добавить местные потери в Па?
Вроде никак , только кмс можно задать.
to Lyok
о такой ошибке не знаю, лучше прикрепить скриншот.
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было
А как можно удалить ошибочно выгруженный участок в Excel, начинать сначала?
Да, нужно 2 щелкнуть по нему и участок исчезнет.
Как добавить местные потери в Па?
Вроде никак , только кмс можно задать.
to Lyok
о такой ошибке не знаю, лучше прикрепить скриншот.
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было
Цитата(Composter @ 2.9.2015, 15:22)
о такой ошибке не знаю, лучше прикрепить скриншот.
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было
Я знаю что ошибки бывают на тройниках и на главном окне, на экране с дифузорами/конфузорами ни разу не было
И на домашнем ПК та же проблема в Win 7 64
Нажмите для просмотра прикрепленного файла
Нажмите для просмотра прикрепленного файла
это просто при входе в эту форму или вы что то вводите?
попробуйте в самой первой форме поставить хоть какой то значение для ограничения скорости
ну да все верно, если в самой первой таблице ввести что нибудь в расходе и скорости , то ошибки не будет
попробуйте в самой первой форме поставить хоть какой то значение для ограничения скорости
ну да все верно, если в самой первой таблице ввести что нибудь в расходе и скорости , то ошибки не будет
А что за пароль просит VBA?
Не могу начать работу с Вашей программой,
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...
Цитата(Юрий_Нд @ 24.2.2016, 16:44)
Не могу начать работу с Вашей программой,
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...
пишет, что не подключены какие-то макросы...
Пожалуйста, обновите ссылку...
если вы первые сталкиваитесь с VBA , то программа не заработает без включения скриптов. Так что обновитесь лучше вы...
если кто еще пользуется то вот немного обновил. убрал большую часть ошибок, в том числе конфликт при выгрузке в excel в новых версиях офиса. в остальном все по прежнему.
на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал
на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал
Цитата(Composter @ 21.12.2016, 11:25)
если кто еще пользуется то вот немного обновил. убрал большую часть ошибок, в том числе конфликт при выгрузке в excel в новых версиях офиса. в остальном все по прежнему.
на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал
на всякий случай сообщаю, в поле где надпись про шероховатость можно выбрать другой материал
Спасибо!
Набрел на Вашу программу. Спасибо за работу. Очень интересно.
Спасибо!
Отличная программа!
Вот только не могу разобраться с редактированием.
Сделал несколько участков в программе, выгрузил в эксель (создается новый файл с данными). Если я закрываю программу, и открываю заново, то открывается всё без моих расчетов. Мне все участки заново вбивать, или можно как-то загрузить заново из сохраненного экселя?
Вот только не могу разобраться с редактированием.
Сделал несколько участков в программе, выгрузил в эксель (создается новый файл с данными). Если я закрываю программу, и открываю заново, то открывается всё без моих расчетов. Мне все участки заново вбивать, или можно как-то загрузить заново из сохраненного экселя?
Обратная связь с Excel не предусматривалась. Строки из одного файла Excel легко копируются /вставляются /добавляются в другой. И потом щёлкнуть на автосумму.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.