Библиотека Lib_timer позволяет многократно выполнять определенную программистом процедуру с определенным временным интервалом.
(Кто знает, аналогично компоненту TTimer в Delphi.)
Библиотека содержит следующие функции:
JAVA:
public static void schedule(int delay,int interval)
public static void cancel();
PASCAL:
procedure schedule(delay,interval:integer);
Инициализация таймера.
Параметры:
delay-время, через которое должен запуститься
таймер.
interval-интервал между вызовами процедуры.
Оба параметра задаются в миллисекундах.
procedure cancel;
Остановка таймера.
Таймер запускает с указанным интервалом
процедуру on_timer, которая обязательно
должна присутствовать в главном модуле
программы:
program TimerTest;
uses timer;
var
i:integer;
procedure on_timer;//выполняемая процедура
begin
i:=i+1;
setcolor(255,255,255);
fillrect(0,0,100,20);
setcolor(0,0,0);
DrawText(''+i,0,0);
repaint;
end;
begin
schedule(1000,1000);
repeat
delay(100);
until getkeypressed=ke_key0;
cancel;
delay(2000);
end.
Для работы библиотеки необходимо добавить
файл Task.class в проект как ресурс.
Библиотека проверена на SE k510i.