Feedback

VB - Binärwert einer Dezimalzahl berechnen

Veröffentlicht von am 28.10.2006
(2 Bewertungen)
Nun der Titel dürfte reichen ;-)
Aus 63 wird 111111
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

Public Function DecToBin(ByVal Number As Double) As String
    Dim Bin As New List(Of String)
    Do
        If Number Mod 2 = 0 Then
            Bin.Add("0")
        Else
            Bin.Add("1")
        End If
        Number \= 2
    Loop Until Number = 0
    Bin.Reverse()
    Return Join(Bin.ToArray, "")
End Function
Abgelegt unter Binär, Dezimal.

1 Kommentare zum Snippet

lotbec schrieb am 16.07.2009:
niedlich, ;-) aber
Dim output As String = Convert.ToString(Number, 2)
machts auch
 

Logge dich ein, um hier zu kommentieren!