Visual Basic - Numeros Binarios

Life is soft - evento anual de software empresarial
 
Vista:

Numeros Binarios

Publicado por Fernando (4 intervenciones) el 28/11/2003 21:56:53
Hola a todos.
bueno, esto es algo urgente, por que es una asignacion que tengo que terminar y lo unico que me falta es esto que me tiene de cabezas.
la cosa es que tengo que sumar dos numeros binarios (el usuario pone 2 numeros binarios en la interface, y luego tiene q salir el resultado), pero no tengo idea de como hacerlo, no se si habra alguna formula en especifica, o alguna logica,
de verdad se les agradeceria que me ayudaran ha resolver este pequeno problema.

gracias de antemano,

saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Numeros Binarios

Publicado por ko<ap>a (27 intervenciones) el 29/11/2003 09:58:04
debes de usar dos arreglsopara los numeros binarios, ehh

conviertes cada numer a decimal(ya sabes..binario es base 2.. por lo tanto si tienes 1010 =====> 0*2 elevado 0+1*2 elevado 1+0*2 elevado 2....) sumas en decimal y vuelves a pasar abinario

example 34 binario divides entre 2 hasta mas no poder
salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros Binarios

Publicado por Cecilia Colalongo (3116 intervenciones) el 30/11/2003 19:34:20
En la Sección Código Fuente tienes un ejemplo, está en: http://lawebdelprogramador.com/codigo/enlace.php?idp=749&id=93&texto=Visual+Basic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros Binarios

Publicado por maro (1 intervención) el 01/12/2003 22:27:00
Creo que el otro dia envie la respuesta a esta pregunta, no se porque no aparece..

Dim numero1 As String, numero2 As String
numero1 = Text1.Text
numero2 = Text2.Text
Dim decimal1 As Long, decimal2 As Long, resultado As Long
Dim binariosuma As String
For i = 1 To Len(numero1)
decimal1 = decimal1 + Val(Mid$(numero1, i, 1)) * 2 ^ (Len(numero1) - i)
Next
For i = 1 To Len(numero2)
decimal2 = decimal2 + Val(Mid$(numero2, i, 1)) * 2 ^ (Len(numero2) - i)
Next
resultado = decimal1 + decimal2
Dim cociente As Long, resto As Integer
cociente = resultado \ 2
resto = resultado Mod 2
While cociente > 1
binariosuma = resto & binariosuma
resultado = cociente
cociente = resultado \ 2
resto = resultado Mod 2
Wend
binariosuma = cociente & resto & binariosuma
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar