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:	Views:  10.620
www.i-ki.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

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.