Zahl dual darstellen (binär) Diese Funktion wandelt eine beliebige Zahl in die Dual-Schreibweise um (binäre Darstellung)
Autor:   Thomas Grey	Bewertung:     [ Jetzt bewerten ]	Views:  19.485
die-software-schmiede.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 28 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Visual Basic verfügt "von Haus aus" bereits über zahlreiche Konvertier-Funktionen - u.a. auch um z.B. eine Dezimalzahl in das hexadezimale Format umzuwandeln.

Was aber wenn man eine Zahl in der binären Schreibweise darstellen möchten? Also lauter Nullen und Einsen...

Dann hilft nachfolgende Funktion...

Public Function Dual(ByVal vValue As Variant) As String
  ' Diese Funktion wandelt eine Zahl in eine
  ' Dual(Binär) Zahl um
  ' 
  ' Vorsicht: Die Dual(Binär) Zahl wird als String
  ' zurückgegeben
 
  vValue = CVar(vValue)
 
  ' Plausibilitätsprüfungen
  If Not IsNumeric(vValue) Then
    Dual = "Wert nicht Numerisch!!!"
    Exit Function
  ElseIf vValue > 999999999 Then
    Dual = "Zahl ist zu gross!!!"
    Exit Function
  End If
 
  Do
    If vValue Mod 2 = 0 Then
      Dual = "0" & Dual
    Else
      Dual = "1" & Dual
    End If
    vValue = vValue \ 2
  Loop While vValue > 0
 
  Dual = Format(Dual, _
    "0000 0000 0000 0000 0000 0000 0000 0000")
End Function

Beispiel

MsgBox Dual(192)  ' 0000 0000 0000 0000 0000 0000 1100 0000