Binario

En excel tienes funciones para convertir numeros binarios (busca en la ayuda
bin).



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos.
Tengo que hacer una función para sumar en binario.
Alguien tiene algo ya hecho que pudiera compartirme?
Gracias desde ya.

Gracias Pepe.
Lo que pasa es que necesito hacer sumas como 1100101110111011 +
1100001111111111 directamente en binario, y mostrar el resultado en binario
[a un ancho de 16 bits), además del acarreo de la suma (Cout) si lo hubiera.

Los bits están en celdas independientes, 16 por cada dato.



"pepe" escribió en el mensaje
news:%

En excel tienes funciones para convertir numeros binarios (busca en la
ayuda bin).



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos.
Tengo que hacer una función para sumar en binario.
Alguien tiene algo ya hecho que pudiera compartirme?
Gracias desde ya.

Si no son muchos datos, puedes hacerlo con la calculadora de Windows.

"Hernandez, Roberto" escribió en el mensaje
news:

Gracias Pepe.
Lo que pasa es que necesito hacer sumas como 1100101110111011 +
1100001111111111 directamente en binario, y mostrar el resultado en
binario [a un ancho de 16 bits), además del acarreo de la suma (Cout) si
lo hubiera.

Los bits están en celdas independientes, 16 por cada dato.



"pepe" escribió en el mensaje
news:%

En excel tienes funciones para convertir numeros binarios (busca en la
ayuda bin).



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos.
Tengo que hacer una función para sumar en binario.
Alguien tiene algo ya hecho que pudiera compartirme?
Gracias desde ya.

Ok. Gracias
Te comento. Es para una clase de arquitectura de computadoras. Antes mis
alumnos lo desarrollaban en C, pero ahora lo vamos a desarrollar en VBA y
Excel.

De hecho ya lo terminé, te mando una copia del código por si alguna vez lo
necesitaras.

Saludos!!

Sub ADD()

With Worksheets("PC")

[X11] = Addbin([X8], [X9], [H11])
[W11] = Addbin([W8], [W9], [H11])
[V11] = Addbin([V8], [V9], [H11])
[U11] = Addbin([U8], [U9], [H11])
[T11] = Addbin([T8], [T9], [H11])
[S11] = Addbin([S8], [S9], [H11])
[R11] = Addbin([R8], [R9], [H11])
[Q11] = Addbin([Q8], [Q9], [H11])
[P11] = Addbin([P8], [P9], [H11])
[O11] = Addbin([O8], [O9], [H11])
[N11] = Addbin([N8], [N9], [H11])
[M11] = Addbin([M8], [M9], [H11])
[L11] = Addbin([L8], [L9], [H11])
[K11] = Addbin([K8], [K9], [H11])
[J11] = Addbin([J8], [J9], [H11])
[I11] = Addbin([I8], [I9], [H11])

End With

End Sub


Function Addbin(Bit0, Bit1 As String, acarreo As String) As String

Select Case Bit0
Case "0": Select Case acarreo
Case "0":
If Bit1 = "1" Then
Addbin = "1"
[H11] = "0"
Else
Addbin = "0"
[H11] = "0"
End If
Case "1":
If Bit1 = "1" Then
Addbin = "0"
[H11] = "1"
Else
Addbin = "1"
[H11] = "0"
End If
End Select
Case "1": Select Case acarreo
Case "0":
If Bit1 = "1" Then
Addbin = "0"
[H11] = "1"
Else
Addbin = "1"
[H11] = "0"
End If
Case "1":
If Bit1 = "1" Then
Addbin = "1"
[H11] = "1"
Else
Addbin = "0"
[H11] = "1"
End If
End Select

End Select

End Function



"pepe" escribió en el mensaje
news:era%

Si no son muchos datos, puedes hacerlo con la calculadora de Windows.

"Hernandez, Roberto" escribió en el mensaje
news:

Gracias Pepe.
Lo que pasa es que necesito hacer sumas como 1100101110111011 +
1100001111111111 directamente en binario, y mostrar el resultado en
binario [a un ancho de 16 bits), además del acarreo de la suma (Cout) si
lo hubiera.

Los bits están en celdas independientes, 16 por cada dato.



"pepe" escribió en el mensaje
news:%

En excel tienes funciones para convertir numeros binarios (busca en la
ayuda bin).



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos.
Tengo que hacer una función para sumar en binario.
Alguien tiene algo ya hecho que pudiera compartirme?
Gracias desde ya.