Intouch/ifix语音报警系统制作(2)
在我的先前一篇关于语音报警系统制作的文章中,阐述了如何通过标签组来获得@name@的详细内容,以通过这种方式来进行详细的设备故障播报。经过一段时间的试运行,发现使用标签组的方式会产生较大的耦合,(即当标签组内容或者脚本内容发生错误时,脚本会弹出错误,妨碍了其他脚本的执行) 于是,在现场将所有的绑定标签组的报警脚本修改为直接传参到全局变量,实现解耦。 1.后台调度修改: Private Sub FixEvent2_WhileTrue() ’将全局变量PicNumBer赋值为所需要报警的设备名称 Dim workspace As Object Set workspace = GetObject("", "Workspace.Application") Dim tagvar As Object Set tagvar = workspace.Documents("User").Page.FindObject("PicNumBer") tagvar.Description = "二期粗格栅2号污水泵" Dim TOP As Integer Dim LEFT As Integer TOP = Int((50 * Rnd) + 1) LEFT = Int((50 * Rnd) + 1) Dim conODBC As ADODB.Connection Dim StrD As String Dim