- Обязательно представиться на русском языке кириллицей (заполнить поле "Имя").
- Фиктивные имена мы не приветствуем. Ивановых и Пупкиных здесь уже достаточно.
- Не надо писать свой вопрос в первую попавшуюся тему - всегда лучше создать новую тему.
- За поиск, предложение и обсуждение пиратского ПО и средств взлома - бан без предупреждения. Непонятно? - Читать здесь.
- Рекламу и частные объявления "куплю/продам/есть халтура" мы не размещаем ни на каких условиях.
- Перед тем как что-то написать - читать здесь, а затем здесь и здесь.
- Не надо писать в ЛС администраторам свои технические вопросы. Администраторы форума отлично знают как работает форум, а не все-все контроллеры, о которых тут пишут.
Запуск звуковых файлов, при аварии WINCC 7.0
Модератор: Глоб.модераторы
-
- здесь недавно
- Сообщения: 5
- Зарегистрирован: 28 июл 2020, 09:02
- Имя: Виталий
- Страна: Россия
- город/регион: Волгоград
- Благодарил (а): 1 раз
Запуск звуковых файлов, при аварии WINCC 7.0
Доброго времени суток уважаемые! Подскажите пожалуйста, кто нибудь пытался запускать звуковой файл (wav*) при возникновении аварийного сигнала в SCADA проекте на ПК. Задача в том, что нужно запускать разные файлы, при разных авариях, прочитал много тем, где есть скрипты запуска аудио файла, все это благополучно работает с кнопкой "Button" - Event. Возможно ли реализовать такую задачу с Siemens WinCC 7.0 или с другой версией программы. И какие есть варианты из опыта? Спасибо.
-
- освоился
- Сообщения: 222
- Зарегистрирован: 19 сен 2019, 10:09
- Имя: Макс
- Страна: Россия
- город/регион: Славянск-на-Кубани
- Благодарил (а): 5 раз
- Поблагодарили: 38 раз
Запуск звуковых файлов, при аварии WINCC 7.0
Через 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
На 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
-
- здесь недавно
- Сообщения: 5
- Зарегистрирован: 28 июл 2020, 09:02
- Имя: Виталий
- Страна: Россия
- город/регион: Волгоград
- Благодарил (а): 1 раз
Запуск звуковых файлов, при аварии WINCC 7.0
Спасибо, глобально не пришлось думать, все реализовал в Wincc Flexible 2008, через Discrete Alarms-Events-Activate-Script.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
Несколько скритов с разными короткими аудио файлами, для информативности достаточно. Минусы есть, возможно найду другое решение в дальнейшем.
Сам скрипт вдруг кому понадобиться:
Dim shell, bgsound
Set shell=CreateObject("wscript.shell")
shell.Run "C:\Sound\Sound1.mp3",0,False
На диске "С" создаем папку "Sound", в ней аудио файлы называем "Sound1" и т.д.
При появлении ошибки, воспроизводиться аудио файл до конца и замолкает.