WinCC Flexible 2008 怎么在报警用声音报警

目的是在一个tag=1时打开音频播放器并重复播放一段报警音.直到这个tag=0,然后停止播放.
这个我在自己的vbs编译器里已经能做到了.但是把它复制到wincc flexible 的脚本里面就不行了. 

以下code是我用complier 做测试的
============startstop.exe==============================
dim test
dim okill
dim ovmp
test = inputbox("input  ")
Set okill = createobject("wscript.shell")
Set ovmp = createobject("wscript.shell")

if test= 1 then
 ovmp.run "C:\Users\nawu\Desktop\vmp.exe"
else if test = 0 then
 okill.run "C:\Users\nawu\Desktop\kill.exe"
end if
end if


==========vmp.exe================
Dim vmp
Set vmp = CreateObject("WMPlayer.ocx")
vmp.url = "D:\sound\default.mp3"
vmp.settings.setMode "loop", True
vmp.controls.play
While vmp.playstate <>1
       WScript.Sleep 100
wend


==============kill.exe=============================
dim kill
set kill = CreateObject("wScript.shell")
kill.run  "taskkill /f /im vmp.exe /t",0

最佳答案

西门子wincc flexible 2008没有如昆仑通泰那样的“走马灯”式报警移动条,只有报警指示器,及当报警被触发时,能够显示报警的个数,不能够显示实际的报警内容,要看报警内容需要切入到报警视图进行。
具体的做法:
参考,链接:http://www.ad.siemens.com.cn/service/elearning/cn/CourseV2.aspx?CourseID=589
http://www.ad.siemens.com.cn/service/elearning/cn/CourseV2.aspx?CourseID=591
http://www.ad.siemens.com.cn/service/elearning/cn/CourseV2.aspx?CourseID=593
http://www.ad.siemens.com.cn/service/elearning/cn/CourseV2.aspx?CourseID=595
http://www.ad.siemens.com.cn/service/elearning/cn/CourseV2.aspx?CourseID=597

参见有关报警的视频讲座。
http://www.ad.siemens.com.cn/service/search/Default.aspx?kw=wincc%20flexible2008%u7684%u62A5%u8B66&searchType=16

提问者对于答案的评价:

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc310228.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2020年11月1日
下一篇 2020年11月1日

相关推荐