Konvertieren einer Binärzahl in eine Dezimalzahl Dieser Tipp zeigt, wie man mit eigentlich nur sechs Code-Zeilen eine Binärzahl in eine Dezimalzahl konvertieren kann.
Autor:   Robert Blutner	Bewertung:     [ Jetzt bewerten ]	Views:  11.076
www.i-ki.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp zeigt, wie man mit nur sechs Zeilen Code eine Binärzahl in eine Dezimalzahl konvertieren kann. Die erstellte Konsolenanwendung demonstriert den Einsatz dieses Tipps:

Module Module1
 
  Sub Main()
    Console.WriteLine("Konvertieren einer Binärzahl in eine Dezimalzahl")
    Console.WriteLine("================================================")
 
    Dim Eingabe As String ' Eingegebene Binärzahl
    Dim Answer As Long    ' Auszugebende Dezimalzahl
    Dim Potenz As Integer ' 2 ^ Potenz (Potenz von 2)
    Dim i As Integer
 
    Do
      Potenz = 0
      Answer = 0
 
      Console.WriteLine()
      Console.Write("Binärzahl: ")
      Eingabe = Console.ReadLine
 
      If CheckEingabe(Eingabe) = True Then
        Console.WriteLine("Fehler: Ihre Eingabe war nicht korrekt.")
      Else
        ' Konvertierung (Start=)
        For i = Eingabe.Length To 1 Step -1
          If Mid(Eingabe, i, 1) = "1" Then
            Answer = Answer + 2 ^ Potenz
          End If
          Potenz = Potenz + 1
        Next
        ' Konvertierung (Ende)
        Console.WriteLine("Dezimalzahl: " & Answer) ' Ausgabe der Dezimalzahl
      End If
    Loop
  End Sub
 
  Private Function CheckEingabe(ByVal Eingabe As String) As Boolean
    For i As Integer = 1 To Eingabe.Length
      If Not Mid(Eingabe, i, 1) = "1" Then
        If Not Mid(Eingabe, i, 1) = "0" Then
          Return True
        End If
      End If
    Next
    Return False
  End Function
End Module