/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PABCNetHelp/Examples/Timers/Timer1.html
37 строк
1 KB
samuraiGH
adding working-tree-encoding attribute (#3325)
07 ноя 2025, 16:12
Не верифицирован
07 ноя 2025, 16:12
cf1fd29
Код
Авторство
О чём код?
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title></title> <link rel="StyleSheet" href="../../default.css"> </head> <body> <H1>Пример использования таймера</H1> Данная программа выводит 1 каждые 100 миллисекунд<span lang="en-us"> </span>в течение 3 секунд:<blockquote> <pre> <code><b>uses</b> <span lang="en-us">Timers</span>;<b> <span style="font-size: 4pt"> </span>procedure</b> <span lang="en-us">TimerProc</span>; <b>begin</b> <span lang="en-us">write(1)</span>; <b>end</b>; <b><span style="font-size: 4pt"> </span>begin </b> <span lang="en-us"><b>var</b> t := <b>new</b> Timer(100,TimerProc); t.Start; Sleep(3000); </span><b>end</b>.</code> </pre> </blockquote> <p>Вызов <code>Sleep</code><span lang="en-us"> </span>здесь обязателен, иначе программа после создания таймера сразу закончится, и обработчик таймера ни разу не сработает.</p> </body> </html>