RSVIEW32监控报警时如何播放音频文件 点击：3604 | 回复：18
发表于：2008-03-18 16:25:00
10楼
解决RSview32报警问题
琢磨半天终于有点结果，现给大家看看，能实现RSview32的重复的不同声音的报警。
基本满足了应用的要求。
首先说定义标记。
一个报警要求有三个标记。1一个是监控量的，2一个是警报确认位的，3最后一个是警报握手位的。
其中2确认和3握手位均需要开关量。
在监控量设置警报，主要设置握手和确认位。分别把剩下的两个变量连接进去。如：
1为监控量
2为报警确认
3为握手
标记就可以了（具体项目中根据标记该相应名称）
下面编VB脚本
具体如下
Sub yyy()定义名称
Dim b1 As Tag定义变量B1
Dim b2 As Tag定义变量B2
Set b1 = gTagDb.GetTag("3")把3的标记赋值到B1（握手位）
Set b2 = gTagDb.GetTag("2")把2的标记赋值到B2（确认位）
If (b1 = 1) And (b2 = 0) Then握手位和报警同时置1.确认为为0时，发出警报。条件不满足时不发出声音
gCommand.Execute "playwave " & "123.wav"报警声音
Else
End If
End Sub
保存到VB脚本理
接下来是设置事件：
新建一个事件
操作中填写VBaExec ***(你保存的VB文件名)
表达式填写系统变量system\BlinkFast（每隔100毫秒改变）
然后设置的内容就完成了
画面部分就是一个报警单和一个开关
×××说明一点，握手位是需要开启的，我还不知道怎么让系统自动运行，担可以做个键，让它运行开启握手位。HandshakeOn是开启命令。
其实我这个程序的目的就是让事件触发器每100毫秒查看事件，一但满足条件就发声。不用系统自带的声音报警。文字可能不能表达清楚，请见谅
以上就是过程，我可能没有表达清楚，担确实是可以实现的。我也是新学者，在学习中也很无助。所以我希望大家互相帮助一下。一句话就可以让大家少走弯路。如果大家还不明白就联系我。我愿意和大家共同探讨一起进步！！谢谢！！
雨！！QQ744616253
琢磨半天终于有点结果，现给大家看看，能实现RSview32的重复的不同声音的报警。
基本满足了应用的要求。
首先说定义标记。
一个报警要求有三个标记。1一个是监控量的，2一个是警报确认位的，3最后一个是警报握手位的。
其中2确认和3握手位均需要开关量。
在监控量设置警报，主要设置握手和确认位。分别把剩下的两个变量连接进去。如：
1为监控量
2为报警确认
3为握手
标记就可以了（具体项目中根据标记该相应名称）
下面编VB脚本
具体如下
Sub yyy()定义名称
Dim b1 As Tag定义变量B1
Dim b2 As Tag定义变量B2
Set b1 = gTagDb.GetTag("3")把3的标记赋值到B1（握手位）
Set b2 = gTagDb.GetTag("2")把2的标记赋值到B2（确认位）
If (b1 = 1) And (b2 = 0) Then握手位和报警同时置1.确认为为0时，发出警报。条件不满足时不发出声音
gCommand.Execute "playwave " & "123.wav"报警声音
Else
End If
End Sub
保存到VB脚本理
接下来是设置事件：
新建一个事件
操作中填写VBaExec ***(你保存的VB文件名)
表达式填写系统变量system\BlinkFast（每隔100毫秒改变）
然后设置的内容就完成了
画面部分就是一个报警单和一个开关
×××说明一点，握手位是需要开启的，我还不知道怎么让系统自动运行，担可以做个键，让它运行开启握手位。HandshakeOn是开启命令。
其实我这个程序的目的就是让事件触发器每100毫秒查看事件，一但满足条件就发声。不用系统自带的声音报警。文字可能不能表达清楚，请见谅
以上就是过程，我可能没有表达清楚，担确实是可以实现的。我也是新学者，在学习中也很无助。所以我希望大家互相帮助一下。一句话就可以让大家少走弯路。如果大家还不明白就联系我。我愿意和大家共同探讨一起进步！！谢谢！！
雨！！QQ744616253
发表于：2008-03-18 16:29:00
11楼
解决RSview32报警问题
琢磨半天终于有点结果，现给大家看看，能实现RSview32的重复的不同声音的报警。
基本满足了应用的要求。
首先说定义标记。
一个报警要求有三个标记。1一个是监控量的，2一个是警报确认位的，3最后一个是警报握手位的。
其中2确认和3握手位均需要开关量。
在监控量设置警报，主要设置握手和确认位。分别把剩下的两个变量连接进去。如：
1为监控量
2为报警确认
3为握手
标记就可以了（具体项目中根据标记该相应名称）
下面编VB脚本
具体如下
Sub yyy()定义名称
Dim b1 As Tag定义变量B1
Dim b2 As Tag定义变量B2
Set b1 = gTagDb.GetTag("3")把3的标记赋值到B1（握手位）
Set b2 = gTagDb.GetTag("2")把2的标记赋值到B2（确认位）
If (b1 = 1) And (b2 = 0) Then握手位和报警同时置1.确认为为0时，发出警报。条件不满足时不发出声音
gCommand.Execute "playwave " & "123.wav"报警声音
Else
End If
End Sub
保存到VB脚本理
接下来是设置事件：
新建一个事件
操作中填写VBaExec ***(你保存的VB文件名)
表达式填写系统变量system\BlinkFast（每隔100毫秒改变）
然后设置的内容就完成了
画面部分就是一个报警单和一个开关
×××说明一点，握手位是需要开启的，我还不知道怎么让系统自动运行，担可以做个键，让它运行开启握手位。HandshakeOn是开启命令。
其实我这个程序的目的就是让事件触发器每100毫秒查看事件，一但满足条件就发声。不用系统自带的声音报警。文字可能不能表达清楚，请见谅
以上就是过程，我可能没有表达清楚，担确实是可以实现的。我也是新学者，在学习中也很无助。所以我希望大家互相帮助一下。一句话就可以让大家少走弯路。如果大家还不明白就联系我。我愿意和大家共同探讨一起进步！！谢谢！！
雨！！QQ744616253
琢磨半天终于有点结果，现给大家看看，能实现RSview32的重复的不同声音的报警。
基本满足了应用的要求。
首先说定义标记。
一个报警要求有三个标记。1一个是监控量的，2一个是警报确认位的，3最后一个是警报握手位的。
其中2确认和3握手位均需要开关量。
在监控量设置警报，主要设置握手和确认位。分别把剩下的两个变量连接进去。如：
1为监控量
2为报警确认
3为握手
标记就可以了（具体项目中根据标记该相应名称）
下面编VB脚本
具体如下
Sub yyy()定义名称
Dim b1 As Tag定义变量B1
Dim b2 As Tag定义变量B2
Set b1 = gTagDb.GetTag("3")把3的标记赋值到B1（握手位）
Set b2 = gTagDb.GetTag("2")把2的标记赋值到B2（确认位）
If (b1 = 1) And (b2 = 0) Then握手位和报警同时置1.确认为为0时，发出警报。条件不满足时不发出声音
gCommand.Execute "playwave " & "123.wav"报警声音
Else
End If
End Sub
保存到VB脚本理
接下来是设置事件：
新建一个事件
操作中填写VBaExec ***(你保存的VB文件名)
表达式填写系统变量system\BlinkFast（每隔100毫秒改变）
然后设置的内容就完成了
画面部分就是一个报警单和一个开关
×××说明一点，握手位是需要开启的，我还不知道怎么让系统自动运行，担可以做个键，让它运行开启握手位。HandshakeOn是开启命令。
其实我这个程序的目的就是让事件触发器每100毫秒查看事件，一但满足条件就发声。不用系统自带的声音报警。文字可能不能表达清楚，请见谅
以上就是过程，我可能没有表达清楚，担确实是可以实现的。我也是新学者，在学习中也很无助。所以我希望大家互相帮助一下。一句话就可以让大家少走弯路。如果大家还不明白就联系我。我愿意和大家共同探讨一起进步！！谢谢！！
雨！！QQ744616253
热门招聘
相关主题
- VB实现modbus通信
[4052] - 请大家发表一下关于主流国产...[2281]
- 》》图库是组态王10倍的大众组...[3107]
- 可编程控制器培训资料[2280]
- PID控制器与调节器有什么区别...[3617]
- 数控营销的小醋坛子[3155]
- 组态王总是显示“调色板组件错...[3869]
- Eplanelectric与Solidworkse...[5491]
- 西门子精智系列触摸屏如何设...[3030]
- 画电气原理图用什么软件好用...[16929]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
