Autor Tema: Convertir de base 10 a 2  (Leído 1085 veces)

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

Desconectado llAudioslavell

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 12
  • -Receive: 3
  • Mensajes: 126
Convertir de base 10 a 2
« : 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: ....