RESPUESTA A LA PREGUNTA 1075 - VISUAL BASIC


Hola !
Fijate que un amigo me paso una rutina para lo que deseas hacer pero
en VFP5.0 pero puedes buscar las funciones equivalentes que se utilizan,
ya que son muy parecidas en VB.

FUNCTION _DEC2BIN(nDecimal)

* Transforma un número decimal a binario
* Retorna: Caracter 

Local lcBinario, lnResto
lcBinario = ""
Do while nDecimal > 0  && puede ser un FOR..NEXT
    lnResto = MOD(nDecimal,2)
    nDecimal = INT(nDecimal/2)
    lcBinario = STR(lnResto,1)+lcBinario
Enddo
Return lcBinario
ENDFUNC

Espero que la rutina te ayude..

Si quieres convertir el Binario a Decimal esta es la funcion:

FUNCTION _Bin2Dec(cBinario)

**Retorna Numerico

Local lnFinal, lnDecimal , lnI
cbinario = ALLTTRIM(cBinario)
lnFinal = LEN(cBinario)
lnDecimal = 0
For inI = lnfinal To 1 Step -1
   lnDecimal = lnDecimal + VAL(SUBS(cBinario,inI,1))*2**(lnFinal-inI)
Endfor
Return lnDecimal
ENDFUNC

Saludos


Cristobal
cristobalmelara@yahoo.com