IFIX中警区域及查询设.docVIP

IFIX2.6中报警区域及报警查询的设置和编程 系统例子是一锅炉的监控系统： 系统情况：五个锅炉站分散于最远距离在几公里的范围 监控系统配置：五个站由OMRON PLC(CQM1H-CPU21)采集现场的开关量报警信号；通过MOXA的NPORT以太网模块―――（光纤收发器―――光纤―――光纤收发器―――）交换机，送到上位监控作相应处理 配置： 311＃　　COM3　D11 67＃ COM4 D21 82#　 COM5 D31 227# COM6 D41 9# COM7 D51 系统配置 数据库中，在建立的报警采集数据中加入域名，可以是文字表示：在变量的报警扩展域的报警域1中添加； 在系统配置中SCU-FIX： 启用 Alarm Summary Service。使用公用区域用于所有服务； 启用 Alarm file Service。(用于报警总览和查询表格) 报警区域：A~E 格式：日期=8 时间=16 报警扩展1=15 描述=50 数值=8 消息长度=132 (表格顺序) 高级设置：公共格式：日期=8 时间=10 节点=10 标签名=30 报警类型=9 数值=13 单位=4 描述=39 消息长度=132 操作员消息：A~E 列队设置：报警一览列队：500 文件列队：300 历史列队：100 在报警查询中运用“报警总览”控件的各属性，由VBA编辑脚本实现所要求的功能 功能 报警声的屏蔽与取消控制 按键：按一下屏蔽报警音响；再按一下，恢复报警音响 按键外观特性：Fix32.FIX.sound_stop.F_CV的真/伪： =1 屏蔽报警音响 =0 支持报警音响 (同时闪烁) 脚本编辑：Toggledigitalpoint Fix32.FIX.sound_stop.F_CV 报警音乐由WIN中选择COPY到：\Dynamics\ringin.wav 报警确认 全部报警确认：按键脚本： AlarmSummaryOCX2.AckAllAlarms 选择报警确认：按键脚本： Dim sNode As String, sTag As String, boolTagSelected As Boolean boolTagSelected = AlarmSummaryOCX2.GetSelectedNodeTag(sNode, sTag) If boolTagSelected Then AlarmSummaryOCX2.AckAlarm sNode, stag 未确认的分域(C)报警数：DATALINK动态特性： 属性名CAPTION 的数据源：Fix32.FIX.CALARM_SUM.F_CV SIM Simulation Driver C:C:UNACK 报警音响的再次触发：报警确认后，如果报警仍存在，则数秒后报警声将再次触发；如果又出现报警，则系统自动支持音响 Dim TTT1 As Long Dim j1 As Integer Private Sub FixTimer3_OnTimeOut(ByVal lTimerId As Long) If Fix32.Fix.alarm_sum 0 Then ‘只要有报警出现 If Fix32.Fix.sound_stop.F_CV = 1 Then TTT1 = mciExecute(play + D:\Dynamics\ringin.wav) End If If Fix32.Fix.picture_stop.F_CV = 1 Then openpicture f4 打开报警总览画面。 End If j1 = j1 + 1 If j1 50 Then 确认报警仍未消除后数秒。 j1 = 0 Fix32.Fix.picture_stop.F_CV = 1 End If Else Fix32.Fix.sound_stop.F_CV = 1 Fix32.Fix.picture_stop.F_CV = 1 End If End Sub 报警查询 查询时期：创建日期的选择，插入OLE对象：年=txtyear，月= txtmonth， 日=txtday以及相关的选择按钮spbyear ；spbmonth；spbday 编辑角本： Private Sub spbyear_Change() txtyear.Value = spbyear.Value 年 End Sub Private Sub spbmonth_Change() tx