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