1. Обязательно представиться на русском языке кириллицей (заполнить поле "Имя").
  2. Фиктивные имена мы не приветствуем. Ивановых и Пупкиных здесь уже достаточно.
  3. Не надо писать свой вопрос в первую попавшуюся тему - всегда лучше создать новую тему.
  4. За поиск, предложение и обсуждение пиратского ПО и средств взлома - бан без предупреждения. Непонятно? - Читать здесь.
  5. Рекламу и частные объявления "куплю/продам/есть халтура" мы не размещаем ни на каких условиях.
  6. Перед тем как что-то написать - читать здесь, а затем здесь и здесь.
  7. Не надо писать в ЛС администраторам свои технические вопросы. Администраторы форума отлично знают как работает форум, а не все-все контроллеры, о которых тут пишут.

Запуск звуковых файлов, при аварии WINCC 7.0

Модератор: Глоб.модераторы

Ответить

Автор темы
VitalyVolma
здесь недавно
здесь недавно
Сообщения: 5
Зарегистрирован: 28 июл 2020, 09:02
Имя: Виталий
Страна: Россия
город/регион: Волгоград
Благодарил (а): 1 раз

Запуск звуковых файлов, при аварии WINCC 7.0

Сообщение VitalyVolma »

Доброго времени суток уважаемые! Подскажите пожалуйста, кто нибудь пытался запускать звуковой файл (wav*) при возникновении аварийного сигнала в SCADA проекте на ПК. Задача в том, что нужно запускать разные файлы, при разных авариях, прочитал много тем, где есть скрипты запуска аудио файла, все это благополучно работает с кнопкой "Button" - Event. Возможно ли реализовать такую задачу с Siemens WinCC 7.0 или с другой версией программы. И какие есть варианты из опыта? Спасибо.

makesstr
освоился
освоился
Сообщения: 222
Зарегистрирован: 19 сен 2019, 10:09
Имя: Макс
Страна: Россия
город/регион: Славянск-на-Кубани
Благодарил (а): 5 раз
Поблагодарили: 38 раз

Запуск звуковых файлов, при аварии WINCC 7.0

Сообщение makesstr »

Через Horn или глобальные скрипты

На VBS
Dim shell,bgsound
Set shell=CreateObject("wscript.shell")
Dim warning
Set warning=HMIRuntime.Tags("Warning")
Dim warning_pumps
Set warning_pumps=HMIRuntime.Tags("Warning_pumps")

If warning.Read = 1 or warning_pumps.Read = 1 Then
shell.Run "D:\project\Pakr_45_50_tia\Horn.wav",0,False
End If
WinCC 7.4 SP1 Upd15, Step5.6

Автор темы
VitalyVolma
здесь недавно
здесь недавно
Сообщения: 5
Зарегистрирован: 28 июл 2020, 09:02
Имя: Виталий
Страна: Россия
город/регион: Волгоград
Благодарил (а): 1 раз

Запуск звуковых файлов, при аварии WINCC 7.0

Сообщение VitalyVolma »

makesstr писал(а): 28 июл 2020, 13:01 Через Horn или глобальные скрипты

На VBS
Dim shell,bgsound
Set shell=CreateObject("wscript.shell")
Dim warning
Set warning=HMIRuntime.Tags("Warning")
Dim warning_pumps
Set warning_pumps=HMIRuntime.Tags("Warning_pumps")

If warning.Read = 1 or warning_pumps.Read = 1 Then
shell.Run "D:\project\Pakr_45_50_tia\Horn.wav",0,False
End If
Спасибо, глобально не пришлось думать, все реализовал в Wincc Flexible 2008, через Discrete Alarms-Events-Activate-Script.
Несколько скритов с разными короткими аудио файлами, для информативности достаточно. Минусы есть, возможно найду другое решение в дальнейшем.
Сам скрипт вдруг кому понадобиться:
Dim shell, bgsound
Set shell=CreateObject("wscript.shell")
shell.Run "C:\Sound\Sound1.mp3",0,False

На диске "С" создаем папку "Sound", в ней аудио файлы называем "Sound1" и т.д.
При появлении ошибки, воспроизводиться аудио файл до конца и замолкает.
Ответить

Вернуться в «WinCC»