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