Библиотечный модуль PhysLibrary содержит:
_con_PhysLibrary.inc константы
_var_PhysLibrary.inc переменные
_fun_PhysLibrary.inc функции
относящиеся к общей физике и метрологии.
В состав библиотеки входят модули:
PhysUnits - преобразование единиц физических измерений.
PhysVapor - физика водяного пара, влажности и т.д.
PhysRtdTc - RTD (резистивные термо датчики) и термопары.
Использование библиотеки предполагает использование следующего шаблона программы:
program Demo; { How to use PhysLibrary }
const
{------------------------------}{ Declare uses program constants: }
{$I _con_StdLibrary} { Include all Standard constants, }
{------------------------------}{ And add User defined constants: }
{$I _con_PhysLibrary} { PhysLibrary constants }
// User code - constants...
var
{------------------------------}{ Declare uses program variables: }
{$I _var_StdLibrary} { Include all Standard variables, }
{------------------------------}{ And add User defined variables: }
{$I _var_PhysLibrary} { PhysLibrary variables }
// User code - variables...
{------------------------------}{ Declare procedures & functions: }
{$I _fun_StdLibrary} { Include all Standard functions, }
{------------------------------}{ And add User defined functions: }
{$I _fun_PhysLibrary} { PhysLibrary functions }
// User code - functions...
{
Clear user application strings...
}
procedure ClearApplication;
begin
ClearPhysLibrary;
// User code - clear...
end;
{
User application Initialization...
}
procedure InitApplication;
begin
InitPhysLibrary;
// User code - init...
end;
{
User application Finalization...
}
procedure FreeApplication;
begin
FreePhysLibrary;
// User code - free...
end;
{
User application Polling...
}
procedure PollApplication;
begin
PollPhysLibrary;
// User code - poll...
end;
{
Process data coming from standard input...
}
procedure StdIn_Processor(var Data:String);
var cmd,arg:String; n:Integer;
begin
ViewImp('CON: '+Data);
{
Handle "@cmd=arg" or "@cmd arg" commands:
}
cmd:='';
arg:='';
if GotCommand(Data,cmd,arg) then begin
// User code - handle stdin...
{
Handle other commands by default handler...
}
StdIn_DefaultHandler(Data,cmd,arg);
end;
Data:='';
cmd:='';
arg:='';
end;
{***************************************************}
{***************************************************}
{*** ***}
{*** MMM MMM AAA IIII NNN NN ***}
{*** MMMM MMMM AAAA II NNNN NN ***}
{*** MM MMMM MM AA AA II NN NN NN ***}
{*** MM MM MM AA AA II NN NN NN ***}
{*** MM MM AAAAAAA II NN NNNN ***}
{*** MM MM AA AA IIII NN NNN ***}
{*** ***}
{***************************************************}
{$I _std_main}{*** Please never change this code ***}
{***************************************************}
Желаю успешного использования PhysLibrary!