Comparaciones binarias

[ricardog]

Compañeros, Buenas Noches:

Como haria lo siguiente en XHarbour ?
// --------------------------------------------------------------------


( OPERADOR 'AND' de vb )

Dim x As Integer
x = 3 And 5
El ejemplo anterior establece el valor de x en 1. Esto ocurre por las razones siguientes:

Los valores se tratan como binarios:

3 en formato binario = 011

5 en formato binario = 101

El operador And compara las representaciones binarias, una posición binaria (bit) a la vez. Si los dos bits en una posición dada son 1, entonces se coloca un 1 en esa posición del resultado. Si uno de los dos bits es 0, entonces se coloca un 0 en esa posición del resultado. En el ejemplo anterior, esto funciona como sigue:

011 (3 en formato binario)

101 (5 en formato binario)

001 (el resultado, en formato binario)

El resultado se trata como decimal. El valor 001 es la representación binaria de 1, por lo que x = 1.

[Antonio Linares]

Ricardo,

nAnd( 3, 5 ) --> nResult

Puedes usar tantos valores como desees separados por comas

Tambien tienes lAnd( 3, 5 ) que devuelve un valor lógico si ambos valores tienen algún bit en común