CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Binario A Decimal

<< < (2/2)

cuajoa:
lencho se refiere a que plantees, quiero hacer esto asi y no me sale, yo lo hice de esta manera:

--- Código: Text --- Este es el codigo que escribiste  
O lo que queres saber es como se puede convertir de binario a decimal?

Si es asi, esa pregunta no se hace aca, en este foro, porque es muy general y es matemática eso.

Si queres ese "algoritmo" por asi llamarlo, te lo explico y lo realizas vos en vb.net despues.

Saludos

jogosk8:
:scream:
Imports vb = Microsoft.VisualBasic
Public Class Form1
    Public cad As String

    Private Sub btnconvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconvertir.Click
        Dim x, y As String
        Dim i, n, dec As Integer
        dec = 0
        x = vb.Trim(txtnum.Text)
        n = vb.Len(x)

        For i = 1 To n
            y = vb.Mid(x, i, 1)
            dec = dec + Val(y) * (2 ^ (n - i))

        Next
        txtresul.Text = dec
    End Sub

    Private Sub txtnum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum.KeyPress
        Select Case e.KeyChar
            Case Chr(13) ' Enter
                btnconvertir.Focus()

            Case Chr(27) ' Escape
                End

            Case Chr(8) ' retroceso
            Case "0" ' el cero
            Case "1" ' el uno
            Case Else
                Beep()      ' Beep, prendé los parlantes
                e.Handled = True  'Impide el ingreso de caracteres ilegales
        End Select
    End Sub

    Private Sub txtnum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnum.TextChanged
        If txtnum.Text = "" Then
            btnconvertir.Enabled = False
        Else
            btnconvertir.Enabled = True
        End If
    End Sub

    Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Click
        txtnum.Text = ""
        txtresul.Text = ""
        txtnum.Focus()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Navegación

[0] Índice de Mensajes

[*] Página Anterior