IFIX语音报警_启动ifix调度资源-CSDN文库

5星 · 超过95%的资源需积分: 50 98 浏览量 2014-08-29 16:28:36 上传评论收藏 64KB DOC 举报

资源推荐

资源详情

资源评论

iFix 的默认报警音响是通过主板发声的。如果要转到音箱，需要写 VBA 脚

本。

这个是去年来北京之后帮前同事做的方案。



首先，新建一个基于事件项的调度。

触发信息里数据源使用 Fix32.THISNODE.ALARMCOUNTERS.F_CV > 0。

这里 ALARMCOUNTERS 是 iFix 当前报警数量。

事件类型选择“为真时”。



编辑脚本：

Private Declare Function sndPlaySound& Lib "winmm.dll" Alias

"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) 4‘声明

API 调用

Const SND_ASYNC = &H1 44‘SND_ASYNC 作为函数的参数，表示循环播放

4

Private Sub FixEvent1_OnTrue()44 ‘事件为真时

Dim X%

Dim Pausetime, Start

aa: If Fix32.Fix.ALARMCOUNTERS.F_CV > 0 Then ‘当报警数大于零，即有

未确认报警

X% = sndPlaySound("c:aa.wav", &H1) ‘调用 sndPlaySound 函数播放硬盘上

的 wav 文件

Else

GoTo BB

End If

4444444 Pausetime = 5444 ‘循环延时，视所播放声音文件长度调整

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余2页未读，立即下载

内容反馈

hotwanhaha

2016-10-21

东西有点老了，看看吧

showwg

粉丝: 0
资源: 9

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip