[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 (несоответствие типов)". Приводящая к остановке подбора сечения у некоторых пользователей.

[v.psk]

Сообщение от stas_org Ну так что? Ошибок нет? Или времени нет? Или желания?

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

.Cells(i, j).Formula = "=(" & [Mmax].Value & "*10000000" & ")/(" & .Cells(i, 12).Address & "*1000" & ")/" & [RRy].Value & "/" & [GammaC].Value 'Условие прочности формула 41
в процедуре Public Sub CommandButton1_Click() //// сразу после Debug.print M, Ry, G

По функционалу - ятп. расчет производится только для балок.
Меня сразу смущает некая топорность, ну или если угодно - интерфейс. Опять же понимаю так - есть нужда проверить функционал, а допиливать можно позже.

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

Сообщение от stas_org в ситеме разделитель целой части от дробной стоит ТОЧКА

наверное из-за этого

[extraneous]

Offtop: Что-то у вас из темы сообщения исчезают, это нормально, не

[stas_org]

Вы не поменяли запятую на точку в свойствах системы

Offtop: Что-то у вас из темы сообщения исчезают, это нормально, не
Действия модераторов не обсуждаются.

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

Сообщение от v.psk По функционалу - ятп. расчет производится только для балок.

А каrой функционал хотелось бы добавить?

----- добавлено через 46 сек. -----

Сообщение от v.psk есть нужда проверить функционал, а допиливать можно позже.

Это само сабой, но на вкус и цвет....

[Кулик Алексей aka kpblc]

stas_org, касаемо "точка-запятая": попробуй получить системный разделитель, который использует текущий пользователь, и выполни через Replace замену сначала точки на него, а потом запятой (если это вообще надо, конечно).

[Бахил]

Offtop: Не понятно зачем всё это надо?

[stas_org]

Сообщение от Кулик Алексей aka kpblc если это вообще надо, конечно).

Думал об этом, но для этого надо подгружать системные библтотеки, боюсь будут проблемы на других машинах. Или объявлять все константы в коде которые содержаться почти во всех формулах.

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

Сообщение от Бахил Не понятно зачем всё это надо?

Чтобы работать за троих

[Кулик Алексей aka kpblc]

Зачем "подгружать системные библиотеки"? И без этого вариантов масса. Можно получить текущие значения, например, так:

Код:

[Выделить все]

Application.International(xlDecimalSeparator)

или

Код:

[Выделить все]

 Mid$(1 / 2, 2, 1)

А можно установить: https://msdn.microsoft.com/ru-ru/lib.../ff195207.aspx (код не проверял; не до того)

[stas_org]

Сообщение от Кулик Алексей aka kpblc Зачем "подгружать системные библиотеки"?

Тав ведь нужна точка в свойствах ОС. при чем тут Application?

[Anton_Br]

Посмотрел вскользь ваш расчёт.
При расчёте балки с равномерно распределённой нагрузкой по всей длине:
1) нажимаем "подбор сечения" и получаем ошибку run-time error '1004'
2) Опечатка: в виде нагрузки "равнемерно распделенная"

Будем смотреть далее...
Хорошее начинание

[stas_org]

Сообщение от Anton_Br Посмотрел вскользь ваш расчёт. При расчёте балки с равномерно распределённой нагрузкой по всей длине: Хорошее начинание

Вы не поменяли запятую на точку в свойствах системы

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

Сообщение от Кулик Алексей aka kpblc Зачем "подгружать системные библиотеки"? И без этого вариантов масса.

Алексей спасибо за наводку, действительно это решает проблему. Я задаю неправильные вопросы(((

[v.psk]

Сообщение от stas_org А каrой функционал хотелось бы добавить?

По структуре работы с программой хотелось бы добавить генерацию развернутого отчета.
Например, построение эпюр удобно реализовано здесь http://dwg.ru/dnl/13530
Выкладки и расчетные формулы например здесь http://webcad.pro/rasch.html

----- добавлено через ~1 мин. -----
средствами экселя это довольно трудно конечно

[741520]

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

[stas_org]

Сообщение от v.psk Например, построение эпюр удобно реализовано здесь http://dwg.ru/dnl/13530

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

[741520]

Ну и вот ошибка кстати

[stas_org]

Перезалил программу.

Исправил баг точка-запятая, интерфейс и добавил расчет на прочность в двух плоскостях изгиба, поправил окно спецификации(на маленьких мониторах толжно поместиться)

----- добавлено через 59 сек. -----

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

Попробуйте еще раз после перезагрузки.

[v.psk]

У меня при открытии ошибка (и была) :
В книге... содержимое, которое не удалось прочитать. Попробовать восстановить содержимое книги?
И далее:
Удаленный компонент: часть /xl/comments1.xml с ошибкой XML. (Примечания) Ошибка загрузки. Строка 2, столбец 177.

[stas_org]

Сообщение от v.psk У меня при открытии ошибка (и была) :

А можно скриншот ошибки.

У меня на 5-ти машинах все нормально было, ума не приложу что может быть.

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

Сообщение от v.psk Удаленный компонент: часть /xl/comments1.xml с ошибкой XML. (Примечания) Ошибка загрузки. Строка 2, столбец 177.

Это из-за картинок в качестве примечаний к ячейкам на листе "База" по столбцу "В". Иногда EXCEL их сносит, это плохо но на расчет не влияет.

[v.psk]

прикрепил в ворде
.проверил - скрины с хреновым качеством. извиняюсь)

[stas_org]

И что дальше не работает, закрывается?

[v.psk]

Сообщение от stas_org И что дальше не работает, закрывается?

Работает. Но каждый раз при открытии спрашивает

[stas_org]

А еще у кого наблюдается такой баг?

[13Rossoneri]

Насчет ошибок... Может для начала добавить вторую букву "л" в слово "метаЛика"?

[stas_org]

Сообщение от 13Rossoneri Насчет ошибок... Может для начала добавить вторую букву "л" в слово "метаЛика"?

Металика-это легендарная Рок группа, никакого отношения к металлоконструкциям не имеет. Так же как "Вест" "Камин" "Кристалл" "КоКон" и.т.д

[v.psk]

Сообщение от stas_org Металика-это легендарная Рок группа, никакого отношения к металлоконструкциям не имеет

Offtop: тогда и правда следует удваивать л. А вообще автору видней как назвать

[stas_org]

И правда ЛЛ, записал в туду.

[741520]

Список выбора госта на сталь налез на список выбора коэф. условий работы

[stas_org]

Сообщение от 741520 Список выбора госта на сталь налез на список выбора коэф. условий работы

Да, я знаю, консоли еще не отладил, там и алгоритм расчета Фиб другой.

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

Стас, а вопрос учета шага поперечных ребер жесткости до сих пор не решен? И так понимаю, тебя не переубедить.

[stas_org]

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

Вопрос ребер остается отрытым пока, но ,мной доказано, что в прокатных двутаврах они не нужны никогда, а в сварных при высоте балки от 1200мм. и выше.
Часто такие вещи приходится проектировать?

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

Сообщение от v.psk Работает. Но каждый раз при открытии спрашивает

Вы после открытия книги проигнорируйте ошибку и сохраните книгу. При повторном открытии не должна она снова появляться.

[IBZ]

По нашим сортаментам не нужны, но только при изгибе.

Сообщение от stas_org ... но ,мной доказано, что в прокатных двутаврах они не нужны никогда, а в сварных при высоте балки от 1200мм. и выше.

Первое верно (только при изгибе), второе нет ...

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

Если нет "отвращения" к DOS-интерфейсу и в чулане завалялся компьютер с Windows XP, могу скинуть рабочую версию нашей программы КМБП-2.03, считающей по не актуализированному СНиП II-23-81*. Ну так, что-бы "поставить планку" чисто в техническом аспекте, не глядя на допотопный ввод и экран Тут главное, чтобы после изучения расчетных возможностей "руки не опустились" .

[tutanhamon]

Сообщение от IBZ могу скинуть рабочую версию нашей программы КМБП-2.03

Не могли бы поделиться?

[stas_org]

IBZ Благодарю за ликбез.
Расчет на устойчивость стенки бесспорно необходим, и я обязательно его победю , думаю ближе к лету. Сейчас все силы сосредоточены на устойчивости сжатых элементов.
А КМБП кидайте, обещаю что дальше меня он никуда не уйдет.

[v.psk]

Сообщение от stas_org Вы после открытия книги проигнорируйте ошибку и сохраните книгу. При повторном открытии не должна она снова появляться.

Ошибка все-равно выскакивает/ мб из-за win10.

Сообщение от IBZ не пытайтесь упростить

примерно в том же ключе я бы хотел напомнить про интерфейс, но, что для меня еще более важно и кмк может стать действительно значимым преимуществом программы - создание развернутого отчета по типу normcad или webcad.pro.

[stas_org]

Сообщение от v.psk Ошибка все-равно выскакивает/ мб из-за win10.

Тогда такая просьба, открыйть книгу и на листе "база" удалить полностью столбец "В" , сохранить и снова отрыть, и отписать что происходит.

Сообщение от v.psk про интерфейс

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

Сообщение от v.psk отчета по типу normcad или webcad.pro.

((((( Я тут боюсь что после IBZ у меня руки опустятся. Ну ведь отчет есть, и довольно прилично все расписывает ИМХО. С нормкадом в этом плане я тягаться не могу.

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

Сообщение от Кулик Алексей aka kpblc Зачем "подгружать системные библиотеки"?

на Win8.1 таки бестолку через application менять точку.

[v.psk]

Сообщение от stas_org Тогда такая просьба, открыйть книгу и на листе "база" удалить полностью столбец "В" , сохранить и снова отрыть, и отписать что происходит.

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

Сообщение от stas_org нужно цвет кнопок поменять или что?

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

Сообщение от stas_org нормкадом в этом плане я тягаться не могу.

Нормкад /имхо/ сильно уступает вебкаду от AY

[stas_org]

Сообщение от v.psk при втором открытии тоже не выскакивает ошибка.

А примечания(картинки) у ячеек в столбце "B" слетели?

Сообщение от v.psk - добавить описание, расширить / дополнить отладчик ошибок.

Это необходимо конечно, но не обязательно. Будем стремиться, Москва не сразу строилась.

[v.psk]

Сообщение от stas_org А примечания(картинки) у ячеек в столбце "B" слетели?

ятп они слетают при открытии. Картинок в столбце /визуально, скроллом до упора/ не обнаружил.

[IBZ]

Сообщение от tutanhamon Не могли бы поделиться?

Готов поделиться со всеми желающими, которые:

- готовы смириться с DOS-интерфейсом;
- обладают не очень новыми компьютерами с WINDOWS XP;
- понимают, что программа у них либо запустится, либо нет;
- не будут задавать вопросов по возможности использования более новых OS;
- четко понимают, что в программу заложен не актуализированный СНиП II-23-81*;
- будут удовлетворены одним регистрационным ключом на конкретный компьютер;
- не будут расчитывать на сколько-нибудь быстрый ответ на возникшие вопросы;
- не будут предъявлять авторам каких либо претензий в всех, без исключения, случаях;

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

[stas_org]

Вот как раз эта ошибка у тебя и убивает эти картинки, не понимаю почему это происходит, но происходит не у всех.

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

Сообщение от IBZ - не будут предъявлять авторам каких либо претензий в всех, без исключения, случаях;

А что реально были случаи?

[v.psk]

Сообщение от IBZ с WIDOWS XP

прошу меня простить. тут я улыбнулся. widow - вдова (англ).
К сожалению это редкость. Но ЯТП для этого придуманы тн. виртуальные машины.
Это как минимум интересно, есть надежда что и полезно, да и условия разумные.

[IBZ]

Сообщение от v.psk прошу меня простить. тут я улыбнулся. widow - вдова (англ).

Ну не "черная" же . Исправил на "форточку", а то и впрямь требовать будут .

Сообщение от stas_org А что реально были случаи?

Нет, но ... "У вас несчастные случаи на стройке были? Нет? Будут!!!"(c)

[stas_org]

Поскольку конструктивных замечаний к расчету ни у кого нет, решил выпустить МЕТАЛЛИКА v1.0.

[IBZ]

Сообщение от stas_org Поскольку конструктивных замечаний к расчету ни у кого нет, решил выпустить МЕТАЛЛИКА v1.0.

Все зависит от конечной цели. Первую бета-версию нашей КМБП я отдал на тестирование, когда там было штук пять сечений со всеми СНиПовскими проверками и с оптимальным подбором сечений на все виды НДС реально применяющимися для них.

P.S. Первое детальное тестирование за автором программы, иначе сей продукт ничего не стоит и в практике применен быть не может. Когда автор не находит у себя ошибок, вот только тогда ...

[stas_org]

Сообщение от IBZ .S. Первое детальное тестирование за автором программы, иначе сей продукт ничего не стоит и в практике применен быть не может. Когда автор не находит у себя ошибок, вот только тогда ...

В Лира-сапр 2012 тестировал десяток схем и разных жестокостей (прокатных и составных) . Сходимость 99.5%.


Еще открыл для себя что расчет на устойчивость профильных труб по СП16 экономичней на 20% чем расчет по СНиП.

[IBZ]

Сообщение от stas_org В Лира-сапр 2012 тестировал десяток схем и разных жестокостей (прокатных и составных) . Сходимость 99.5%.

В свое время начали писать собственную программу подбора/проверки сечений именно из-за наличия многочисленных ошибок в существующих . Проверять надо исключительно "руками" и с 3-мя знаками после запятой (не шутка).

P.S. Очень интересно как Вы поступаете с откровенными ошибками в формулах СП 16.13330.2011? Я вот в летом 2011 года сел за актулизацию ... как сел, так и встал по вышеозначенной причине .

P.P.S. Совет: для отладки программы обязательно предусмотрите служебный режим трассировки, причем подробнейший.

[stas_org]

Сообщение от hentan подсчет массы металла

Зачем? Какого металла?

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

Сообщение от IBZ P.S. Очень интересно как Вы поступаете с откровенными ошибками в формулах СП 16.13330.2011?

Можно поконкретней, где ошибки в СП16?

[IBZ]

Сообщение от stas_org Можно поконкретней, где ошибки в СП16?

Завтра приведу пару ошибочных формул - дома СНиПа нет. Но это с практической точки зрения совершенно бесполезно. Вы не имеете никакого права самостоятельно корректировать официальный документ !!!! Именно по этой причине я и остановил 5 (!!!) лет назад актуализацию своей программы.

[stas_org]

Сообщение от hentan Просто как доп. модуль, например, имеется двутавр с пластинами-чтобы общий вес посчитать-отделно не смотреть в справочник сколько весит двутавр, отдельно не обсчитывать пластины-а сразу получить общий результат

Там есть модуль "форма7. Спецификация" не то?

[IBZ]

Сообщение от IBZ Завтра приведу пару ошибочных формул - дома СНиПа нет.

Нет, приводить не буду. Сделаем так: я подниму свою переписку с ЦНИИСКом, где указаны "косяки" (с моей точки зрения), выявленные до июля 2011 года (боюсь, что их в СП намного больше) и выложу эти материалы в своем блоге. Постараюсь сделать это на неделе, но не обещаю - много работы.

[741520]

Пару ошибок

[stas_org]

Сообщение от 741520 Пару ошибок

По поводу 1 ошибки. Архив распакуйте откройте файл и сохраните. Не должна она появиться.
По поводу 2-й. пойду учить Русский язык. Если напрягает можете исправить сами.

[741520]

Распаковал, нажал сохранить - всё равно Run time error 13. Попробывал сохранить под другим именем - все равно ошибка 13

[stas_org]

Тогда просьба, нажмите DEBUG, и скрин экрана с желтой полосой покажите.

[atos88]

Сообщение от IBZ Нет, приводить не буду. Сделаем так: я подниму свою переписку с ЦНИИСКом, где указаны "косяки" (с моей точки зрения), выявленные до июля 2011 года (боюсь, что их в СП намного больше) и выложу эти материалы в своем блоге. Постараюсь сделать это на неделе, но не обещаю - много работы.

Очень ждем!

[741520]

Вот

[stas_org]

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

Теперь понял, надеюсь исправил. Попробуйте и просьба отписаться (сделаю версию с исправленным багом)

Если будет ошибка прошу сделать скрин отладчика.

[Nfors85]

У меня все осталось по прежнему.

[Krieger]

Что-то не работает...
win7 x64, exel2007

[stas_org]

Krieger

Вам надо в системе (панель управления-языки и региональное стандарты-дополнительно) разделитель целой и дробной части поставить ТОЧКУ (как в старой Лире)
Ошибку при открытии проигнорируйте, она не влияет ни на что, только сносит кортинки примечания на листе "база". Я не понял почему она возникает но возникает не у всех.

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

Сообщение от Nfors85 У меня все осталось по прежнему.

Что по прежнему (Type-mistmath) ?

[Nfors85]

да, Run time error 13 (Type-mistmath)

[stas_org]

Сообщение от Nfors85 да, Run time error 13 (Type-mistmath)

Будьте добры скрин отладчика.

[v.psk]

можно сделать проверку isnumeric или при присвоении значения писать формулы вида a=b+0

Сообщение от Krieger Что-то не работает...

у меня те же экраны были

[Nfors85]

[stas_org]

Сообщение от v.psk у меня те же экраны были

Поэтому и прошу вас всех помочь отладить программу, я на двух компах и на ноуте (своих) отлаживал тоже выловил ошибок. Но их всего было две (как показал Krieger). Лечиться заменой точки на запятую в системе. Ошибка "Run time error 13 (Type-mistmath)" для меня диковинная, поэтому очень прошу кидать скрин отладчика. А что мне никак не понятно, как может Type-mistmath, у одних появляться у других нет.

[Nfors85]

у меня excel 2016 если что.

[stas_org]

Nfors85

Попробуй так, и отпиши пжлста.

[Nfors85]

теперь все гуд, подбирает без ошибок.
_______________________
В выпадающем списке в результате подбора только труба, квадратная и круглая, так и долно быть?

[741520]

Тринадцатая пропала, появилась 1004

[stas_org]

741520

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

----- добавлено через ~8 мин. -----
Перезолил версию Металлика v1.1 (исправлена ошибка Type mistmach)
И еще программа пишется исключительно под локализованный EXCEL.

[Кулик Алексей aka kpblc]

Nfors85, тебе картинку в пост не прикрепить, да?

[741520]

А это очень сложно? Локализованный и обычный они что такие разные?

[stas_org]

Сообщение от 741520 А это очень сложно?

Нет не сложно, но разница существенная (Они пишут IF а мы ЕСЛИ). Сделаю не локализованную версию.

[Кулик Алексей aka kpblc]

Что-то странное творится с этой программой... Оказывается, работает только на русском Excel.
Не исправлена (и не собирается исправляться, похоже) ошибка преобразования строки в число, хотя варианты показывались.
В коде, похоже, принципиально не используется Option Explicit
Код еще и заблокирован (по крайней мере войти в References мне в Excel 2010 не удалось)
Настоятельно рекомендую заменить "Лист1", "Лист2", "Лист3" на нечто более внятное - например, "SheetCount", "SheetBase", "SheetAbout". Соответственно поменять ссылки в коде.
Оччень информативные названия контролов и форм - TextBox7, TextBox3, UserForm2... Сам еще не запутался?
P.S. За подобное форматирование кода убил бы, честное слово!

----- добавлено через 50 сек. -----
Для программного создания формулы, кстати, локализация Excel'a в свое время (по крайней мере до 2007) шла лесом.

----- добавлено через ~7 мин. -----
Кстати, ради интереса внес Option Explicit в модуль листа "Расчет". Выполнение моментально остановилось

[stas_org]

Сообщение от Кулик Алексей aka kpblc Не исправлена (и не собирается исправляться, похоже) ошибка преобразования строки в число,

Это не совсем понятно. Все остальное принимаю и благодарю за критику.
Контролы пусть называются по умолчанию, с формами не запутаюсь, эти как раз и нужны с именами по умолчанию.
Option Explicit не нужен принципиально.

А Excel только Русский

[Кулик Алексей aka kpblc]

Option Explicit нужен принципиально: не остается непонятных хвостов в памяти.
Excel не обязательно только русский (по крайней мере я на это надеюсь): см.аттач. Пусть тот, у кого "нелокализованный", проверит и отпишется.

[Nfors85]

Сообщение от Кулик Алексей aka kpblc Nfors85, тебе картинку в пост не прикрепить, да?

Cори, на форуме не активно пишу, попросту не нашол как прикрепить картинку правильно

[stas_org]

Сообщение от Кулик Алексей aka kpblc Пусть тот, у кого "нелокализованный", проверит и отпишется.

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

[741520]

Сообщение от Кулик Алексей aka kpblc Option Explicit нужен принципиально: не остается непонятных хвостов в памяти. Excel не обязательно только русский (по крайней мере я на это надеюсь): см.аттач. Пусть тот, у кого "нелокализованный", проверит и отпишется.

Не, тоже 104 выскакивает

[Кулик Алексей aka kpblc]

741520, я не проверял составление формул. Но почти уверен, что если бы автор посмотрел на макрос создания формулы, подобной проблемы бы не было в принципе.
P.S. Дальше влезать не хочу. Плюшек все равно не дождусь, а вот плюх заработать на ровном месте не хочу от слова совсем

[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 Но, углы вычисляются по формулам таблицы справочника Уманского, и я так и не понял в каких единицах?

В радианах.

[румата]

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

Зачем? Важен же верный результат в 100% случаев расчета, а не отлов ошибок несовместимости типов переменных в Ваших скриптах.

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

Углы поворота опороных сечений испокон века вычислялись в радианах.

[stas_org]

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

Ну ни знаю, я в школе транспортиром в градусах измерял. Уманский явно не написал, а по размерностям тем более не догадаешься.

Сообщение от румата Зачем? Важен же верный результат в 100% случаев расчета, а не отлов ошибок несовместимости типов переменных в Ваших скриптах.

Какие переменные, вставляется конкретная формула(из СП16) типа М/WRyGamaC, где все данные из конкретных ячеек берутся, загляните на лист "База" после подбора сечения и поймете о чем я, возможно, хотя это и не важно. Если кто не понял, то после подбора сечения, на листе база можно увидеть весь ход расчета на общую устойчивость, со всеми промежуточными выкладками. И для особо скептически настроенных товарищей там еще и конкретные формулы.