[DEM]

Родилась идея, о создании бесплатного аналога программ Арабат, Кристал, Вест и отдельных модулей НормКада....
Данный проект можно сделать с открытыми исходниками а разработку его вести на основе ГитХаба или Google Code....
В качестве языка программирования предлагаю принять VB.net т.к. он все таки победил в теме....
Можно было конечно принять матерный, но к сожалению, тогда придется проект делать закрытым, и исходники хранить на флешках в защищенных от доступа детей местах...
Прошу высказывать свои пожелания и предложения к данному проекту...

PS. Прошу всех кто согласен участвовать в проекте отписаться в личку....

Список участников:
DEM
bargool
RrRR
ябс
Cosinus
swell{d}
Akim_1989
Djur
Ratmir
Yasnogor
P1@t0n
GradRusStroy
gabidullin

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

[Нитонисе]

Сообщение от Kinzer Вкладки удалил, т.к. результаты выдает неправильные пока.

Ясно. Я сам делал реализацию расчета на основе деформационной модели, хотел сравнить. Я делал по СНБ, смотрю у вас обозначения такие же, только характеристики отличаются.

[DEM]

Cosinus
На днях попробую с Лазарусом разобраться...
В принципе надо будет постараться сделать так чтобы обойтись без PyQt, вся визуальная часть будет в формах Лазаруса....

[Meknotek]

Сообщение от ННВ О, точно!

libgfortran-3.dll не найден

[Chardash]

[offtop]

Сообщение от Cosinus Нужна помощь в расширении их списка. Кто подключится?

я готов помочь. но пока учусь)/OFFTOP]

[Cosinus]

Попробовал запустить моменты инерции из под портабли Python 2.7.3. Весь вечер пытался установить библиотеки через setup install. Потом плюнул, в site-packages просто скопировал две папки из непортабельного питона. У меня всё работает. Попробуйте, у кого нет установленного питона.

Chardash, я и сам не сенсей. Пиши в личку, что хочешь делать (сортаменты по образцу или расчеты МК из снипа). Тут большого ума не надо, питон очень простой язык, эт вам не С++

[zamtmn]

Небольшая гуи обертка на лазаре над внешним ексешником через стандартный ввод-вывод. В качестве ексешника выступает простая программа на паскале - aplusb.exe:

Код:

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

program aplusb;
uses sysutils;
var
  a,b,c:double;
begin
     DecimalSeparator:='.';
     writeln('Hi! It A+B program!');
     writeln('Please enter A');
     readln(a);
     writeln('Please enter B');
     readln(b);
     c:=a+b;
     writeln(format('A+B=%F',[c]));
end.

Она вводит 2 числа и выводит их сумму. Консольный сеанс выглядит так:

D:\freeing\root\aplusb>aplusb.exe Hi! It A+B program! Please enter A 1 Please enter B 2 A+B=3.00 D:\freeing\root\aplusb>

Гуй сварганен на простом "инспекторе переменных" как в моем предидущем примере, для описания гуя создан файл aplusb.var

Код:

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

var
   INPUT_a:GDBDouble;(*'А'*)
   INPUT_b:GDBDouble;(*'Б'*)
   OUTPUT_c:GDBDouble;(*'Ц'*)
begin
end.

Т.е. в инспекторе будут 3 переменных типа double, c "русифицированными" именами А,Б,Ц соответственно. При запуске freeing и двойном щелчке в дереве на aplusb.var всё это хозяйство отобразится в инспекторе и можно ввести начальные значения A и Б.
При нажатии кнопки "Run script" aplusb.exe будет запущен, но не сразу)) сначала по старой доброй привычке выполнится небольшой PascalScript файл aplusb.ps который объяснит программе что от нее требуется.

Код:

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

begin
     InputStrClear;//очистить шаблоны ввода в программу вывода скрипта, вдруг они непустые от прошлого скрипта
     InputStrAdd('A+B=|OUTPUT_c');//задать шаблон "все что после A+B= попадет в переменную OUTPUT_c"

     OutputStrClear;//очистить шаблоны вывода из программы ввода в скрипт, вдруг они непустые от прошлого скрипта
     OutputStrAdd('Please enter A|INPUT_a');//задать шаблон "на запрос Please enter A выдать содержимое INPUT_a"
     OutputStrAdd('Please enter B|INPUT_b');//задать шаблон "на запрос Please enter B выдать содержимое INPUT_b"

     ShellExecute('aplusb.exe');//запустить ексешник и парсить ввод-вывод согласно заданым шаблонам
end.

Итого на один exe 2 дополнительных файла, *.var - описание гуя, и *.ps описание взаимодействия с программой. Форматы их в принципе могут быть любыми, я выбрал такие - использовал старые наработки и потыкал палочкой возможности PascalScript.

Скомпилено всё в 64битном варианте, проверка синтаксиса в *.var попрежнему не на высоте - радактировать аккуратно

[DEM]

А можно тоже самое сделать но запустить файл *.py Портабл питоном(придется либо путь прописывать, либо кидать в корень с Питоном)....

[Meknotek]

Сообщение от DEM А можно тоже самое сделать но запустить файл *.py Портабл питоном(придется либо путь прописывать, либо кидать в корень с Питоном)....

Зачем в ту же папку? Я уже показывал "путь" к portable в bat-нике.

[DEM]

Сообщение от Meknotek Зачем в ту же папку? Я уже показывал "путь" к portable в bat-нике.

Так он не нужен, экзешник сам может с ключами запускать файлы...
Ps. Лишние файлы то зачем????

[zamtmn]

DEM
Конечно можно, недаром я все что касается запуска и обмена вынес из программы. Но в данном случае внутри ShellExecute('aplusb.exe'); к имени файла прибавляется путь к папке с расчетом. Если сделать через установку текущей папки, то поведение будет полностью как в консоли
Да кстати, пример из #706 не дружит кирилицей в путях...

[DEM]

zamtmn
Та в принципе не суть, пока как запускаться будет, модуль на питоне, у меня дык чейто не запускается.....
Толи с кодировкой чего то не то, или еще какие проблемы...
Но думаю на на днях времени по больше появится и разберусь....
PS. Получилось запустить файлы Питона из ЛАзаруса...
Выложите какой нибудь файл в Питоне в который передаются данные из командной строки, а так же какие данные ему надо передать в командной строке.....
Получилось запустить с ключами файлы Питона...
Вечером или завтро утром выложу пробную программку...

[DEM]

В общем все получилось!!!!
Отправил данные в программу на питоне(программой это сложно назвать), и получил их обратно....
И даже сохранил в текстовый файл.....
Файлы из project1.zip распаковать туда же где лежит python.exe....
Дальше там все понятно должно быть....
Кусок кода их Лазаруса....

Код:

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

procedure TForm1.Button1Click(Sender: TObject);
 var
 AProcess: TProcess;
 AStringList: TStringList;
 begin
 ShowMessage(Edit1.Text + ' + ' + Edit2.Text);
 AProcess := TProcess.Create(nil);

 // Создаем объект TStringList
 AStringList := TStringList.Create;

 // Зададим командную строку
 AProcess.CommandLine := 'python.exe module1.py -u'+ Edit1.Text + ' -f' + Edit2.Text;


 // Установим опции программы. Первая из них не позволит нашей программе
 // выполнятся до тех пор, пока не закончит выполнение запущенная программа
 // Также добавим опцию, которая говорит, что мы хотим прочитать
 // вывод запущенной программы
 AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];

 // Теперь запускаем программу
 AProcess.Execute;

 // Пока запущенная программа не закончится, досюда мы не дойдем

 // А теперь прочитаем вывод в список строк TStringList.
 AStringList.LoadFromStream(AProcess.Output);
 ShowMessage(AStringList.Text);
 // Сохраним вывод в файл
 AStringList.SaveToFile('output.txt');

 // После сохранения файла мы можем уничтожить
 // TStringList и TProcess.
 AStringList.Free;
 AProcess.Free;
 end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
  begin
   // проверяем нажатую клавишу
   case Key of
    // цифры разрешаем
    '0'..'9': key:=key;
    // разрешаем десятичный разделитель (только точку)
    '.', ',': key:='.';
    // разрешаем BackSpace
    #8: key:=key;
    // все прочие клавиши "гасим"
    else key:=#0;
   end;
  end;

Кусок кода из Питона....

Код:

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

#-------------------------------------------------------------------------------
# Name:        module1
# Purpose:
#
# Author:      DEM
#
# Created:     30.12.2012
# Copyright:   (c) DEM 2012
# Licence:     <your licence>
#-------------------------------------------------------------------------------
#!/usr/bin/env python
#!/usr/bin/python
#-*- coding: utf8 -*-
import argparse
parser = argparse.ArgumentParser()
parser.add_argument('-u', '--link',required=True, dest='URL',
                        help='')
parser.add_argument('-f', '--filename', required=False, dest='FILE',
                        help='')
args = parser.parse_args()
URL = args.URL
if args.FILE == None: FILE = 'update.tar.gz'
else: FILE = args.FILE
d=FILE+URL
print (d)
print ('С НОВЫМ ГАДОМ')

Пока это сборная солянка, аля Быдлокод/Копипаста
Птом причешу....

[ETCartman]

в тему обсуждения из другой ветки http://www.anaxsoft.com/contents/pro...dk/feeafs.aspx
коль вы выбрали net то у него есть (пожалуй единственное) преимущество в виде продаваемых специализированных библиотек.
возможно это не единственная библиотека такого рода но другой линк на работе. типа скинтесь - купите и пишите свой скад. это уже будет не очередное поделие (красивое и бесполезное в духе нитонисе) а более менее полноценный софт
(ЗЫ не понял есть ли шеллы - то есть оболочки. если нет - то это плохо для бетонщиков по крайней мере. из того что есть легко реализуются снипы - сейсмика, ветер пульсации и прочее, причем чисто арифметически)
Другой вариант чтобы реализовать программу - lisa-fet.com, где шеллы есть. Можно объединиться с автором (канадец - Карл), писать пользовательские модули на основе этой проги. Она пока дешева - минус что закрыта и может подорожать впоследствии.

[DEM]

ETCartman
От Net-a как такового мы не отказались...
Но все таки как видно из обсуждения основными языками будут Лазарус(в качестве оболочки и графического интерфейса) и Питон в качестве расчетного модуля....
По части расчетов МКЭ пока думаю как бы по лучше это реализовать....
Варианты следующие
1. На певом этапе сделать универсальные модули для обработки результатов СКАД & ЛИРА ну и остальных программ, самое главное чтобы был текстовый отчет или таблицы экселя...
2. Сделать модуль по расчету многопролетной балки...
3. Рассмотреть возможность создания своего препроцессора для плоских схем, может принять за основу Zcad благо автор тут присутствует и помогает нам...
4. Рассмотреть возможности бесплатных МКЭ программ и принять одну из них...
5. Рассмотреть возможность генерации txt файлов Лиры и Скада из бесплатного препроцессора, ну и наоборот...
6...
7...

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

[ETCartman]

а пайтон с TK или без? может быть можно параллельно запускать эти функции на опен офис (используя тот же самый метод что и в лазарус, только обращаясь к собственному опен-офисовскому пайтону). тогда бы это был кроссплатформенный продукт, с учетом того что и опен офис кроссплатформенный. и там же можно было бы использовать и прочие функции (и например расчет плоских систем по мкэ в опен офис)
насчет рабочего места расчетчика под линукс - в принципе оно возможно но по моему не нужно. Wolsink Framework работает под вайном, почти все открытые программы тоже. Линукс хорошая система для веб серфинга, повседневных дел, работы в офисе, и прочего но делать ее непременно рабочим местом по моему не нужно, пока виндоус хоть и коряво но работает еще. надеюсь будет работать.

[DEM]

ETCartman
Не пойму зачем к опен офису обращаться для выполнения программы????
Есть портабл Питон 3,1 со средой разработчика весит около 100 Мб, при удалении всех "лишних" файлов будет весить около 50-70 Мб...
Будут программы которые будут запускаться из под оболочки сделанной в Лазарусе, Питон тоже есть под как под Винду так и под Линукс, правда при установке на Линукс придется возможно полностью устанавливать пакет Питона...
ТК дык вообще в качестве диалоговых окон слабоват, может конечно в ходе расчет придется запускать его но особого смысла не вижу...
Сейчас я разобрался как передавать параметры расчета в программы сделанные в Питоне...
Вся информация передается с ключами запуска, если придется передавать большие массивы инфы, то сделаем временный файл в который все будет записываться, а Питон потом считает информацию из этого файла...
Зачем в этой связке ОО не пойму....

[ETCartman]

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

[DEM]

ETCartman
НУ и зачем нужно ОО то не пойму если есть, встроеный интерпретатор языка????
Надо будет использовать модули в ОО пожалуйста используйте, но навязывать пользователям установку ОО не собираемся...
Там идеология в том чтобы все модули можно было использовать по отдельности, причем в том же ОО вы прекрасно сможете использовать те модули которые были сделаны для нашего проекта...
Другое дело что в ОО, Питон скорее всего какой нибудь кастрированый, но в любом случае тут ситуация похожа на тот же Net-фраймворк, который вы не желаете устанавливать...
Другие не захотят ОО устанавливать...
К чему эти войны???

[ETCartman]

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

[DEM]

Дык ссылку на питон портабл выкладывали уже...