目的是在一个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