Die Community zu .NET und Classic VB.

Startseite / Tipps / VB.NET-Tipp 0052: Dezimalzahlen in Binärzahlen umrechnen

VB.NET-Tipp 0052: Dezimalzahlen in Binärzahlen umrechnen

 von Spatzenkanonier

Schwierigkeitsgrad:

Framework-Version(en): .NET Framework 1.0, .NET Framework 1.1, .NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en): Visual Basic 2002, Visual Basic 2003, Visual Basic 2005, Visual Basic 2008

Download: Download des Beispielprojektes [2,08 KB]

' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2005
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'

' ##############################################################################
' ################################ Module1.vb ##################################
' ##############################################################################
Public Module Module1

    Sub Main()
        Console.WriteLine("+--------------------------------------+")
        Console.WriteLine("| Dezimalzahl in Binärstring umwandeln |")
        Console.WriteLine("+--------------------------------------+")
        Console.WriteLine("| Geben Sie eine Dezimalzahl ein oder  |")
        Console.WriteLine("| drücken Sie ENTER zum Beenden.       |")
        Console.WriteLine("+--------------------------------------+")
        Do
            Console.WriteLine()
            Console.Write("Dezimalzahl: ")
            Dim sIn As String = Console.ReadLine
            If sIn = "" Then Exit Sub
            Try
                Dim Numb As Long = Long.Parse(sIn)
                ' Eine der 36 Überladungen von Convert.ToString() 
                ' akzeptiert als Parameter auch die Basis gängiger 
                ' Zahlensysteme (2, 8, 10, 16)
                Dim sOut As String = Convert.ToString(Numb, 2)
                Console.WriteLine("Binärwert:   " & sOut)
            Catch ex As Exception
                Console.WriteLine("Fehler beim Parsen der Eingabe:")
                Console.WriteLine(ex.Message)
            End Try
        Loop
    End Sub

End Module