Option Explicit Function action 

Dim Tag 

Dim B 

Dim C 

Dim D 

Set Tag = HMIRuntime.Tags("MD0") 

Set B = HMIRuntime.Tags("B") 

Set C = HMIRuntime.Tags("C") 

Set D = HMIRuntime.Tags("A") 

D.Read 

B.Read 

C.Read 

Tag.Read 

If D.value= 1 Or B.value = 1 Or C.value = 1 And Tag.value <5 Then 

HMIRuntime.Tags("报警") .Write 1

 Else 

HMIRuntime.Tags("报警") .Write 0

End If 

End Functi