Форум
Нужна помощь человека знающего Clipper!
askold: Добрый день, ситуация следующая - я веб разработчик, ко мне обратились с задачей перевести программу написанную на 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
полная версия страницы