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