Автор | Сообщение |
|
| |
Пост N: 1
Зарегистрирован: 03.06.20
|
|
Отправлено: 31.07.20 12:50. Заголовок: Нужна помощь человека знающего Clipper!
Добрый день, ситуация следующая - я веб разработчик, ко мне обратились с задачей перевести программу написанную на clipper в 90х годах на веб интерфейс. Программа достаточно массивная по расчетам, и осуществляет расчет потребления воды в каналах. Там значительное количество вычислений и формул, которые надо как то перевести хотя бы в математический вид... Попробовал компилировать - ничего особо не вышло. Попробовал сам разобраться, тоже особо не выходит... Предложение следующее, здесь есть кто то уверенный в себе, кто бы мог помочь на постоянной основе с этим проектом, за определенную плату соответственно! Если здесь есть человек, который на это способен - прошу отзовись. Примеры кода вышлю тем кто откликнется. Есть полноценная программа, с базами данных и комментариями в коде. Небольшой пример кода: *************************************************** * Function: St_Rasch * * Notes: Расчет статики * *************************************************** FUNCTION St_Rasch LOCAL Nk_ish:=0, Q_ish:=0, H_ish:=0 LOCAL n, nk, q, h, scr LOCAL obl:=SELECT() //инициализация If Men_g({"Да","Нет"},,,,,,; "Внимание! Инф-ция по предыдущим расчетам будет удалена. Согласны ?")=1 select vb zap select vs zap Else RETURN NIL EndIF select b set relation TO STR(NB_P,2) INTO s // ввод исх.данных для расчета If Ras_dan(@Nk_ish, @Q_ish, @H_ish)=K_ESC RETURN NIL EndIf nk:=Nk_ish q:=Q_ish h:=H_ish n:=nb //расчет по бьефам //вперед scr:=SAVESCREEN(0,0,MAXROW(),MAXCOL()) DO While n#37 If ms[n,2]=.f. exit EndIF DBSEEK(STR(n,2)) //вычисление расхода и H0 и HK QQ_P:=q H0_P:=R_H0_Hk(n,q,0) HK_P:=R_H0_Hk(n,q,1) s->QQS_P:=q //вычисления створов Ris_Elm(n, 2, 1) Tabl({'Идет расчет по бьефу '+STR(n,2)},,,,,,,1,1,1) h:=R_bief(n, nk, h) //подготовка для следующего бьефа q:=q+IF(ms[n,3],QL_P,0)-IF(ms[n,4],QP_P,0) nk:=1 Ris_Elm(n, 2) n:=n+1 //переход через сооружение If ms[n,1] h:=Sopr_b(n,1,h,q) If h=-1 RETURN NIL EndIF Else exit EndIF EndDO
|
|
|
Ответов - 37
, стр:
1
2
All
[только новые]
|
|
|
| |
Пост N: 7222
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.08.20 07:37. Заголовок: askold пишет: Попро..
askold пишет: цитата: | Попробовал компилировать - ничего особо не вышло. |
| Сбрось список файлов проекта , посмотрим что там... Можно на обменник или сюда если их не очень много.
|
|
|
|
| |
Пост N: 1583
Зарегистрирован: 20.02.11
|
|
Отправлено: 01.08.20 13:20. Заголовок: askold пишет: Если ..
askold пишет: цитата: | Если здесь есть человек, который на это способен - прошу отзовись. Примеры кода вышлю тем кто откликнется. |
| Дима уже отозвался, высылай ему, он точно способен. Судя по фрагменту кода большой проблемы это не вызовет
|
|
|
|
| |
Пост N: 7223
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.08.20 13:43. Заголовок: Haz Игорь не пали к..
Haz Игорь не пали контору Я могу попробовать только помочь собрать проект под Clipper , на халяву. На остальное не подписывался
|
|
|
|
| |
Пост N: 1584
Зарегистрирован: 20.02.11
|
|
Отправлено: 01.08.20 21:13. Заголовок: Dima пишет: На оста..
Dima пишет: цитата: | На остальное не подписывался |
|
Дим, там только алгоритмизировать код, проще придумаешь. Собрать проект видимо нужно только для оценки визуального интерфейса. Подписывайся, у тебя точно в этом вопросе мозгов с избытком ( вот про время не знаю ). PS. если чё , помогу, но уверен все и так не сложно. Бл* , ну что может быть сложного в clipper 🤔
|
|
|
|
| постоянный участник
|
Пост N: 1592
Зарегистрирован: 27.01.07
|
|
Отправлено: 01.08.20 21:16. Заголовок: Дождитесь реакции то..
Дождитесь реакции топикстартера. Чувак пока молчит))
|
|
|
|
| постоянный участник
|
Пост N: 3306
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.08.20 21:31. Заголовок: Haz пишет ну что мож..
Haz пишет цитата: | ну что может быть сложного в clipper |
| 1. отсутствие исходников 2. расчеты (алгритмы) перенесены в C 3. пункт 1 по C и PSP прав
|
|
|
|
| |
Пост N: 1585
Зарегистрирован: 20.02.11
|
|
Отправлено: 01.08.20 21:45. Заголовок: Исходники заявлены к..
Исходники заявлены как "есть они" Алгоритмы, они любые воспроизводимы по исходникам. В остальном уверен, нет в clipper сложного, ну ничего, могут быть вставки на asm и c, но это отдельный вопрос. Судя по фрагменту кода, вероятность таких вставок крайне низкая, а вот дождаться реакции топикстартера стоит.
|
|
|
|
| |
Пост N: 2
Зарегистрирован: 03.06.20
|
|
Отправлено: 02.08.20 18:55. Заголовок: Спасибо всем кто отк..
Спасибо всем кто откликнулся, не ожидал такого честно говоря! Скидываю часть программы, просто посмотрите получиться с этим что то сделать?! Ссылку на облако надеюсь можно здесь публиковать? https://cloud.mail.ru/public/JufL/Bve9joUvM
|
|
|
|
| |
Пост N: 7225
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.08.20 11:58. Заголовок: askold Прога уже со..
askold Прога уже собрана вообще то , в архиве лежат рабочие EXE Кроме того что бы заново пересобрать (только не понятно для чего) , для сборки не хватает самопальных библиотек которые прописаны в CL_KS.BAT
|
|
|
|
| |
Пост N: 3
Зарегистрирован: 03.06.20
|
|
Отправлено: 03.08.20 12:29. Заголовок: Мне ее надо переписа..
Мне ее надо переписать на другой язык, например на javascript. А разбираться с синтаксисом клипера нет времени особо, в этом и был изначально вопрос - "перевести программу написанную на clipper в 90х годах на веб интерфейс". Это можно сделать без особой боли, или например вы можете помочь с этим, само собой не бесплатно. Может как то созвонимся в скайпе или дискорде, я бы словами объяснил - так проще было бы!
|
|
|
|
| |
Пост N: 267
Зарегистрирован: 05.11.05
|
|
Отправлено: 03.08.20 17:32. Заголовок: askold пишет: на ве..
askold пишет: А почему именно на веб? Хотя я понимаю, что это ваш профиль. Да и непонятно, что было в этих — Dima пишет:
|
|
|
|
|
| постоянный участник
|
Пост N: 3310
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.08.20 19:31. Заголовок: askold пишет Мне ее ..
askold пишет цитата: | Мне ее надо переписать на другой язык, например на javascript |
| Прежде чем куда то переводить, надо определиться с базой данных. Сейчас она в dbf, куда планируете ее деть ? А можно оставить в dbf и cgi интерфейс. Cgi может быть как на clipper остаться или в harbour переползти. По мне это самый "дешевый" вариант, но в любом случае самопальные библиотеки нужны, для понимания.
|
|
|
|
| |
Пост N: 7226
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.08.20 20:31. Заголовок: Можно еще попробоват..
Можно еще попробовать найти разработчика программы или найти постановщика и сделать все с нуля
|
|
|
|
| |
Пост N: 268
Зарегистрирован: 05.11.05
|
|
Отправлено: 03.08.20 20:47. Заголовок: Dima пишет: найти п..
Dima пишет: Как минимум я бы все формулы перепроверил. Уж их-то должны знать в компании-заказчике.
|
|
|
|
| |
Пост N: 7227
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.08.20 21:02. Заголовок: rvu пишет: Как мини..
rvu пишет: цитата: | Как минимум я бы все формулы перепроверил. Уж их-то должны знать в компании-заказчике. |
| Для того что бы проверить надо как минимум знать синтаксис Clipper , это если по исходникам смотреть Но проще наверное если разраба прежнего нет (уехал в Израиль например) , заново получить постановку задачи у заказчика.
|
|
|
|
| |
Пост N: 4
Зарегистрирован: 03.06.20
|
|
Отправлено: 03.08.20 21:19. Заголовок: В том то и дело, что..
В том то и дело, что это и есть постановка задачи - перевести существующую программу в вид сайта, что бы все работало через интернет, базы наверное SQL будут - это вобще не проблема и второстипенно, базы я открыл и все там с ними понятно. Разраба найти нереально, и кого то хоть кто то близко знает что и как в логике программы... Поэтому я здесь и написал. Я как думал сделать, определить переменные и то что из базы, и найти человека который знает синтаксис клипера - он бы мне просто на пальцах объяснял операторы и прочее, разбирал бы функции, а я бы их переписывал в нужный мне вид... То есть я скидываю условный кусок кода - а мне человек дает обратную связь и в таком формате работаем, работа оплачиваемая повторяю! Если есть возможность - давайте созвонимся, пол часа времени займет, я на словах быстрее и понятнее расскажу что да как!
|
|
|
|
| |
Пост N: 1586
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.08.20 21:30. Заголовок: Dima пишет: для сбо..
Dima пишет: цитата: | для сборки не хватает самопальных библиотек которые прописаны в CL_KS.BAT |
| С этим как раз не проблемма , валкирья на раз исходник выдает. Но ... даже беглый просмотр подсказывает, что искать надо не разработчика , а постановщика ( он же заказчик ). к примеру код из первых строк MAIN If !FILE('D_Ishb.ntx') index ON STR(NB_P,2) TO S_Ishb Else set index TO S_Ishb EndIf мне не понятен . Проверяем наличие одного индекса , а строим другой ... Опечатка или умысел ? Или s->QQS_P:=q Alias S заявлен как USE S_Ishs ALIAS s NEW Но в базе S_Ishs нет поля QQS_P 90 % кода это экранные формы, сами расчеты вынесены в отдельные модули. Как и предполагал все достаточно прозрачно по коду, без изысков и хитрых алгоритмов. PS Собрал это чудо на харбуре , все работает. Был один затык , никак не хотело работать по алиасу "b" пришлось везде менять на "bx". Я бы посоветовал топикстартеру не с алгоритмами возиться , а оценить интерфейсную часть наполнив ее пока заглушками. По мере раскрытия алгорима можно эти заглушки замещать
|
|
|
|
| |
Пост N: 1587
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.08.20 21:56. Заголовок: Похоже что автор в с..
Похоже что автор в спешке кинул свое творение , или его по деньгам обидели тогда ... недоделанный продукт как бы
|
|
|
|
| |
Пост N: 7228
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.08.20 22:03. Заголовок: Haz пишет: Собрал э..
Haz пишет: цитата: | Собрал это чудо на харбуре , все работает |
| Шаман однако
|
|
|
|
| постоянный участник
|
Пост N: 370
Зарегистрирован: 29.05.10
|
|
Отправлено: 04.08.20 10:12. Заголовок: Haz пишет: Похоже ч..
Haz пишет: цитата: | Похоже что автор в спешке кинул свое творение , или его по деньгам обидели тогда ... недоделанный продукт как бы |
| Похоже авторов было трое - @ nR+13,25 say 'Разpаботчики:Ю.Г.Иваненко,В.И.Коpжов,А.А.Ткачев' @ nR+14,40 say 'Адрес: 346428, г.Новочеркасск' @ nR+15,40 say ' НГМА'
|
|
|
Ответов - 37
, стр:
1
2
All
[только новые]
|
|