Порядок разделов в программе

 

1) В начале программы должны быть заданы, если нужно, переменные MinH, Step, Start и Stop.

Если они не заданы, то по умолчанию предполагается, что MinH=0.2, Step=0.1 м. Переменные Start и Stop, если не заданы, вычисляются по следующему приципу.Если на планшете указан интервал обработки, то он берется безоговорочно. Иначе ищется минимальный интервал пересечения всех входных данных.

 

2) Затем следует раздел IN.

После этого следует раздел OUT.

После этого начинается основной раздел программы со служебного слова begin.

 

Встроенные функции:

1) Для получения значения кривой или колонки со сдвигом по глубине в неявном цикле.

 

GetV(‘имя_данного’, сдвиг), где сдвиг может быть отрицательным и задается в м, имя_данного – может быть только с раздела IN.   

Например,

       V:=GetV('ДТП', -0.2)             

 

2) Для ручного ввода данных:

InputStr(‘Заголовок’, ‘Значение по умолчанию’) – для ввода строки,

InputNumber(‘Заголовок’,‘Значение по умолчанию’) – для ввода числа.

 

Заголовок – сообщение для пользователя.

Обычно, система автоматически запрашивает значений переменной, если оно ни разу не присваивалось. Но при этом она всегда задает одинаковый вопрос «Чему равно значение …». В этих функциях можно при помощи заголовка задавать, например, разные вопросы.

 

3) Для выполнения программ на языке PUBL

 

RunPrw(‘Имя файла Prw c указанием пути’).

Путь можно указывать полный или относительно системы ПРАЙМ. Имя файла указывается в одинарных ковычках.

       Например,

           E= RunPrw(‘E:\prime\prw\Date.prw’)  

       E= RunPrw(‘prw\Date.prw’)

 

       Коды возврата функции:    

       0 – все нормально,

       -1 – файл prw не найден,

       -2 – не загружается PABL.DLL с системного каталога ПРАЙМ.

       другие значения – коды ошибок компиляции и выполнения программы prw.

Для выдачи сообщений на экран

 

Msg(строковая_переменная)

 

Например,

                   Msg(FloatToStr(V));   

 

В окне Msg имеются три кнопки: ОК, Отказ, Игнорировать. Выбор кнопки Отказ приводит к выходу из программы. Выбор кнопки Игнорировать выключает окно до конца выполнения программы (например, при ошибочном вызове этой функции).

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

 

Пример программы:

Step:=0.2;

IN  ДТП;

OUT КПак;

begin

КПак:=((ДТП-170)/475)*100; 

if H>=2672.0 then 

if Msg('H='+FloatToStr(H)+' КПак='+FloatToStr(КПак))=0 then Exit;           

end

 

4) Для вызова функций системы ПРАЙМ

 

SelectDepth – интерактивный выбор глубины на планшете (м),

 

SelectInter(‘Message’, Start, Stop) – интерактивный выбор интервала глубин Start, Stop на планшете (м),

 

SelectDView – интерактивный выбор кривой или колонки на планшете,

 

GetDView - выбор по имени кривой или колонки на планшете,

 

SelCurveValue(P,'Сообщение пользователю') – интерактивное указание значения кривой;

 

Пример использования функций:

P=GetDView('НГК');

if P=0 then

P=SelectDView('Выберите кривую НГК');

V=SelCurveValue(P,'Укажите значение кривой НГК');

Msg('V='+FloatToStr(V));

 

GetDValue - получение значения кривой или колонки в заданной глубине,

 

GetMinMidMaxD(Name:string;Start, Stop, Min, Mid, Max, Disp:single) – вычисление минимума, среднего и максимума и дисперсии в заданном интервале кривой Name,

 

GetAB(Name:string;Start,Stop,A,B:single) - вычисление коэфф. линейной аппроксимации Name Ax+B кривой Name в заданном интервале.

 

Пример с явным циклом (один раз):

begin

P:= SelectDView('Выберите объект');

if P=0 then Exit;

h1:= SelectDepth('Выберите глубину');

V:= GetDValue(P,h1);

Msg(FloatToStr(V));

Exit;

end

 

Для использования этих функций в неявном цикле можно их вызвать только для одной точки, т.е. внутри условного оператора.

Например,

                   if Index=0 then begin

                   h1:= SelectDepth('Выберите опорную глубину');

                   еnd;

 

5) Для работы со строками:

Val             - число из строки,

IntToStr     - целое число в строку,

StrToInt - строку в целое число,

FloatToStr - вещественное число в строку,

StrToFloat - строку в вещественное число,

Copy    - выделение части строки,

Pos       - определение позиции символа в строке,

Length      - длина строки,           

Insert    - вставить в строку,

Delete  - удалить из строки часть,

Trim      - удалить пробелы в строке,

TrimLeft - удалить левые пробелы в строке,

TrimRight - удалить правые пробелы в строке,

UpperCase - перевести в заглавные,

LowerCase - перевести в прописные,                

Format  - оформить выдачу по шаблону,

 

6) Для работы с датой-временем:

Now     - текущее время,                   

Date      - текущая дата,                      

Time    - время,

DateToStr - дата в строковом представлении,

StrToDate - строку даты во внутреннее представление,

TimeToStr - время в строковом представлении,

StrToTime - строку во время во внутреннем представлении,

FormatDateTime – оформление дата и времени,

DayOfWeek - день недели,

IncMonth - увеличить месяц,

DecodeDate - декодировать дату, 

DecodeTime - декодировать время,

EncodeDate - закодировать дату,

EncodeTime - закодировать время,

 

7) Арифметические функции:

Abs            - абсолютная величина,         

Int               - целое число,               

Frac        - дробная часть,    

Round   - округление до целого,

Ceil           

Floor       

Trunc   - целая часть числа,

Sin        - функция синус,

Cos       - функция косинус,

Tan       - функция тангенс,

ArcSin  - функция арксинус,

ArcCos  - функция арккосинус,

ArcTan  - функция арктангенс,

 

Exp       - экспонента,

 

Ln         - натуральный логарифм,

Lg               - десятичный логарифм,

RND          - случайное число от 0 до 1,

IntPower - целая степень,

Sqr,       - квадрат,

Sqrt       - корень,

Inc         - увеличить число,

Dec       - уменьшить число,

 

8) Специальные функции:

Min            - количество параметров может быть различным,         

Max            - количество параметров может быть различным,         

GetVar  - получить переменную,

SetVar  - задать переменную,

Decode  - декодировать,

YearDays - число дней в году,

YearFrac - отстаток от полного числа дней в году.

Подключение в меню

 

Основная библиотека - CURVEPRG.DLL

Вызываемая функция – Gprogram

 

Программы, написанные с использованием языка UserProgramm сохраняются с расширением *.pr по умолчанию в каталог PRG, находящийся в корневом каталоге Системы. Далее сохраненную программу можно вызвать непосредственно из вызванной библиотеки CURVEPRG.DLL. Также в меню можно подключить сам файл (с расширением *.pr), не забыв указать расширение вызываемого файла и вручную набив заголовок меню.