Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Аналитическое дифференцирование / TIMER
.PAS 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.
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.
Соседние файлы в папке Аналитическое дифференцирование