Separating 16 bits of data into one 12 bit and one 4 bit channel

Question

I have 16 bits of binary data and i'm trying to split these into one 12 bit and one 4 bit channel. I know that I could use something like:
Dim Channel1 : Set Channel1 = Block.Channels.Add("Channel1", eI16)
Channel1.Formatter.Bitmask = 4,095 'xxxx 1111 1111 1111
but, i'm not sure how to grab those 4 bits out of the 16 bit channel1 and make channel2. It's like i almost need to say something like:
Dim Channel2 : Set Channel2 = Block.Channels.Add("Channel2", eI16)
Channel2 = Channel1.Formatter.Bitmask = 61,440 '1111 xxxx xxxx xxxx
Can anyone help out???? thanks.

Answer 1

OK...This is still straightforward. Her is what you want to do :
CurrPos = File.Position ' remember where the block starts
Set Block = File.GetBinaryBlock()
' set up all channels which can be read directly
Dim Channel1 : Set Channel1 = Block.Channels.Add("Channel1", eU16)
Dim Channel2 : Set Channel2 = Block.Channels.Add("Channel2", eByte)
Dim ChannelPH : Set ChannelPH = Block.Channels.Add("Dummy", eU16) ' just a placeholder
Dim Channel5 : Set Channel5 = Block.Channels.Add("Channel5", eU16)
Dim Channel6 : Set Channel6 = Block.Channels.Add("Channel6", eByte)
' Now we need a block which has one channel only. This channel will be used to extract the bits.
' The block needs to start where the third schannel of the above block starts :
File.Position = CurrPos + 2+1 ' 2 for the U16 channel, 1 for the byte channel
Set Block = File.GetBinaryBlock()
' Set the scan width. This defines the gaps between the values of a channel
Block.BlockWidth = 2+1+2+2+1 ' U16 + Byte + U16 + U16 + Byte
Dim Channel3 : Set Channel3 = Block.Channels.Add("Channel3", eU16)
' .. apply bitmask and scaling (see my last example)
' Do the same for the second channel
Set Block = File.GetBinaryBlock()
' Set the scan width. This defines the gaps between the values of a channel
Block.BlockWidth = 2+1+2+2+1 ' U16 + Byte + U16 + U16 + Byte
Dim Channel4 : Set Channel4 = Block.Channels.Add("Channel4", eU16)
.. apply bitmask and scaling (see my last example)
Do the same for the second channel
I hope this works as expected. Let me know if you need more help...
Andreas