Код: Выделить всё
Сценарий
Переменные
Перем Считыватель2;
Перем Компьютеры2;
Перем Компьютер2;
Перем РабочиеМеста2;
Перем РабочееМесто2;
Перем Считыватель1;
Перем Компьютеры1;
Перем Компьютер1;
Перем РабочиеМеста1;
Перем РабочееМесто1;
НачалоСценария
Попытка
Компьютеры1 = СоздатьОбъект( "Компьютеры" );
Компьютер1 = Компьютеры1.ПолучитьПоИд(1);
РабочиеМеста1 = Компьютер1.РабочиеМеста();
РабочееМесто1 = РабочиеМеста1.ПолучитьПоТипуСетевогоМеста("Ядро");
Если не ПустоеЗначение( РабочееМесто1.Считыватели() ) Тогда
Считыватель1 = РабочееМесто1.Считыватели().ПолучитьПоИД( 1 );
Если не ПустоеЗначение( Считыватель1 ) Тогда
Считыватель1.ЗаблокироватьДоступ();
иначе Сообщить( "Считыватель не найден", 1 );
КонецЕсли;
КонецЕсли;
Исключение Сообщить("Произошло исключение ",0); КонецПопытки;
Задержка( 2000 );
Попытка
Компьютеры2 = СоздатьОбъект( "Компьютеры" );
Компьютер2 = Компьютеры2.ПолучитьПоИд(1);
РабочиеМеста2 = Компьютер2.РабочиеМеста();
РабочееМесто2 = РабочиеМеста2.ПолучитьПоТипуСетевогоМеста("Ядро");
Если не ПустоеЗначение( РабочееМесто2.Считыватели() ) Тогда
Считыватель2 = РабочееМесто2.Считыватели().ПолучитьПоИД( 1 );
Если не ПустоеЗначение( Считыватель2 ) Тогда
Считыватель2.ВосстановитьДоступ();
иначе Сообщить( "Считыватель не найден", 1 );
КонецЕсли;
КонецЕсли;
Исключение Сообщить("Произошло исключение",0); КонецПопытки;
КонецСценария
Считыватель к С2000-2 подключается к информационным входам D0 (и D1). На эти входы со считывателя передаётся код карты. возможно рядом с контроллером у вас есть другие приборы, у которых есть не задействованное реле (если нет, можно дополнительно поставить СП1). Через это реле и подключить считыватель к D0 контроллера. Соответственно сделать так, чтобы каждый раз при проходе чела через турникет, это самое реле размыкало свои контакты на 2-3 секунды, тем самым код карты никаким образом не сможет уйти в С2000-2, соответственно турникет в это время не будет открыт.BBL писал(а):первую часть я не понял совсем
Увы, какого-то краткого руководства по сценариям нет, есть только описание языка. Устанавливается вместе с Орионом. Ищите в пуске в документации. Если раньше не имели дела с программированием, то, возможно, тяжеловато будет понять с первого раза.BBL писал(а):краткого руководства по написанию сценариев бы какого-нибудь хотелось.
Сейчас этот раздел просматривают: 3 гостя