En visual Basic 6

[pofy]

Tengo un problemon me he matado y no he podido talvez me puedan ayudar
Mi problema es el siguiente, tengo la siguente formula que pasa cualqueir numero a un numero decimal la cual es:

N=Cn X^n + Cn-1 X^n-1 + ....+ C0 X^0

Un ejemplo de esa es:

1) (1011)2 = (11)10
el numero binario 1011 en decimal es 11 segun la formula

N = 1 * 2^3 + 0 * 2^2 + 1 * 2^1 + 1*2^0 =

N = 8+0+2+1

N = 11

Hago todo eso para que me puedan entender y si no deberia de hacerlo disculpenme porfavor.
Bueno lo que necesito es hacer un proyecto en visual que haga eso y no puedo que tengo que poner para que cuando corra el programita en visual aplique esa formula.
Esa formula pasa cualquier numero a decimal.
Gracias de antemanos y disculpen si no era esa la forma en que tenia que explicarme pero es la primera pregunta que hago GRACIAS

[Avellaneda]

Iniciado por pofy

Tengo un problemon me he matado y no he podido talvez me puedan ayudar
Mi problema es el siguiente, tengo la siguente formula que pasa cualqueir numero a un numero decimal la cual es:

N=Cn X^n + Cn-1 X^n-1 + ....+ C0 X^0

Un ejemplo de esa es:

1) (1011)2 = (11)10
el numero binario 1011 en decimal es 11 segun la formula

N = 1 * 2^3 + 0 * 2^2 + 1 * 2^1 + 1*2^0 =

N = 8+0+2+1

N = 11

Hago todo eso para que me puedan entender y si no deberia de hacerlo disculpenme porfavor.
Bueno lo que necesito es hacer un proyecto en visual que haga eso y no puedo que tengo que poner para que cuando corra el programita en visual aplique esa formula.
Esa formula pasa cualquier numero a decimal.
Gracias de antemanos y disculpen si no era esa la forma en que tenia que explicarme pero es la primera pregunta que hago GRACIAS

Función para convertir un número binario a decimal tomando como base esa fórmula:

Código:

Function BinToDec(ByVal ElBinario As String) As Long
Dim i As Integer, lDec As Long, lTmp As Long, b As Byte
For i = 1 To Len(MiBin)
    b = Asc(Mid(MiBin, i, 1)) - Asc("0")
    If (b = 1) Then
        lTmp = 2 ^ (Len(MiBin) - i)
        lDec = lDec + lTmp
    End If
Next i
BinToDec = lDec
End Function

Fíjate que le tienes que pasar el parámetro (nº binario) como String y devuelve un Long con el número decimal.