Zahlensystem konvertieren Konvertiert Zahlen vom Zehner-System in Zahlensysteme vom 2er - 16er System.
Autor:   sd	Bewertung:	Views:  12.808
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgender Funktion lässt sich eine Zahl im "Zehner-System" in ein anderes Zahlensystem konvertieren. Die Funktion unterstützt hierbei die Zahlensysteme 2er (binär) bis 16er (hexadezimal).

Private Function GetBits(ByVal bt As Long, _
  Optional ByVal system As Integer = 2) As String
 
  Dim out As String    ' Ausgabevariable
  Dim zahl As Long     ' Ausgangszahl
  Dim temp As Long     ' Temporäre Variable
 
  ' Zeichen der Zahlensysteme ( bis Hexadezimalsystem )
  Dim chrsys As String
 
  chrsys = "0123456789ABCDEF"
 
  temp = 1
  If (system > 16) Or (system < 2) Then
    ' Falsches Zahlensystem?
    GetBits = "Falsches Zahlensystem"
    Exit Function
  End If
 
  zahl = bt
 
  ' Solange bis Zahl = 0
  While zahl <> 0 
    ' Stelle der Zahl ermitteln
    temp = zahl Mod system
 
    ' Zahl anhängen
    out = Mid(chrsys, temp + 1, 1) & out
 
    ' Integerdivision
    zahl = zahl \ system
  Wend
 
  ' Rückgabewert
  GetBits = out
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

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.