Solved

Convert integer into a bitarray?

Posted on 2004-10-04
6
697 Views
Last Modified: 2008-03-10
how can i turn say integer 129 into something like 10000001 that i can then loop through and tell whether it's a 1 or 0 at any point or on/off/whatever.  I can write all my own custom stuff if need be, but i didn't know if vb had something like this already?


like

dim test as integer = 129

dim test2 as arrayofsomesort

test2 = turntobits(test)

for a = 0 to test2.count - 1

if test2(a) = 1 then
'fire something here
end if

next

get where i'm doing?  real similiar to the concept of flags in Quake2 configs where to set certain options you add numbers and together and put taht number in your config.

Thanks,
Nick



0
Comment
Question by:NickUA
6 Comments
 
LVL 8

Accepted Solution

by:
gregasm earned 168 total points
ID: 12223194
Use static methods of the BitConverter class.

byte[] myBytes = BitConverter.GetBytes(myint);

Then you can use the byte array and go deeper into bits.
0
 
LVL 6

Assisted Solution

by:mogun
mogun earned 166 total points
ID: 12224159
Hi,

You don't have to loop through the bit array to check whether a bit is set or not.. Instead you can use bit operators to evaluate whether a bit is set or not....The following is code that uses && operator and << (left shift ) operators to evaluate whether a bit is set or not..

    Public Function IsBitSet(ByVal iConfig As Integer, ByVal iBitToCheck As Integer) As Boolean
        If (iConfig And (1 << (iBitToCheck - 1))) >= 1 Then
            Return True
        Else
            Return False
        End If
    End Function


iConfig is the integer number that you want to test...
iBitToCheck is the bit position that you want to check..

Let me tell you what the expression

iConfig And (1 << (iBitToCheck - 1))

mean...
Consider iConfig = 8 and iBitToCheck = 2

first take a look at (1<<(iBitToCheck -1 ))
This will left shift 1 by (iBitToCheck-1) times...
Hence this expression becomes
(1<<(2-1))
which becomes 1<<1, which mean left shift 1 by 1..
So 1 in binary format 00000001 becomes 00000010...
left shift makes the bits to move to the left side and adds a 0 on the right hand side..

now this will be "And" ed with 8 whose binary is 00001000
Hence
00001000 And
00000010 becomes
00000000 which is integer 0 ..
so the if fails and you get the result that bit 2 of 8 is not set..

Cheers
Mohan

Note: this code is not tested for all conditions..let me know if there are bugs..


0
 
LVL 96

Assisted Solution

by:Bob Learned
Bob Learned earned 166 total points
ID: 12252795
BitVector32 class also.

Bob
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
SQL Login 17 50
Search an image for an image 3 29
SQL Help 27 43
Release Dynamically Allocated Memory in C# 3 22
It seems a simple enough task, yet I see repeated questions asking how to do it: how to pass data between two forms. In this article, I will show you the different mechanisms available for you to do just that. This article is directed towards the .N…
Recently while returning home from work my wife (another .NET developer) was murmuring something. On further poking she said that she has been assigned a task where she has to serialize and deserialize objects and she is afraid of serialization. Wha…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question