Function SetzeBitWennTrue(Tag1, Tag2, RetTag, mask)
Dim objTag1
Dim objTag2
Dim objRet
Set objTag1 = HMIRuntime.Tags(Tag1)
Set objTag2 = HMIRuntime.Tags(Tag2)
objTag1.Read
objTag2.Read
If objtag2.Value > 2^31 Then
objTag2.Value = objTag2.Value - 2^31
End If
If (objTag1.Value = 1) And ((objtag2.Value And mask) <> 0) Then
Set objRet = HMIRuntime.Tags(RetTag)
objRet.Value = True
objRet.Write
Else
Set objRet = HMIRuntime.Tags(RetTag)
objRet.Value = False
objRet.Write
End If
End Function