[stas_org]

Добрый день уважаемые форумчане!

Представляю вашему внимаю программу(тестовую версию) по расчету стальных сечений согласно СП16.. И прошу оказать помощь во всестороннем тестировании.
Данный проект претендует на замену сателита СКАДа "Кристал" и навеян темой http://forum.dwg.ru/showthread.php?t=92154
Что это:
-программа представляет из себя книгу ECXEL с поддержкой макросов.

Зачем нужна:
-для подбора сечений (изгибаемых в данном релизе) элементов, и создания отчета о подобраном сечении.

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

Как работает (все просто и понятно):
-После открытия книги включить поддержку макросов. УБЕДИТЬСЯ, что в ситеме разделитель целой части от дробной стоит ТОЧКА (панель управления-языки и региональные стандарты).- после выбора расчетной схемы(на листе Расчет), последует простой расчет статически определимой балки, при этом изгибающий момент можно ввести произвольно(он зависит от пролета и нагрузки как вы знаете). Далее кнопка "Подобрать профиль" произведет подбор каждого сечения на листе База по прочности, прогибам и общей устойчивости.(промежуточные результы расчета можно увидеть на листе "База".)
- Далее (при необходимости) можно проверить на срез, по 4-й энергетической теории, устойчивость стенки, местной прочности.
- Присутствует простой спецификатор для быстрого обсчета конструкции, без претензий на универсальность.
-Кнопка "Очистить все" - очищает все.
-Программа пишется под локализованный EXCEL (русский)

На данном этапе интересует правильность имено предварительного подбора изгибаемых элементов (прочность, прогиб и общая устойчивость).
Буду рад конструктивным предложениям и замечаниям.

Перезалита версия от 28.01.16
-Исправил баг точка-запятая, теперь за этим следить не надо (только для Win7,XP).
-добавил расчет на прочность в двух главных плоскостях изгиба.
-Поправил интерфейс.
-Поправил интерфейс для модуля "Спецификация" (для маленьких экранов)

Версия 1.0 от 31.01.16
-Добавлен расчет на устойчивость элементов сплошного сечения при центральном сжатии.
-Улучшен интерфейс.

Версия 1.1 от 1.02.16
-Исправлена ошибка "Type mistmach (несоответствие типов)". Приводящая к остановке подбора сечения у некоторых пользователей.

[stas_org]

741520, попробуй атач.

----- добавлено через ~27 мин. -----

Сообщение от Кулик Алексей aka kpblc Кстати, ради интереса внес Option Explicit в модуль листа "Расчет". Выполнение моментально остановилось

Там всего две переменные. RC и i. Может (скорее всего) я не прав, и переменные надо объявлять все. Исправим.

[741520]

опять 1004

[stas_org]

Сообщение от 741520 опять 1004

Хорошо, как вы пишите условие =if () строчными или прописными буквами, это принципиально?

Попробуй атач.

[Сергей812]

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

[741520]

1004

[stas_org]

Сообщение от 741520 1004

Вы формулу =IF(в формулах) как пишите, через запятую или двоеточие?
Попробуй этот атач

[Brandashmыg]

Возможно, стоит уйти от вычислений на листах через вставку формулы и перенести все вычисления в макрос? На лист потом выводить довольно просто - https://habrahabr.ru/post/158725/
Тогда вы сможете работать с нормальными именами переменных и вынести получившиеся функции в отдельный модуль, который затем можно подключать к другим расчётным экелькам. Про автоматическую загрузку модулей - http://kuvbur.blogspot.com/2015/09/v...-archicad.html
В любом случае - спасибо за эксельку

[741520]

Сообщение от stas_org Вы формулу =IF(в формулах) как пишите, через запятую или двоеточие

понятия не имею=) Я вообще формул не пишу. Что-то в универе делал, а щас уже и не вспомню=)

----- добавлено через ~7 мин. -----
Спасибо, последняя версия даже что-то посчитала =) Но потом опять выдала ошибку, теперь уже номер 13.
В принципе если это так сложно переделать программу для нелокализованного, то ладно не парься. Я думаю не так много людей пользуются нелокализованным екселем. У меня дома русский, на работе только английский. Просто укажи что прога работает только в русском екселе и всё

[stas_org]

Сообщение от 741520 Спасибо, последняя версия даже что-то посчитала =) Но потом опять выдала ошибку, теперь уже номер 13.

Не, покажи скрин ошибки, будь добр, эту тему надо добить.
Результат уже есть!

----- добавлено через ~2 мин. -----

Сообщение от Brandashmыg Возможно, стоит уйти от вычислений на листах через вставку формулы и перенести все вычисления в макрос?

Неее, а как контролировать результат и ход вычисления пользователем?

----- добавлено через ~25 мин. -----

Сообщение от Brandashmыg Возможно, стоит уйти от вычислений на листах

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

[Brandashmыg]

Сообщение от stas_org Неее, а как контролировать результат и ход вычисления пользователем?

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

[741520]

собственно вот ошибка

[v.psk]

Оффтопом еще: операции с with лучше не выполнять /не рекомендуются или уж не помню, но стараюсь избегать/;
да with там и не нужно. Кнопки все-равно находятся на листе 1.

[stas_org]

Сообщение от 741520 собственно вот ошибка

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

Сообщение от v.psk Кнопки все-равно находятся на листе 1.

Возможно, привычка.

Есть еще ,так сказать, бонус для знающих.
Если в коде модуля UserForm3 снять комментарий со строк 100, 101, 136-139 то на листе База будут вычисляться углы поворота опорных сечений для балки с равномерной нагрузкой.
Но, углы вычисляются по формулам таблицы справочника Уманского, и я так и не понял в каких единицах? поэтому закоментировал эти строки. Если кто просветит по этому вопросу буду благодарен и включу их в расчет для всех расчетных схем которые я планирую включить в программу. Я думаю это не лишняя информация.

[румата]

Сообщение от stas_org у как может работать формула "=ЕСЛИ(...)" на нелокализованном ECXEL. Разница в методе celss.formala и celss.formalaLocal не просто так присутствует.

А в чем необходимость использования исключительно формул EXCEL в коде VBA? Что это полезного дает? На мой взгляд значительно универсальнее использовать конструкции VBA типа if then else с явным декларированием переменных (option explicit). Иначе тестирование Ваших скриптов может затянутся на бесконечно долгое время ввиду отсутствия понимания природы появляющихся багов.

[Антон311286]

Опробовал ваш девайс, нет, молодцы конечно! Автору респект! Но меня бесит, когда ошибки вылазят, да, понимаю, программа-тест, но вот уже пятая страница форума и никто это дело не тормознул, или опять умник делает, а потом купите по дешёвке. Так дело не пойдет! Если вы делаете программу, делайте для всех металлистов, а не делайте х....., а потом будет финансирование вам!!!!! Ошибки ваши я больше всего уверен из за не до понимания экселя, вы бы совместимость с начало нормально бы сделали, у кого 64бит, у кого 32бит, а уж молчу про дедушек которые кроме виндос хр наверное ни чего не видели, да автокада 2010, а потом будем тестить и радоваться!!!!!!! Ребята я вас верю у вас все получится.!

[Сергей812]

ну с точки зрения базового VBA разница между 32 и 64 битными версиями не критична особо.. А баги - просто автор вложил достаточное количество времени в программу, сделав упор на саму реализацию, а не на код - и сейчас радикально что-то менять.. терпите)

[IBZ]

Ребята, я видимо совсем отстал от жизни Но я однозначно считаю, что прикладная программа, имеющая проблемы уже на стадии запуска это При обращении за помощью в тестировании могут рассматриваться лишь вопросы неверного счета. Особенно, если конечной целью является замена (!!!) "Кристалла", СТК либо подобных модулей.

[stas_org]

Друзья, все отлично работает на локализованой копии excel, все баги давно исправили. Пятую страницу пытаемся для английской версии отладить, кто на ней не работает того никак не касается. И это плохо.

Сообщение от румата А в чем необходимость использования исключительно формул EXCEL в коде VBA? Что это полезного дает?

Контроль вычислений пользователем.

Кто может ответить по существу поста #93?

[пользователь 0]

Сообщение от stas_org Кто может ответить по существу поста #93?

На вопрос про единицы поворота опорного сечения в справочнике Уманского, отвечу так. Справочника у меня нет, поэтому рекомендую самому перемножить единичную эпюру с грузовой и сравнить с результатом из справочника. У инженера вообще не должно возникать такого вопроса

[IBZ]

Сообщение от stas_org Но, углы вычисляются по формулам таблицы справочника Уманского, и я так и не понял в каких единицах?

В радианах.