Bit Level Logic Example

[Ron L.]

Code: Select all

init commobj := modbuscomm
init parent := default
init register := 1
init vartype := mb_uint16

'example code in MBVirtualRegisterV2
func ValueChanged()
    dim u as unibyte

    u := intvalue

    if (u and unibyte(0x01)) <> 0 then

    else

    endif
    if (u and unibyte(0x02)) <> 0 then

    else

    endif
    '...
    if (u and unibyte(0x80)) <> 0 then

    else

    endif
endfunc