Feedback

VB - Dezimalzahl eines Binärwerts berechnen

Veröffentlicht von am 28.10.2006
(2 Bewertungen)
Nun der Titel dürfte reichen ;-)
Aus 111111 wird 63
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.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

Public Function BinToDec(ByVal BinVal As String) As Long
    Dim SqrNum As Long = 1
    Dim Result As Long = 0
    For i As Integer = BinVal.Length - 1 To 0 Step -1
        Result += (CLng(BinVal.Substring(i, 1)) * SqrNum)
        SqrNum *= 2
    Next
    Return Result
End Function
Abgelegt unter Binär, Dezimal.

1 Kommentare zum Snippet

lotbec schrieb am 16.07.2009:
niedlich, ;-) aber
Dim Result As Long = Convert.ToInt64(BinVal, 2)
machts auch
 

Logge dich ein, um hier zu kommentieren!