Sv Community El Salvador

Soporte y Tecnología => Programación => .NET => Mensaje iniciado por: llAudioslavell en febrero 24, 2013, 04:39:06 pm

Título: Convertir de base 10 a 2
Publicado por: llAudioslavell en febrero 24, 2013, 04:39:06 pm
aun no lo termino, solo que tengo un problema....


        Dim divd As Integer = Val(TextBox2.Text)
        Dim Result As Integer = 0
        Dim c As Integer = 0
        Dim r As Integer
        While (divd >= 2)
            c = divd \ 2
            r = divd Mod 2
            divd = c
            Result &= r
        End While
        Label11.Text &= StrReverse(Result)

es que cuando la primera cifra es el 0 no concatena  :sad: ....