АргументыСобытия.БылоСекунд (EventArgs.OldSeconds) Свойство

Копировать

Перем ТФ, ПолеВремени1, Таймер1, АргументыСобытия;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Измените значения часов, минут, секунд";
	ПолеВремени1.ПозицияКурсора = 2;
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеВремени1_ВремяИзменено() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат времени = " + АргументыСобытия.ФорматВремени + "
	|Было часов = " + АргументыСобытия.БылоЧасов + "
	|Стало часов = " + АргументыСобытия.СталоЧасов + "
	|Было минут = " + АргументыСобытия.БылоМинут + "
	|Стало минут = " + АргументыСобытия.СталоМинут + "
	|Было секунд = " + АргументыСобытия.БылоСекунд + "
	|Стало секунд = " + АргументыСобытия.СталоСекунд + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Часы = ПолеВремени1.Часы;
	Если Часы > 13 Тогда
		ТФ.ОтправитьКлавиши("3", Ложь, Ложь, Ложь);
	ИначеЕсли Часы < 14 Тогда
		ТФ.ОтправитьКлавиши("5", Ложь, Ложь, Ложь);
	КонецЕсли;
	ПолеВремени1.ПозицияКурсора = 2;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПолеВремени1 = ТФ.Верхний.Добавить(ТФ.ПолеВремени(ТекущаяДата(), , 5));
ПолеВремени1.ВремяИзменено = ТФ.Действие(ЭтотОбъект, "ПолеВремени1_ВремяИзменено");

Таймер1 = ТФ.Таймер(1000);
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, ПолеВремени1, Таймер1, Часы;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Измените значения часов, минут, секунд";
	ПолеВремени1.ПозицияКурсора = 2;
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеВремени1_ВремяИзменено() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат времени = " + АргументыСобытия.ФорматВремени + "
	|Было часов = " + АргументыСобытия.БылоЧасов + "
	|Стало часов = " + АргументыСобытия.СталоЧасов + "
	|Было минут = " + АргументыСобытия.БылоМинут + "
	|Стало минут = " + АргументыСобытия.СталоМинут + "
	|Было секунд = " + АргументыСобытия.БылоСекунд + "
	|Стало секунд = " + АргументыСобытия.СталоСекунд + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Часы = ПолеВремени1.Часы;
	Если Часы > 13 Тогда
		ТФ.ОтправитьКлавиши("3", Ложь, Ложь, Ложь);
	ИначеЕсли Часы < 14 Тогда
		ТФ.ОтправитьКлавиши("5", Ложь, Ложь, Ложь);
	КонецЕсли;
	ПолеВремени1.ПозицияКурсора = 2;
	ТФ.Завершить();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПолеВремени1 = ТФ.Верхний.Добавить(ТФ.ПолеВремени(ТекущаяДата(), , 5));
ПолеВремени1.ВремяИзменено = ТФ.Действие(ЭтотОбъект, "ПолеВремени1_ВремяИзменено");

Таймер1 = ТФ.Таймер(1000);
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.Запуск();

Сообщить(?(
Часы >= 0
, "", "!!! ") + "АргументыСобытия.БылоСекунд (EventArgs.OldSeconds) Свойство" + " " + ТекущаяДата() + Символы.ПС);