pasar numero entero a binario

[Verhoven]

Necesito una funcion para pasar un número entero a binario de 7 bits.
Ejemplo:
nEntrada=10
cSalida:=functionconversora(nEntrada)

cSalida debe contener la cadena: '0001010'

Saludos.

[Willi Quintana]

A ver...

L2BIN(nValor)
Convierte un valor numérico de CA-Clipper en un valor entero binario de 32
bits
──────────────────────────────────────
Sintaxis
L2BIN(<nExp>) --> cEnteroBinario
Argumentos
<nExp>es el valor numérico que se va a convertir. Los números decimales se truncan.
Devuelve
L2BIN() devuelve una cadena de caracteres de 4 bytes formateada como un entero binario de 32 bits.
Descripción
L2BIN() es una función de bajo nivel que se utiliza con FWRITE() para escribir valores numéricos de CA-Clipper en un fichero binario. Esta función es similar a I2BIN(), que formatea un valor numérico de CA-Clipper en un valor binario de 16 bits.
L2BIN() es la función inversa de BIN2L().


Espero te sirva...
Salu2

[goosfancito]

Ando buscando lo mismo. pudiste resolverlo?

Necesito una funcion para pasar un número entero a binario de 7 bits.
Ejemplo:
nEntrada=10
cSalida:=functionconversora(nEntrada)

cSalida debe contener la cadena: '0001010'

Saludos.

[Antonio Linares]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

  MsgInfo( NumToBinary( 10 ) )

return nil

function NumToBinary( n )

   local cNum := ""

   while n > 0
      cNum += If( lAnd( n, 1 ), "1", "0" )
      n = Int( n / 2 )
   end

return cNum


[goosfancito]

perfecto.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

  MsgInfo( NumToBinary( 10 ) )

return nil

function NumToBinary( n )

   local cNum := ""

   while n > 0
      cNum += If( lAnd( n, 1 ), "1", "0" )
      n = Int( n / 2 )
   end

return cNum