Page 1 of 1

pasar numero entero a binario

Posted: Mon May 05, 2008 3:27 pm
by 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.

Posted: Mon May 05, 2008 5:37 pm
by 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

Re: pasar numero entero a binario

Posted: Wed Sep 17, 2008 1:00 pm
by goosfancito
Ando buscando lo mismo. pudiste resolverlo?
Verhoven wrote: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.

Posted: Wed Sep 17, 2008 1:56 pm
by Antonio Linares

Code: Select all

#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

Posted: Wed Sep 17, 2008 2:22 pm
by goosfancito
perfecto.
Antonio Linares wrote:

Code: Select all

#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