FiveTech Support Forums

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.

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

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.

Antonio Linares wrote:

Code: Select all Collapse

#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