|
Buď si můžete tuto věc dělat sám přes bitové operace, nebo máte možnost použít BitVector32 případně BitArray. Jak to dělat sám? Jednoduše:
Dim data As UInteger = 0
data = data Or 1 'nastavit nultý bit na 1
data = data Or 2 'nastavit první bit na 1
data = data Or 4 'nastavit druhý bit na 1
If (data And 8) = 8 Then ... 'pokud je čtvrtý bit nastaven na 1
data = data And UInteger.MaxValue - 16 'nastavit pátý bit na 0
If (data And 32) = 0 Then ... 'pokud je šestý bit nastaven na 0
Kdyžtak si to rozepište ve dvojkové soustavě, ať je vám jasné, jak se s tím Or a And zachází. UInteger.MaxValue jsou samé jedničky, UInteger.MaxValue - 16 jsou samé jedničky, akorát nula na pátém bitu.
|