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) - Komplett 

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