Помощь в организа­ции СКУД на парковке

FORUM_NAME: АРМ Орион Про версии 1.20 и выше
Описание: АРМ "Орион Про" — пакет программного обеспечения для аппаратно-программного комплекса ИСО "Орион", на котором реализуются системы охранной сигнализации, контроля и управления доступом, охранного видеонаблюдения, автоматика противопожарных систем, сопряженные с инженерными системами объектов.
Справочная информация, руководства для АРМ Орион Про версии 1.20 и выше
Модератор: Модераторы

Уважаемые пользователи! В связи с отсутствием возможности оплачивать хостинг сайта и отсутствием материальной помощи от пользователей, Форум вынужден будет прекратить работу с Марта месяца 2024 года!.


Alex94 M
Автор темы
Alex94 M
Автор темы
Возраст: 30
Репутация: 0
Сообщения: 14
Зарегистрирован: 31.03.2017
С нами: 6 лет 11 месяцев
Профессия: Техник

Непрочитанное сообщение #21 Alex94 » 05.04.2017, 14:27

Пока это тема встала, протестить ее нет времени, как только будет что то известно я отпишу и скажу че куда и как)

ss-pnp
ss-pnp
Репутация: 0
Сообщения: 1
Зарегистрирован: 21.12.2018
С нами: 5 лет 3 месяца
Профессия: электромеханик

Непрочитанное сообщение #22 ss-pnp » 21.12.2018, 07:26

Oskarev писал(а):Как то решали такую задачу. Вот что получилось.
Спойлер

Код: Выделить всё

Сценарий

Переменные

Перем Считыватель1;
Перем Компьютеры1;
Перем Компьютер1;
Перем РабочиеМеста1;
Перем РабочееМесто1;
Перем ЗоныДоступа1;
Перем ЗонаДоступа1;
Перем колво;
Перем своб;

НачалоСценария

Компьютеры1 = СоздатьОбъект("Компьютеры");
Компьютер1 = Компьютеры1.ПолучитьПоИд(1);
РабочиеМеста1 = Компьютер1.РабочиеМеста();
РабочееМесто1 = РабочиеМеста1.ПолучитьПоТипуСетевогоМеста("Ядро");
ЗоныДоступа1 = СоздатьОбъект("ЗоныДоступа");
ЗонаДоступа1 = ЗоныДоступа1.ПолучитьПоИд(2);
колво = ЗонаДоступа1.КоличествоСотрудниковВЗонеДоступа();
своб = 20 - колво;
Считыватель1 = РабочееМесто1.Считыватели().ПолучитьПоИд(1);
Если колво >= 20 тогда
Считыватель1.заблокироватьдоступ();
иначе
Считыватель1.ВосстановитьДоступ();
КонецЕсли;

Сообщить(ЗонаДоступа1.Название(),0);
Сообщить(колво,0);
Сообщить("Мест на парковке:",1);
Сообщить(своб,1);

Если колво == 0 тогда
РабочееМесто1.ПоказатьСообщение( "Парковка пуста!" );
КонецЕсли;

КонецСценария
Пояснение. Машины ездят туда-сюда, БОЛИД считает кол-во машин в заданной зоне доступа, в Ядре, на вкладке Сценарии, отображается информация о количестве машин на парковке и о наличии свободных мест. Если парковка пуста, то оператору выдаётся соответствующее сообщение на экран.

Profit!


Можно заморочиться через файл переменные обновлять, но после падения софта всё равно вычитывается где и сколь народу.
Подскажите,к чему привязать этот сценарий?

google M
Активный участник
Активный участник
Аватара
google M
Активный участник
Активный участник
Возраст: 39
Репутация: 93
Сообщения: 2099
Зарегистрирован: 11.06.2015
С нами: 8 лет 9 месяцев
Профессия: Инженер
Откуда: Sml - Msk
ICQ

Непрочитанное сообщение #23 google » 21.12.2018, 09:18

ss-pnp, скорее всего к считывателю Доступ предоставлен


  • Похожие темы
    Ответы
    Просмотры
    Последнее сообщение

Вернуться в «АРМ Орион Про версии 1.20 и выше»

Кто сейчас на форуме (по активности за 5 минут)

Сейчас этот раздел просматривают: 2 гостя

forum-bolid.ru : Отказ от ответственности