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]

Angular mit ASP.NET Core für .NET-Entwickler

.NET ist Ihnen vertraut, als Entwickler verfügen Sie über einschlägige Kenntnisse. In diesem Kurs lernen Sie nun, Angular in .NET-Umgebungen einzusetzen. Sie verstehen das Konzept von Angular und integrieren das clientseitige JS-Framework sicher in.NET-Anwendungen.

C# Grundlagen

Die Schulung vermittelt Ihnen die Grundlagen von C# in der Arbeit mit Datentypen sowie bei Klassenbibliotheken. Sie lernen, mit Variablen umzugehen und deren verschiedene Formen zu konvertieren. 

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!