Es ist mal ganz interessant zu sehen, welchen binären (dualen) Wert eine Zahl hat.
Die Funktionen groß zu erklären ist, glaube ich, ist nicht so wichtig ' binären Wert eines Bytes in ' eine 8-stellige Zeichenfolge umwandeln Function Bits(ByVal Value As Byte) As String Dim strOut As String Dim i As Long For i = 1 To 8 ' 8 bits strOut = strOut & (Value And 1) Value = Value \ 2 ' Integerdivision Next i Bits = StrReverse(strOut) End Function ' binären Wert einer Integerzahl in ' eine 16-stellige Zeichenfolge umwandeln Function BitsInt(ByVal Value As Integer) As String Dim strOut As String Dim negValue As Integer Dim i As Long If Value < 0 Then negValue = Value Value = Value Xor &H8000 End If For i = 1 To 16 strOut = strOut & (Value And 1) Value = Value \ 2 Next i If negValue Then Mid$(strOut, 16) = 1 BitsInt = StrReverse(strOut) End Function ' binären Wert einer Long-Zahl in ' eine 32-stellige Zeichenfolge umwandeln Function BitsLng(ByVal Value As Long) As String Dim strOut As String Dim negValue As Long Dim i As Long If Value < 0 Then negValue = Value Value = Value Xor &H80000000 End If For i = 1 To 32 strOut = strOut & (Value And 1) Value = Value \ 2 Next i If negValue Then Mid$(strOut, 32) = 1 BitsLng = StrReverse(strOut) End Function ' Dezimal-Wert einer 8-stelligen Zeichenfolge ' in ein Byte umwandeln Function BitsToByte(ByVal Bits As String) As Byte Dim Out As Byte Dim x As Byte Dim i As Long If Len(Bits) > 8 Then Err.Raise 6, , "Der Bitstring darf höchstens 8 Zeichen (0 oder 1) enthalten!" & _ Chr(13) & "(""" & Bits & """)" End If If Len(Bits) < 8 Then Bits = String(8 - Len(Bits), "0") & Bits Bits = StrReverse(Bits) For i = 0 To 7 x = Mid$(Bits, i + 1, 1) Out = Out + x * 2 ^ i Next i BitsToByte = Out End Function Dieser Tipp wurde bereits 20.057 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |