Autor Tema: Desplazar Los Bits De Un Entero (Leído 3679 veces)

tiquinho · « **en:** Lunes 31 de Mayo de 2004, 13:06 »

Buenas!!

Necesito desplazar los bits de un número con el que trabajo para pasárselos a otro programa. Me explico en hexadecimal:

Si tengo mi número :
Num = &H1234
y lo desplazo 4 bits hacia la izquierda, me queda :
Num = &H2340

esto es más o menos lo que quiero hacer, pero sé como puedo hacerlo. Conoce alguien alguna función o rutina para hacerlo???
Me suena que en C no era muy dificil, pero en Visual Basic no tengo ni idea

gracias por las contestaciones

Brroz · « **Respuesta #1 en:** Lunes 31 de Mayo de 2004, 17:20 »

Hola Tiquinho.

Creo que es necesario que puntualices algo más...

En vb es posible realizar algunas operaciones entre dos números a nivel de bits utilizando los operadores And, Or y Xor, esto sólo por curiosidad, porque para tu caso no creo que sirva de mucho...

Para poder desplazar un número n bits para un lado o para otro multiplica o divide respectivamente ese número por 2^n (dos elevado a n).

De todas formas por el ejemplo que muestras creo que lo que realmente necesitas es desplazar carácteres y no bits (bytes en todo caso). No conozco o recuerdo ninguna función vb que realice esto, sin embargo, no debe resultar difícil crear tu propia función truncando el resultado al tamaño que necesites.

Resumiendo: prueba este código en un form con 2 commandbutton y verás a que me refiero:

Código: Text

 
Option Explicit
 
Private dbl1 As Double
private dbl2 As Double
 
Private Sub Form_Load()
 
    dbl1 = &H1234
 
End Sub
 
Private Sub btnDerecha_Click()
        
    dbl2 = dbl1 / 2 ^ 4
    
    Debug.Print &#34;&H&#34; & Hex(dbl1)
    Debug.Print &#34;&H&#34; & Hex(dbl2)
    
    dbl1 = dbl2
    
End Sub
 
Private Sub btnIzq_Click()
 
    dbl2 = dbl1 * 2 ^ 4
    
    Debug.Print &#34;&H&#34; & Hex(dbl1)
    Debug.Print &#34;&H&#34; & Hex(dbl2)
    
    dbl1 = dbl2
 
End Sub

Suerte.

tiquinho · « **Respuesta #2 en:** Lunes 31 de Mayo de 2004, 18:44 »

Hola Brroz

!
Diste en el clavo a la primera, lo que tengo q hacer es desplazar mis bits,

Pero había creado una función para multiplicar y dividir(según convenga) por 2, y me daba problemas de desbordamiento, por eso preguntaba si había alguna en visual, pero ya encontré el fallo en mi función(uno, que se cree q en un for, desde 0 a nBits van nBits, y no nBits + 1

) y va de perlas

De todas maneras gracias por preocuparte!Para la próxima intentaré dejar un día o dos entre duda y pregunta jeje

Por si a alguien le puede ayudar, dejo aquí mi función :

Código: Text

 
 
Private Function Desplazar(Valor As Integer, Direccion As String, nBits As Integer) As Integer
Dim i As Integer
If Not 0 &#60; nBits &#60; 16 Then Err.Raise 1001, , &#34;Número de bits a desplazar incorrecto&#34;
Desplazar = Valor
If Direccion = &#34;izq&#34; Then
    'Desplazamiento a la izquierda
    For i = 1 To nBits
        Desplazar = Desplazar * 2
    Next i
ElseIf Direccion = &#34;dch&#34; Then
    'Desplazamiento a la derecha
    For i = 1 To nBits
        Desplazar = Desplazar &#092; 2
    Next i
End If
End Function
 
 

(Mi fallo estaba en los for, q eran for i=0 to nBits,lo que tiene no fijarse

)

Amilius · « **Respuesta #3 en:** Lunes 31 de Mayo de 2004, 19:15 »

Cita de: "tiquinho"

Código: Text

Private Function Desplazar(Valor As Integer, Direccion As String, nBits As Integer) As Integer
Dim i As Integer
If Not 0 < nBits < 16 Then Err.Raise 1001, , "Número de bits a desplazar incorrecto"
Desplazar = Valor
If Direccion = "izq" Then
   'Desplazamiento a la izquierda
   For i = 1 To nBits
   Desplazar = Desplazar * 2
   Next i
ElseIf Direccion = "dch" Then
   'Desplazamiento a la derecha
   For i = 1 To nBits
   Desplazar = Desplazar \ 2
   Next i
End If
End Function

NOOOOOOOOOOOOO!!!

La complejidad de realizar un desplazamiento con ASM es 1. (C y Pascal tienen funciones (<<,>>;shl,shr) que hacen lo mismo que en ASM, no recuerdo en VB pero fija que debe tener)

Complejidad de realizar una multiplicación: 17 en promedio para 32 bits. Para división es algo mayor. (Multiplicación usa desplazamientos y sumas, prácticamente un desplazamiento y suma por cada bit 1 del número)

La complejidad de desplazar usando multiplicaciones: 17*promedio de bits desplazados. digamos 8, entonces = 136. Por lo tanto tu código es POR LO MENOS en promedio 136 veces más lento de lo que debería ser, sin contar otros detalles mayores!!. (Usas un montón de cosas sólo para hacer algo que viene ya incluido en todo procesador, en realidad es posible que el código sea tranquilamente hasta 400 veces más lento de lo que debería ser)

tiquinho · « **Respuesta #4 en:** Lunes 31 de Mayo de 2004, 19:30 »

Vale
Estoy totalmente de acuerdo contigo
Pero no sé qué función es

Igual la solución del For es matar moscas a cañonazos(yo lo mejoré ya con una multiplicación\división por 2^nBits, que es sólo una instrucción en vez de 4 iguales), lo reconozco, pero mientras no tenga otra cosa...

Si sabes o la encuentras por algún lado, me la cuentas, pero mientras tanto me tengo que apañar con mi función superlenta, pq necesito hacerlo, y si no puedo hacerlo más rápido, pos tendré q hacerlo más lento,no?

A mi me gustaría hacerlo con alguna función q venga en Visual(por eso empecé esta discusión), pero no la encuentro y hasta ahora nadie me supo decir

Si alguien la sabe, que avise, plis (la verdad es que a mi con que me funcione ya me llega, pero preferiría ser más eficiente,

)

Amilius · « **Respuesta #5 en:** Lunes 14 de Junio de 2004, 18:15 »

Revisé la ayuda por todos lados y nada, parece que no tiene esos operadores.

SoloCodigo

Autor Tema: Desplazar Los Bits De Un Entero (Leído 3679 veces)

tiquinho

Desplazar Los Bits De Un Entero

Brroz

Re: Desplazar Los Bits De Un Entero

tiquinho

Re: Desplazar Los Bits De Un Entero

Amilius

Re: Desplazar Los Bits De Un Entero

tiquinho

Re: Desplazar Los Bits De Un Entero

Amilius

Re: Desplazar Los Bits De Un Entero