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.