发布于 2010-07-29 23:02:59
5楼
各位坛友,作为新手初来咋到,有很多问题不懂,需要各位朋友指教,请帮我看下下面这个程序何错之有啊?连最起码的语法都没通过哦
Dim tag1
Dim tag2
Dim tag3
Dim P_alarm=0
tag1=SmartTags("外部变量\系统报警\P1异常报警") And 0000000001100000
tag2=SmartTags("外部变量\系统报警\P2异常报警") And 0000000001100000
tag3=SmartTags("外部变量\系统报警\P3异常报警") And 0000000001100000
If tag1 Then
P_alarm=P_alarm+1
End If
If tag2 Then
P_alarm=P_alarm+1
End If
If tag3 Then
P_alarm=P_alarm+1
End If
SmartTags("内部变量\系统报警\T报警")=P_alarm
说明:
我这个程序是想实现这个功能,程序中有P1异常报警、P2异常报警、P3异常报警,想要把这三种报警的报警次数累加起来。
备注:
tag1=SmartTags("外部变量\系统报警\P1异常报警") And 0000000001100000
因为三种报警变量数据类型都是word,只有当报警中的第5位与第6位触发时才报警,所以我在这里作了个“and"运算,不知这不是这有问题,
打击可以毁掉庸人,但可以让强者百炼成钢