VetCAD

"ОКно НАпротив" - расчет keo при боковом и верхнем освещении (VBA)

    0 оценок

Баландин Андрей

размещено: 12 Ноября 2007
обновлено: 01 Июня 2010
Программка написана для расчёта КЕО при боковом и верхнем освещении(коэффиц. естеств. освещённости). Промежуточные величины находятся путём линейной интерполяции по таблицам (СП 23-102-2003 «Естественное освещение жилых и общественных зданий», приложение Б). Применен метод последовательной линейной интерполяции последовательным отсечением промежуточных значений.Также применен метод аналитического определения N1 и N2 по формулам Данилюка (методика прилагается в пакете установки).
БЛАГОДАРНОСТЬ - Piter (Zodchy) за предоставленную аналитическую методику построения графиков Данилюка (исходники целиком приложены к программе)

Просьба по опыту использования калькулятора отписаться в комментах или на мэйл(balandravens@mail.ru).Предполагается дальнейшее совершенствование программы.
Исправления исходного варианта -
23.11.2007 Внесены исправления в расчетный модуль, проведено тестирование, улучшен интерфейс
30.11.2007 Добавлен расчет Qi, улучшен интерфейс
5.12.2007 Исправлена ошибка при вычислении kzd0 при z2<0.5
14.12.2007 Добавлен модуль - расчет геометрического КЕО по графикам А.М.Данилюка (пока без учета противостоящих зданий)+ вычисление коэффицента Qi. Модуль прошел предварительное тестирование
5.03.2008 Добавлен основной расчетный модуль КЕО для бокового освещения (в ограниченной версии - для расчета одного противостоящего здания, параллельного расположения, прямоугольной формы) для предварительного тестирования.
14.03.2008 В основной расчетный модуль добавлена возможность поворотов противостоящего здания (с отдельной формой отчета)
30.03.2008 Исправлены ошибки при формировании отчетов.
9.04.2008 Создан объединенный блок для подсчета кео при боковом освещении при многих противостоящих зданиях различных конфигураций.
Изменен интерфейс, создан новый шаблон отчета, уточнены данные для подсчета лучей по графикам Данилюка.
17.04.2008 Исправлен недочет в основном модуле при подсчете Kzdj, добавлен файл Table.xls
23.04.2008 Программа доведена до итогового вида, обновлен файл отчета, допускается до 5 окон в расчетной схеме. Также существенно упрощен алгоритм определения N1 и N2
22.05.2008 Добавлен расчётный блок для приведения окон овального, полукруглого и круглого видов к прямоугольной форме
5.06.2008 Исправлены небольшие недочеты в формах.
25.07.2008 Добавлен блок для рассчёта верхнего освещения. Предварительное тестирование пройдено, файл отчета пока н составлен. Значения промежуточных переменных показаны через MsgBox-ы. Ограничения - не более 15 светопроемов и 6 рассчётных точек.
17.11.2008 Включена возможность вычисления при полном перекрытии окна
противостоящим зданием (только по отраженной составляющей)
5.02.2009 Исправлена ошибка в расчётном блоке, проявлявшаяся при выборе высоты точки на уровне рабочей поверхности от пола (0,8).
9.02.2009 Исправлена ошибка по подсчету qi при наличии противостоящих зданий (по методу вычисления центра тяжести плоской фигуры), добавлено вычисление z1 и z2 в отчет, в пакет установки добавлена инструкция по расчёту в случае нескольких окон.
16.02.2009 Откорректирована методика подсчета N2 в плане.
31.03.2009 Введена принудительная замена точек на запятые в разделении чисел, исправления в формах
19.10.2009 Исправлена ошибка в вычислении Ро при Рср от 0,35 до 0,45

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 41-50 из 117
, 29 апреля 2008 в 01:27
#41
у меня дома виндоус виста стоит...((( не пропускает эту программу. На работе установила! Супер,все вычисляет. А дома работать без этой программы сложно! Помогите!
Баландин Андрей , 29 апреля 2008 в 08:37
#42
Джуана: Про висту не могу ничего сказать - ибо пользую XP, но, возможно, дело не в висте, а в офисе - если установлен высокий уровень безопасности, то исполнение макросов запрещается. Посмотрите "сервис-макрос-безопасность" в ворде, если не поможет - отпишите точнее сообщение систему и скриншот на мейл - попробуем разобраться.
, 03 мая 2008 в 01:03
#43
Спасибо. Действительно дело в макросах. Я даже и не знала, что они существуют. :) Век живи, век учись! Спасибо, очень благодарна. Теперь буду считать быстрее всех КЕО. :) Вай!
, 03 мая 2008 в 01:05
#44
Эта программа так жизнь облегчает! Спасибо разработчику! ;)
, 03 мая 2008 в 01:07
#45
Только непонятно, как расчет делать по графику Данилюка из таблицы в Excel, что вложена в программу. "Table" называется. Без программы могу и сама подсчитать количество проходящих лучей в окне, но хочется использовать эту таблицу, чтоб быстрее было. Подскажите? ;)
Баландин Андрей , 04 мая 2008 в 09:14
#46
Джуана: В последнем варианте программы табличка для подсчета числа лучей из Table.xls убрана, т.к. найден способ простого аналитического определения точных значений N1 и N2. Объяснение, каким образом проводится расчет, приложено в общий пакет установки,в папку "Методика построения графиков Данилюка", в текстовый файл. Если будут вопросы по методике - обращайтесь на мэйл, могу объяснить подробно.
Anton_Br , 04 июня 2008 в 23:30
#47
Уважаемый Андрей.Мне кажется, что оптимальнее если вводятся значения через запятую, то надо чтобы и результат был через запятую.Например я не мог понять почему к примеру при вычислении КЕО при отсутствии противостоящих зданий после вычисления угловой высоты участка небосвода при вычислении Qi выдаётся сообщение "ошибка при вводе данных".Но если в полученном значении "угловой высоты участка небосвода..." заменить "." на "," вычисление Qi происходит....
Затем при вычислении E количества лучей выдается ошибка и выкидывает из программы...В окне отладке бейсика подчеркнул строку в блоке:

Private Sub CommandButton6_Click()
TextBox14 = Round(0.01 * TextBox6.Value * (подчёркнуто)
TextBox8.Value, 4)
End Sub
Баландин Андрей , 05 июня 2008 в 11:36
#48
Anton_Br: Промежуточный результат автоматически указывается с запятой - если настройка "число" системы ("Язык и региональные стандарты" включает запятую).Нестыковка бывает часто, если используются программы украинской "лиры-софт" - они меняют стандарт на точку.
Указанную Вами процедуру убрал - после введения точного подсчета по формуле Данилюка кнопка, вызывающая эту процедуру стала не нужна, но с формы убрать её забыл.Спасибо за замечание.
, 23 июля 2008 в 22:27
#49
Андрей, у меня не работает программа. Плачу! Что делать? Вы тогда мне сказали, что дело в Макросах. Но не работает ничего. Я поставила в Макросах низкую безопасность. Виста не пускает. Я думала, что все наладилось. Картинка выбора расчета коэффицентов есть, но стала тут вводить данные, нажимаю на вычисление результатов. И пип...! Ошибка! Почему? Что делать?
Баландин Андрей , 24 июля 2008 в 09:55
#50
Джуана:
Не плачьте ) Сообщите (лучше на мэйл) - что именно за ошибка появляется, лучше всего - при появлении сообщения сделайте скриншот экрана и вышлите. Попробуем выяснить. Вполне возможно - некорректно введена часть данных.
zip

0.53 МБ

СКАЧАТЬ