Help with using bits in an integer

[Harry Strybos]

Hi All

I have a form with about 20 check boxes and I want to persist their state to
a single integer. That is to say, I want to set their Checked property to a
particular bit value contained in an integer (32 possible values)
The following methods (translated from VB6) should help with this?:
Public Sub BitSet(ByVal iValue As Integer, ByVal Bitnum As Integer, ByVal
State As Boolean)

Try

If State Then

iValue = iValue Or CType(2 ^ Bitnum, Integer)

Else

iValue = iValue And Not CType(2 ^ Bitnum, Integer)

End If

Catch : End Try

End Sub

Public Function BitGet(ByVal iValue As Integer, ByVal Bitnum As Integer) As
Boolean

Return CBool(iValue And CType(2 ^ Bitnum, Integer))

End Function

However, there could be some better way to do this in VB.Net (2005). The
whole thing is about user permissions for an inhouse application.

I have had a look at the BitArray class, but find myself somewhat confused
on how to persist this to a database, or read back that value.

If someone could give me some help or a hint, I would be most appreciative.

Thank you

[Robinson]

Harry,

Is your database schema already decided? I had a look at a similar system
and I found myself becomming tied up in knots with my stored procedures.
Eventually I went for a table with one bit column for each permission in any
given row. Then I explicitly loaded them into boolean variables from the
database. My enumeration doesn't have to worry about bit manipulation and
neither do my stored procedures. Of course the first idea is always to
store a group of permissions in a single integer, but then what happens if
you need more than 32 or 64 bits of information here? You will need two,
then three, etc. Much better to store this information in a database table
explicitly, because you can mix and match types - if for example instead of
a permissions bit, you want some number (MAX or MIN) or some other data
types.

( Assume an enumeration called PermissionsEnum , that stores the column index
for each item in the set of permissions.
Also assume I have just executed a "GetPermiss ions ( name )" stored
procedure against the database. Finally, assume
a class called DataPermissions that exposes boolean properties for each
permission ).
If DataReader.HasR ows = True Then

DataReader.Read ()

thePermissions = New DataPermissions
thePermissions. ID =
DataReader.GetI nt32(DataPermis sions.Permissio nsEnum.ID)
thePermissions. Name =
DataReader.GetS tring(DataPermi ssions.Permissi onsEnum.Name)
thePermissions. CanReadCritical =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanRea dCritical)
thePermissions. CanAddIM =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanAdd IM)
thePermissions. CanAddIP =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanAdd IP)
thePermissions. CanAddAP =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanAdd AP)
thePermissions. CanAddLP =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanAdd LP)
thePermissions. CanDeleteIM =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanDel eteLP)
thePermissions. CanDeleteIP =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanDel eteIP)
thePermissions. CanDeleteAP =
DataReader.GetB oolean(DataPerm issions.Permiss ionsEnum.CanDel eteAP)
....
....
Else

' Failed....

End If

[GhostInAK]

Hello Harry,

Check out the BitConverter class.

-Boo

Hi All

I have a form with about 20 check boxes and I want to persist their
state to
a single integer. That is to say, I want to set their Checked property
to a
particular bit value contained in an integer (32 possible values)
The following methods (translated from VB6) should help with this?:
Public Sub BitSet(ByVal iValue As Integer, ByVal Bitnum As Integer,
ByVal
State As Boolean)
Try

If State Then

iValue = iValue Or CType(2 ^ Bitnum, Integer)

Else

iValue = iValue And Not CType(2 ^ Bitnum, Integer)

End If

Catch : End Try

End Sub

Public Function BitGet(ByVal iValue As Integer, ByVal Bitnum As
Integer) As Boolean

Return CBool(iValue And CType(2 ^ Bitnum, Integer))

End Function

However, there could be some better way to do this in VB.Net (2005).
The whole thing is about user permissions for an inhouse application.

I have had a look at the BitArray class, but find myself somewhat
confused on how to persist this to a database, or read back that
value.

If someone could give me some help or a hint, I would be most
appreciative.

Thank you