Использование
Чтение и запись.
Значение
Тип: Действие (Action).
Возвращает или задает код для выполнения по истечении указанного интервала таймера, если таймер запущен.
Примечание
Аргументы события
 Отправитель (Sender) |
Возвращает источник (объект) последнего события. |
| Параметр (Parameter) |
Возвращает объект, заданный при установке обработчика события, для передачи в обработчик события. |
Пример
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Полный пример кода
Перем ТФ, Таймер1, Таймер2, Таймер3, Счетчик1, Счетчик2, Счетчик3; Процедура ПриОткрытии() Экспорт // Нажмем программно Кнопка1 послав клавишу вызова ТФ.ОтправитьКлавиши("з", Ложь, Ложь, Ложь); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Таймер2.Начать(); Таймер3.Начать(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Таймер2.Остановить(); Таймер3.Остановить(); КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Счетчик1 = Счетчик1 + 1; Текст(); КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Счетчик2 = Счетчик2 + 1; Текст(); КонецПроцедуры Процедура Таймер3_ПриСрабатыванииТаймера() Экспорт Счетчик3 = Счетчик3 + 1; Текст(); КонецПроцедуры Процедура Текст() Экспорт ТФ.Верхний.Текст = "Счетчик1 = " + Счетчик1 + " Счетчик2 = " + Счетчик2 + " Счетчик3 = " + Счетчик3 + " " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Счетчик1 = 0; Счетчик2 = 0; Счетчик3 = 0; Таймер1 = ТФ.Таймер(); Таймер1.Интервал = 100; Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер2 = ТФ.Таймер(); Таймер2.Интервал = 1000; Таймер2.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер3 = ТФ.Таймер(); Таймер3.Интервал = 3000; Таймер3.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер3_ПриСрабатыванииТаймера"); Кнопка1 = ТФ.Кнопка(); Кнопка1.Текст = "Запустить таймер"; Кнопка1.Икс = ТФ.Позиция.Абсолютно(1); Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4); Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ТФ.Верхний.Добавить(Кнопка1); Кнопка2 = ТФ.Кнопка(); Кнопка2.Текст = "Остановить таймер"; Кнопка2.Игрек = Кнопка1.Игрек; Кнопка2.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); ТФ.Верхний.Добавить(Кнопка2); Кнопка2.Правее(Кнопка1, 2); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Тестовый код
Перем ТФ, Таймер1, Таймер2, Таймер3, Счетчик1, Счетчик2, Счетчик3; Процедура ПриОткрытии() Экспорт // Нажмем программно Кнопка1 послав клавишу вызова ТФ.ОтправитьКлавиши("з", Ложь, Ложь, Ложь); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Таймер2.Начать(); Таймер3.Начать(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Таймер2.Остановить(); Таймер3.Остановить(); КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Счетчик1 = Счетчик1 + 1; Текст(); КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Счетчик2 = Счетчик2 + 1; Текст(); Если Счетчик2 > 2 Тогда ТФ.Завершить(); КонецЕсли; КонецПроцедуры Процедура Таймер3_ПриСрабатыванииТаймера() Экспорт Счетчик3 = Счетчик3 + 1; Текст(); КонецПроцедуры Процедура Текст() Экспорт ТФ.Верхний.Текст = "Счетчик1 = " + Счетчик1 + " Счетчик2 = " + Счетчик2 + " Счетчик3 = " + Счетчик3 + " " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Счетчик1 = 0; Счетчик2 = 0; Счетчик3 = 0; Таймер1 = ТФ.Таймер(); Таймер1.Интервал = 100; Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер2 = ТФ.Таймер(); Таймер2.Интервал = 1000; Таймер2.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер3 = ТФ.Таймер(); Таймер3.Интервал = 3000; Таймер3.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер3_ПриСрабатыванииТаймера"); Кнопка1 = ТФ.Кнопка(); Кнопка1.Текст = "Запустить таймер"; Кнопка1.Икс = ТФ.Позиция.Абсолютно(1); Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4); Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ТФ.Верхний.Добавить(Кнопка1); Кнопка2 = ТФ.Кнопка(); Кнопка2.Текст = "Остановить таймер"; Кнопка2.Игрек = Кнопка1.Игрек; Кнопка2.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); ТФ.Верхний.Добавить(Кнопка2); Кнопка2.Правее(Кнопка1, 2); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск(); Сообщить(?( Счетчик2 > 2 , "", "!!! ") + "Таймер.ПриСрабатыванииТаймера (Timer.Tick) Событие" + " " + ТекущаяДата() + Символы.ПС);