当前位置：工控论坛 > > 产品

WIN7SE7.0用VBA做声音报警 点击：489 | 回复：1



wlxing

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：3帖 | 6回
  • 年度积分：0
  • 历史总积分：87
  • 注册：2015年9月29日
发表于：2019-04-16 17:15:45
楼主

写入如下代码

Private Sub B1_Change()

If B1.Value = 1 Then

 ExecuteCommand "PlayWave D:\CJ.wav"

 End If

End Sub

注意：

当SE里的TAG（B1）值为1时，会播放声音指定的声音文件，但只会播放一声，需要在下位修改触发条件为“2S触发一次，例如水泥磨故障跳停后信号没有复位，就不停的触发”


正在下载，请等待……
下载附件需0积分！

分享到：
收藏 邀请回答 回复楼主 举报


楼主最近还看过



crccrh2

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 17回
  • 年度积分：0
  • 历史总积分：33
  • 注册：2011年5月14日
发表于：2021-07-26 23:02:13
1楼

谢谢楼主学习中

回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师