| Автор | Сообщение |
|
|
| |
Пост 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: 270
Зарегистрирован: 05.11.05
|
|
Отправлено: 04.08.20 10:29. Заголовок: ММК пишет: НГМА И..
|
|
|
|
|
| постоянный участник
|
Пост N: 371
Зарегистрирован: 29.05.10
|
|
Отправлено: 04.08.20 10:34. Заголовок: Haz пишет: Я бы пос..
Haz пишет: | цитата: | | Я бы посоветовал топикстартеру не с алгоритмами возиться , а оценить интерфейсную часть наполнив ее пока заглушками. По мере раскрытия алгорима можно эти заглушки замещать |
|
При таком раскладе можно даже и заглушки не замещать. Есть mod_harbour. Бесплатный. Работает с ads, dbf, sql .Поддерживает синтаксис харбура . Т.е. можно "писать" веб приложение и вместо заглушек прямо ставить модули на харбуре. Например в исходниках есть работа с массивами. Выглядеть это может так - function Main() TEMPLATE <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Create Javascript array from Harbour</title> <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/4.1.3/css/bootstrap.css"/> </head> <body> <div class="container"> <div class="row"> <h1>Crear array Javascript desde Harbour</h1> <p class="lead">Create Javascript array from Harbour</p> <div class="col-sm-12"> <form role="form"> <div class="form-group"> <label>Data select from Harbour items</label> <select id="combobox" class="form-control"></select> </div> </form> <div> </div> </div> <script> $(document).ready( function () { var aList = <?prg LoadArrayFromHarbour() ?> console.log(aList); combobox = document.getElementById( 'combobox' ); for( n in aList ) { combobox.add( new Option( aList[n] ) ); }; }); </script> </body> </html> ENDTEXT return nil //----------------------------------------------------------------------------------------// function LoadArrayFromHarbour() local cStr := "" local aItems:= { 1,2,3,4,5, {'a','b','c', day(date()) } } local aList := { "Sunday", date(), 175.25, .T., aItems } cStr := ArrayToList( aList ) cStr := "["+ cStr +"]" return cStr //----------------------------------------------------------------------------------------// static function ArrayToList( aList, cSeparator ) local n local cStr := "" local nLen := len( aList ) hb_default( @cSeparator, "," ) for n := 1 to nLen switch valtype( aList[n] ) case 'C' cStr += '"'+ aList[n] +'"' EXIT case 'N' cStr += ltrim( str(aList[n]) ) EXIT case 'D' cStr += '"'+ dtoc( aList[n] ) +'"' EXIT case 'L' cStr += If( aList[n], 'true', 'false' ) EXIT case 'A' cStr += '['+ ArrayToList( aList[n], cSeparator ) +']' EXIT otherwise cStr += valtochar( aList[n] ) end if n < nLen cStr += cSeparator endif next return cStr Вот сайт сделанный таким образом www.modharbour.org Выберите пунк Образцы. Там примеры ... |
|
|
|
|
| |
Пост N: 1588
Зарегистрирован: 20.02.11
|
|
Отправлено: 04.08.20 11:37. Заголовок: rvu пишет: Иваненко..
rvu пишет: | цитата: | | Иваненко Юрий Георгиевич, доктор технических наук, профессор |
|
то есть разработчик здоров и доступен и есть к кому обратиться с постановкой  |
|
|
|
|
| |
Пост N: 7230
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.08.20 14:58. Заголовок: Haz пишет: то есть ..
Haz пишет: | цитата: | | то есть разработчик здоров и доступен и есть к кому обратиться с постановкой |
|
Разрабу 83 года уже и думается он на пенсии и ему фиолетово все что касается этой задачи  https://novocherkassk.net/wiki/novoprint/755/ |
|
|
|
|
| |
Пост N: 5
Зарегистрирован: 03.06.20
|
|
Отправлено: 04.08.20 14:58. Заголовок: Ребят, можно по теме..
Ребят, можно по теме а не про то кто и как причастен к данной программе, это я и так знаю. Говорю - доступа к человеку который писал код НЕТ и не будет, все остальные - это профессора которые к программе не имеют особого отношения, по этому поводу просьба больше не писать. Мне по факту нужен человек который разбирается в синтаксисе клипера, и готовый помочь с преобразованием формул, функций и логики - все это будет оплачиваться, кто может выйти на конструктивный и взрослый диалог - просьба отписать здесь.
|
|
|
|
|
| |
Пост N: 6
Зарегистрирован: 03.06.20
|
|
Отправлено: 04.08.20 14:58. Заголовок: ММК пишет: Вот сайт..
ММК пишет: | цитата: | Вот сайт сделанный таким образом www.modharbour.org
Выберите пунк Образцы. Там примеры ... |
|
Спасибо, вечером гляну что там есть! |
|
|
|
|
| |
Пост N: 273
Зарегистрирован: 05.10.06
|
|
Отправлено: 06.08.20 09:50. Заголовок: askold пишет: Мне ..
askold пишет: | цитата: | | Мне по факту нужен человек который разбирается в синтаксисе клипера |
|
Много доки на русском по синтаксису, все функции и классы описаны ММК пишет: | цитата: | | Есть mod_harbour. Бесплатный. Работает с ads, dbf, sql |
|
На сколько я понял нужно как то апач хакнуть. Вы такое уже собирали у себя ? Где посмотреть как его настроить ? |
|
|
|
|
| постоянный участник
|
Пост N: 372
Зарегистрирован: 29.05.10
|
|
Отправлено: 06.08.20 11:36. Заголовок: MIKHAIL пишет: На с..
|
|
|
|
|
| |
Пост N: 1595
Зарегистрирован: 20.02.11
|
|
Отправлено: 25.08.20 23:00. Заголовок: askold пишет: кто м..
askold пишет: | цитата: | | кто может выйти на конструктивный и взрослый диалог - просьба отписать здесь |
|
В общем ни конструктивного ни взрослого диалога не состоялось. Аскольд ( он же Андрей вроде как, но попрошу не путать с нашим коллегой поифоруму, тут другой чел с киберфорума.) Видимо совет Михаила почитать доки, - самый действенный. 👍👍 |
|
|
|
|
| |
Пост N: 7
Зарегистрирован: 03.06.20
|
|
Отправлено: 05.09.20 11:49. Заголовок: UP! Всех еще раз при..
UP! Всех еще раз приветствую, да советы покурить мануалы были действенны, но не на 100%. Тут отписывался человек, которой попросил ему в личку отписать, он вроде готов был помочь - не могу найти коммент его... !По факту, нужна будет помощь для расшифровки того синтаксиса который я не осилю и формул, проект большой - все будет оплачиваться, еще раз повторюсь: кто может помочь с этим и серьезно подойти к делу - просьба отписаться. Будьте готовы к разговору.
п.с. Всем без исключения, спасибо за советы!
|
|
|
|
|
| постоянный участник
|
Пост N: 1595
Зарегистрирован: 27.01.07
|
|
Отправлено: 05.09.20 12:19. Заголовок: askold пишет: По фа..
askold пишет: | цитата: | | По факту, нужна будет помощь для расшифровки того синтаксиса который я не осилю и формул, проект большой |
|
Вы начните выкладывать здесь ваши вопросы. Глядишь, процесс быстрее пойдет. |
|
|
|
|
|
|
| |
Пост N: 7242
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.09.20 14:47. Заголовок: askold Комент его к..
askold
Комент его как раз над вашей месагой , там жмем кнопку ЛС (личное сообщение) и пишем ему
|
|
|
|
|
| |
Пост N: 98
Зарегистрирован: 22.04.15
|
|
Отправлено: 17.06.21 15:20. Заголовок: Прога маленькая, на ..
Прога маленькая, на коленках сделана. Чел задал конкретный вопрос, а вы дискуссии развели  У кого есть время просто киньте ему Блок-схему проги, он сам с нуля за день нарисует  Я бы помог, но у себя завал... |
|
|
|
|
| |
Пост N: 1701
Зарегистрирован: 20.02.11
|
|
Отправлено: 17.06.21 17:21. Заголовок: Новичок пишет: Чел ..
Новичок пишет: | цитата: | | Чел задал конкретный вопрос, |
|
от чела как раз конкретику просили и помощь предлагали. Я даже с ним договорился по вацапу, что отвечу на любые вопросы . И тут чел исчез, надеюсь сам разобрался. Новичок пишет: | цитата: | | Я бы помог, но у себя завал... |
|
а у других ломка от скуки и безделья ? Могу его телефон скинуть , чтоб было куда блок схему высылать. |
|
|
|
|
| |
Пост N: 339
Зарегистрирован: 05.11.05
|
|
Отправлено: 17.06.21 18:13. Заголовок: Тема плавно переходи..
Тема плавно переходит в юмор. Какая блок-схема? Там, помнится, надо было формулы восстанавливать по тексту программы.
|
|
|
|
|
| постоянный участник
|
Пост N: 1615
Зарегистрирован: 27.01.07
|
|
Отправлено: 17.06.21 20:49. Заголовок: Новичок пишет: Прог..
Новичок пишет: | цитата: | Прога маленькая, на коленках сделана.
Чел задал конкретный вопрос, а вы дискуссии развели
У кого есть время просто киньте ему Блок-схему проги, он сам с нуля за день нарисует
Я бы помог, но у себя завал... |
|
Думаешь, он с сентября 2020 тебя ждёт?))) |
|
|
|
|
| |
Пост N: 7399
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.06.21 21:41. Заголовок: Парни да забейте , Н..
Парни да забейте , Новичок - провокатор.
|
|
|
|
Ответов - 37
, стр:
1
2
All
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума