Die Community zu .NET und Classic VB.
Menü

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

 von 

Beschreibung

Dieses Beispiel zeigt, wie sich mittels Convert.ToString() Dezimalzahlen ins binäre Zahlensystem konvertieren lassen.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

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

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.