Function Bit_Set(TagName, n)'置位字中位

    Dim Value

    Value = HMIRuntime.Tags(TagName).Read

    Value=Value Or 2^n

    HMIRuntime.Tags(TagName).Write Value

End Function

'-------------------------------------------------------

Function Bit_Reset(TagName, n)'复位字中位

    Dim Value

    Value = HMIRuntime.Tags(TagName).Read

    Value=Value And Not( 2^n)

    HMIRuntime.Tags(TagName).Write Value

End Function 

'-------------------------------------------------------

刚好最近用到