' Umwandeln von Bytewert in BitWert  (max. 2^8 z.B. 255 = "11111111")
'
Public Function Byte2Bit(ByVal hByte As Byte) As String
    Dim hBit As String * 8
    Dim hz As Integer
    '
    hBit = "00000000"
    For hz = 1 To 8
        If hByte >= (2 ^ (8 - hz)) Then
           Mid$(hBit, hz, 1) = "1"
           hByte = hByte - (2 ^ (8 - hz))
        End If
    Next hz
    Byte2Bit = hBit
End Function
 
' und zurück
 
' Umwandeln von BitWert in ByteWert  (z.B. "11111111" = 255)
'
Public Function Bit2Byte(ByVal hBit As String) As Byte
    Dim hByte As Byte
    Dim hz As Integer
    '
    hByte = 0
    hBit = "00000000" & Trim$(hBit)
    hBit = Right$(hBit, 8)
    For hz = 1 To 8
        If Mid$(hBit, hz, 1) = "1" Then
           hByte = hByte + 2 ^ (8 - hz)
        End If
    Next hz
    Bit2Byte = hByte
End Function

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...