[SOLUCIONADO] Decimal a binario ayuda

Iniciado por chiliseo, Septiembre 10, 2012, 09:47:56 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Septiembre 10, 2012, 09:47:56 PM Ultima modificación: Mayo 20, 2014, 04:24:35 PM por blackdrake
holaaaaaa a todos quisiera saber como convertir decimales a binario en Visual basic pero con una condicion no ocupando bucles ni funciones de visual :D gracias saludos
The TrIaZ :o
Septiembre 10, 2012, 09:58:48 PM #1
Fijate si esto te sirve:

Código: vb
Public Function Dec2Bin(numero As Integer) As String
If numero <= 2 Then 'Caso Base
Dec2Bin = (numero \ 2) & (numero Mod 2)
Else 'Caso Recursivo
Dec2Bin = Dec2Bin(numero \ 2) & numero Mod 2
End If
End Function


Saludos!
ANTRAX

Imprimir
Ir Arriba Páginas1
Acciones del Usuario