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
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!