|
BitSet, BitClr, BitTest
(XAPI2000)
Deklaration VB 6.0
Sub BitSet (X As Long, ByVal Nr As Long)
Sub BitClr (X As Long, ByVal Nr As Long)
Function BitTest (ByVal X As Long, ByVal Nr As Long) As Boolean
Deklaration VB.NET
Sub BitSet (ByRef X As Integer, ByVal Nr As Integer)
Sub BitClr (ByRef X As Integer, ByVal Nr As Integer)
Function BitTest (ByVal X As Integer, ByVal Nr As Integer) As Boolean
Beskrivning
Tre rutiner som sätter, nollställer eller testar enkilda bitar
i ett 32-bitars tal. Funktionen BitSet sätter en enskild
bit i ett tal, funktionen BitClr nollställer och funktionen
BitTest testar om en enkild bit är satt i ett tal. Parametern
X innehåller talet som ska modifieras eller testas och parametern
Nr anger bitnumret i talet som ska modifieras eller testas.
Den första biten i talet har värdet 0 och den sista biten har värdet
31 (parametern Nr måste sålunda alltid ha ett värde mellan
0 och 31).
Returvärden
Funktionen BitTest returnerar True om den undersökta
biten är satt eller False om den är nollställd. Övriga rutiner
saknar returvärden. |
Exempel (VB 6.0)
Dim X As Long
X = 0
BitSet X, 2 ' Sätt bit nr 2 till 1 (vilket
ger X = 4 eller binärt X = 00000100)
Exempel (VB.NET)
Dim X As Integer
X = 0
BitSet(X, 2) ' Sätt bit nr 2 till 1 (vilket
ger X = 4 eller binärt X = 00000100)
|
