Pages

jueves, 10 de enero de 2013

Ingrese un numero y convierta a binario - Código fuente en Visual Basic

Problema
Ingrese un número y convierta a binario.

Solución
Este algoritmo recibe un numero decimal y lo convierte a número  binario.

Ejemplo

  • Entrada: 10
  • Salida: 1010
Código Fuente en Visual Basic
Public Class Form1
    Dim Num As Integer
    Dim Cad As String
    Private Sub Button1_Click(ByVal sender As System.Object, 
 ByVal e As System.EventArgs) Handles Button1.Click
        Num = TextBox1.Text
        If (Num > 0) Then
            Cad = ""
            While (Num > 0)
                If (Num Mod 2 = 0) Then
                    Cad = "0" + Cad
                Else
                    Cad = "1" + Cad
                End If
                Num = Math.Floor(Num / 2)
            End While
            TextBox2.Text = Cad
        Else
            If (Num = 0) Then
                TextBox2.Text = "0"
            Else
                TextBox2.Text = "Solo numeros positivos"
            End If
        End If
    End Sub
End Class

1 comentarios:

Wilfredo Vizcarra dijo...

Hola a todos!, mi pregunta es cómo puedo convertir números binarios a caracteres unicode y de caracteres unicode a numeros binarios?. Me explico un poco más, tengo una entrada binaria de 8 bits y quiero convertirla a caracteres unicode para poder transmitirla y recibirla en el notepada de Windows. Gracias de antemano!

Publicar un comentario en la entrada