Lib_timer: выполнение процедуры по таймеру

[ViNT]

Библиотека 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.

[Romanzes]

То что надо! Рульная вещь.

[Smarik]

И как ето чудо человеческой мысли работает? Не получилось запустить даже пример автора.

[ViNT]

В чем именно проблема? Ошибка при компиляции, или при выполнении программы? Еще раз все проверил - все работает.

[Smarik]

Ошибка при компиляции
Скриншот для полного понимания
http://sderni.ru/6674
У меня официальная версия 2.02

[ViNT]

Скорее всего, нужно скопировать файл Lib_timer.class из папки bin архива в папку Libs MP.

[Piligrim]

Небольшое расширение библиотеки. Любое количество таймеров. Просто самому понадобилось

[beZ_probleM]

2 pilgrim
у меня шото не компилится твой пример оО

[ViNT]

Сообщение от beZ_probleM

2 pilgrim
у меня шото не компилится твой пример оО

Создай в папке проекта папку bin и все должно заработать.

P.S. Шанс быстро получить точный ответ на вопрос выше, если указать, какая ошибка происходит, чем если просто сказать "у меня не компилится".

[Richik]

Здорово)),
Но иногда нужно остановить таймер. Как это сделать?
off_timers?

Я так понимаю что эта библиотека обеспечивает возможность создания "Многопоточности" в мидлете, программа работает сама по себе, а процедура в таймере сама?

[beisik]

По-моему никакой многопоточности нет ;|

[ViNT]

О многопочточности здесь, в общем-то речь не идет (хотя выполнение процедуры не прерывает основной поток), многопоточность, такая, какая она есть в java, реализована в Lib_thread.

Остановка производится вызовом процедуры cancel.

[Richik]

Спасибо за наводку на Lib_thread

[Vovochka]

To Piligrim
Я так понял в юните Timers не реализонана функция CANCEL.

А как же все таки остановить выбранный таймер???

[deathbel]

Присоединяюсь к вопросу о том как стопнуть ненужный более таймер?