|
Danke Gast27906,
ich habe es kapiert und kann es anwenden - das habe ich mir abgeleitet:
(Auch als Beispiel, weil ich "0" als Übergabe für das LSB mehr gewohnt bin )
'------------------------------
Public Function IsBitEnabled(BitIndex, Value As Byte) As Boolean
Dim V As Byte
V = 2 ^ BitIndex
IsBitEnabled = (Value And V) = V
End Function
'------------------------------
Private Sub erste_Click()
status_byte = 5 ' normal setzt das eine andere Funktion
Dim x As Byte
x = 0
Dim y As Byte
y = status_byte
If IsBitEnabled(x, y) = True Then
TextBox1 = "true"
Else
TextBox1 = "false"
End If
End Sub
'------------------------------
Gruß
Gast27905
|