Cita:
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.
