converting a 16 bit Boolean array to a integer

Question

I have found out how to do the opposite of converting a integer to a 16 bit Boolean array by this.

 Dim ND1_Array As New System.Collections.BitArray(System.BitConverter.GetBytes(Data(2)))

I have tried this

Dim barray(15) As Boolean : barray(0) = True : barray(2) = True : barray(4) = True
    Dim bittoint As Integer
    bittoint = Convert.ToInt32(barray(0), 0)

This code throws an error so ? I have looked all over the net but can't find how to do this.

bittoint = BitConverter.ToInt32(barray(0), 0)

This has an error as well Error 1 Value of type 'Boolean' cannot be converted to '1-dimensional array of Byte'. C:\PLC\TCPClientClean\TCPClientClean\ChatClient.vb 201 41 TCPClientClean

This is what I came up with. Not sure what is the better method? I just saw the new updated code that was provided.

Dim BoolStg As String
    Dim BoolArra1DexBit As Boolean
    Dim BitArray1ToInt16 As Integer
    For BarryDex = 0 To 15
        BoolArra1DexBit = BoolAray1(BarryDex)
        If BoolArra1DexBit = True Then
            BoolStg = "1" & BoolStg
        Else : BoolStg = "0" & BoolStg
        End If
    Next
    BitArray1ToInt16 = Convert.ToInt16(BoolStg, 2)

Invalid base and this in the immediate window A first chance exception of type 'System.ArgumentException' occurred in mscorlib.dll — ms_ssccControls
– ms_ssccControls, Commented Feb 8, 2015 at 20:20
you feed toint32 with a boolean, there is no second parameter here. — OlimilOops
– OlimilOops, Commented Feb 8, 2015 at 20:20

OlimilOops · Accepted Answer · 2015-02-08 20:44:48Z

1

little example

    Dim myFlags As Integer = &H11
    MsgBox(Convert.ToString(myFlags, 2))

    Dim ND1_Array As New System.Collections.BitArray(System.BitConverter.GetBytes(myFlags))

    Dim myFlags_tmparray(0) As Integer
    ND1_Array.CopyTo(myFlags_tmparray, 0)

    MsgBox(Convert.ToString(myFlags_tmparray(0), 2))

answered Feb 8, 2015 at 20:44

OlimilOops

6,8176 gold badges28 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Idle_Mind · Accepted Answer · 2015-02-10 04:09:54Z

0

Here's an extension method that will return the integer equivalent as little endian or big endian, and allows you to toggle TwosComplement as well:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim barray(15) As Boolean : barray(0) = True : barray(2) = True : barray(4) = True

        Dim BigEndianInteger As Integer = barray.ToInteger(False)
        Dim LittleEndianInteger As Integer = barray.ToInteger() ' <-- default is Little Endian with TwosComplement turned On

        Debug.Print("BigEndianInteger = " & BigEndianInteger)
        Debug.Print("LittleEndianInteger = " & LittleEndianInteger)
    End Sub

End Class

Public Module Extensions

    <Runtime.CompilerServices.Extension()> _
    Public Function ToInteger(ByVal BooleanArray() As Boolean, Optional ByVal LittleEndian As Boolean = True, Optional ByVal TwosComplement As Boolean = True) As Integer
        If BooleanArray.Length <= 32 Then
            Dim sum As Integer
            Dim values As New List(Of Boolean)(BooleanArray)
            If Not LittleEndian Then
                values.Reverse()
            End If
            For i As Integer = 0 To values.Count - 1
                If values(i) Then
                    If i < (values.Count - 1) Then
                        sum = sum + Math.Pow(2, i)
                    ElseIf TwosComplement Then
                        sum = sum - Math.Pow(2, i)
                    Else
                        sum = sum + Math.Pow(2, i)
                    End If
                End If
            Next
            Return sum
        Else
            Throw New Exception("Boolean array length must be less than or equal to 32.")
        End If
    End Function

End Module

edited Feb 10, 2015 at 4:09

answered Feb 8, 2015 at 22:49

Idle_Mind

39.3k3 gold badges31 silver badges40 bronze badges

8 Comments

ms_ssccControls Over a year ago

It was Little endian and your code worked very well !! Thanks

ms_ssccControls Over a year ago

This code that you provided @Idle_Mind works well except for when bit 15 of the array is true. For example Barray1 = 100000000000000

ms_ssccControls Over a year ago

This code that you provided @Idle_Mind works well except for when bit 15 of the array is true. For example Barray1 = 1000000000000000 LittleEndian = 32768 ? It should be -32768 Barray1 = 1111111111111111 LittleEndian = 65535 ? It should be -1 by any binary to int conversion?

Idle_Mind Over a year ago

Ah...you never specified signed or unsigned. What signed number representation are you using here?

ms_ssccControls Over a year ago

I am only about 6 months into learning vb. I normal write code for PLC's Programmable Logic Controllers. When those controllers convert it is just has a drop down list that will change from 16 bit binary, octal, decimal, Hex/BCD, ASCII. To me it is just a standard conversion that I am used to.. I just use a binary to integer calculator to find a conversion. I hope that is enough information to explain witch singed number representation.. I just need the conversion like a standard binary calculator would convert to integer/ decimal value. Hope this helps. Thx

|

Collectives™ on Stack Overflow

converting a 16 bit Boolean array to a integer

2 Answers 2

Comments

8 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

8 Comments

Your Answer

Sign up or log in

Post as a guest

Related