Como Realizar Una Resta De Dos Numeros Binarios???

[tone02323]

HOLA TENGO UN PROBLEMA DE ALGORISMO NESECITO HACER UN ALGORITMO QUE ME PERMIRA REALIZAR RESTAS DE DOS NUMEROS BINARIOS

LA QUE ESTOY INTENTANDO HACER ES ESTO:

Dim num4 As String
Dim num5 As String
Dim num6 As String
Dim complemento As String
Dim i As Integer

num4 = txt4.Text
num5 = txt5.Text

For i = 1 To Len(num4)
If Mid(num4, i, 1) = "0" Then


EL PROBLEMA ESTA AQUI

ElseIf Mid(num4, i, 1) = "1" Then


Y AQUI
End If
Next
End Sub
OSE LO QUE ME ESTA FALTANDO ES ESTE ALGORISMO EL COMO HACER LA COMPARACION DE CADA NUMERO Y QUE ARRASTRE EL NUMERO DE ACARREO EN LA VARIABLE COMPLEMENTO

[David]

¿Por qué no conviertes primero a decimal para hacer la resta?

[tone02323]

por que la idea es hacer la resta de numeros binarios por el metodo de complemento a dos y para hacerlo paso a paso nesecito poder sumar dos binario

[David]

Iniciado por tone02323

por que la idea es hacer la resta de numeros binarios por el metodo de complemento a dos y para hacerlo paso a paso nesecito poder sumar dos binario

En ese caso lo primero que yo haría sería hacer el procedimiento para sumar dos binarios, si tienes problemas para realizar esa función, me avisas...

[tone02323]

esactamente ese es el problema tendria que hacer una funcion que realise la suma entre dos binarios pero no tengo idea como seri lo estoy intentando pero no me sale che si me podes dar una mano para hacer esto lo demas ya lo tengo echo solo me falta esto


DESDE YA GRACIAS

[David]

Escribí una función para sumar dos binarios, hice algunas pruebas y funciona. Es este:

Código:

Function Sumar(ByVal Num1 As String, ByVal Num2 As String) As String
If Len(Num1) > Len(Num2) Then Num2 = Right(String(Len(Num1), "0") & Num2, Len(Num1))
If Len(Num2) > Len(Num1) Then Num1 = Right(String(Len(Num2), "0") & Num1, Len(Num2))
Dim Looping As Integer
Dim Char1 As Byte
Dim Char2 As Byte
Dim Rest As Byte
Dim Result As String
For Looping = Len(Num1) To 1 Step -1
    Char1 = Val(Mid(Num1, Looping, 1))
    Char2 = Val(Mid(Num2, Looping, 1))
    If Char1 + Char2 + Rest > 1 Then
        Result = CStr((Char1 + Char2 + Rest) Mod 2) & Result
        Rest = 1
    Else
        Result = CStr(Char1 + Char2 + Rest) & Result
        Rest = 0
    End If
Next Looping
If Rest = 1 Then Result = "1" & Result
Sumar = Result
End Function

Espero que te sirva.
Saludos

[tone02323]

muchas gracias la verdad me fue de una gran alluda perdona la demora pero estaba re complicado para conectarme ya que estaba adaptanto la funcion que me mandaste y otras cosas



lo unico que me queda pendiente para terminar de hacer el complemento a dos es despreciar el primer numero del resultado e la suma

tenes idea como podria hacerlo?

ose la idea es si me dio resultado 110001
que despreci el primer numero y de resultado 10001


si se te ocurre algo tirame el dato

[Jhonnyf]

Primero debes saber como sumar binarios de manera manual, para asi hacerlo en un software

Leete la primera parte
Convertir Decimales a Binarios de forma manual (sin calculadora ni nada)

Saludos

PD: ¿Que es "despreciar"?

[David]

Como el resultado que te devuelve la función es un String, puedes hacerlo con Right:

Código PHP:

  Valor = Right(Valor, Len(Valor) - 1)