Скачиваний:
5
Добавлен:
01.05.2014
Размер:
1.07 Кб
Скачать
Unit Timer;

Interface

var
TicNum1,Ticker : Longint;
Run : Boolean;

Procedure StartTimer;
Procedure StopTimer;
Procedure Wait(TicWait:Integer);
Function TimeRes:LongInt;
Function CurMom:LongInt;

Implementation



Procedure StartTimer;
begin
TicNum1 := MemL[$0040:$006C];
Run := true
end;

Procedure StopTimer;
begin
If Run then
begin
Ticker := MemL[$0040:$006C] - TicNum1;
TicNum1 := 0;
Run := false
end
end;

Function CurMom:LongInt;
begin
If Run then
CurMom := MemL[$0040:$006C] - TicNum1
end;

Function TimeRes:LongInt;
begin
TimeRes := Ticker
end;

Procedure Wait(TicWait:Integer);
var
T1:LongInt;
begin
T1 := MemL[$0040:$006C];
while MemL[$0040:$006C] < T1 + TicWait do;
end;

begin

Run := false;
TicNum1 := 0;
Ticker := 0;

end.
Соседние файлы в папке Аналитическое дифференцирование