spCalc_unitmeasure

Адрес этой странички : http://spcalc.narod.ru/spcalc_um.htm
spCalc.exe
Простой программируемый калькулятор.

Перевод величин из одних единиц измерений в другие.

Этот режим программы реализован на вкладке "Конвертировать".

Назначение элементов управления :

Дерево операций может быть таким, например :

Дерево операций - не жесткая структура.
Оно создается Пользователем в специальном текстовом файле с именем spCalc_UM_Func_Tree.txt
Этот файл должен находиться в том же каталоге, что и программа.
Файл считывается при запуске программы и из него формируется дерево операций.

Структура файла :

Каждая строка файла это "узел" или "лист" дерева.
Уровень иерархии узла (листа) определяется количеством знаков табуляции в строке слева.
"Лист" от "узла" отличается тем, что в строке "листа" указана функция, которая вызывается при вычислении.
Функция отделяется от имени "листа" символом вертикальной черты |

Например :
Вес
    кг -> гр |umfuncext_Weight(X_in,1)
    гр -> кг |umfuncext_Weight(X_in,2)
    кг -> мг |umfuncext_Weight(X_in,3)
    мг -> кг |umfuncext_Weight(X_in,4)
    гр -> мг |umfuncext_Weight(X_in,5)
    мг -> гр |umfuncext_Weight(X_in,6)

Все функции, используемые для конвертации, располагаются в специальном скрипте (файл spCalc_UM_Script.pas).
Этот файл должен располагаться в том же каталоге, где и программа.

Формат заголовка функции :

function ИмяФункции(X_in : extended; СписокНужныхПараметров) : extended;
где
X_in - входное значение (которое надо конвертировать)
СписокНужныхПараметров - дополнительные параметры.

Примеры функций конвертации :

Давление: атм <=> мпа

function umfuncext_Preasure(X_in : extended; NrMode : integer; G : extended = 10) : extended; //Ед. измерения давления Var B : extended; begin Result:=0; B:=ABS(G); if B>0.000001 then begin if NrMode<=1 then begin //атм -> mpa Result:=X_in/B; end; if NrMode>=2 then begin //mpa -> атм Result:=X_in*B; end; end; end;

Скорость: м/час <=> м3/сут

function umfuncext_Speed_Spec_001(X_in : extended; NrMode : integer; Diam : extended = 1) : extended; //Скорость: специальные Var Sx : string; S,K : extended; begin Result:=0; Diam:=ABS(Diam); if Diam<=0.000000001 then begin Sx:='0'; if InputQuery('Конвертация','Введите диаметр (мм)',Sx) then begin Diam:=ABS(spStrToReal(Sx,0)); end; end; if Diam>0.000000001 then begin Diam:=Diam/1000; //переводим в метры if NrMode<=1 then begin //м/час -> м3/сут для заданного диаметра Diam (метры), //если поток турбулентный S:=PI*Diam*Diam/4*1.0; Result:=X_in*S/24.0; end; if NrMode=2 then begin //м3/сут -> м/час для заданного диаметра Diam (метры), //если поток турбулентный S:=PI*Diam*Diam/4*1.0; Result:=24.0*X_in/S; end; end; end;