https://foro.gambas-es.org/viewtopic.php?f=19&t=5311&p=31371#p31371
-----------------------------------
vuott
Wednesday, 30 March 2016, 16:03

Re: Funciones De Desplazamiento De Bits....
-----------------------------------
Como bien sabes, Gambas tiene una función para actuar el desplazamiento de los bits a derecha: [i]Shr()[/i].  Pero prefiero usar una expresión explícita.

...de todas formas, teniendo tambien en cuenta lo que notó [i]vicr[/i], yo [i]traduciría[/i] de javascript como sigue:    :neutral: 
[code linenumbers=false syntax=gambas]Private Function function_1(x As Integer) As Integer

   x = x Or (x \ CInt(2 ^ 1)) And &7FFFFFFF&
   x = x Or (x \ CInt(2 ^ 2)) And &3FFFFFFF&
   etc...
   etc....

  Return x + 1

End


Private Function function_2(x As Integer) As Integer

  Dim result As Integer
  
   If (x > 0) And ((x And (x - 1)) = 0) Then result = 1
    
   Return result

End[/code][img]http://www.dragovoljac.com/forum/Smileys/default/sttrah.gif[/img]


