Título: Re: Binario A Decimal
Publicado por: lencho en Jueves 12 de Julio de 2007, 00:25
Cita de: "germantraba"
Hola necesito ayuda para programar un boton que me pase un dato de bianrio a decimal. Si al guien sabe que me explique como hacerlo. gracias.
trata de ver tus problemas y recien plantealos,. :angry: :angry: :angry:
BYTE.
Título: Re: Binario A Decimal
Publicado por: germantraba en Viernes 13 de Julio de 2007, 01:33
Tengo que hacer una calcuiladora, debe pasar un numero ingresado en un textbox de decimal a binario mediante un clic en un boton ese es el problema. Agradeceria si me dan una mano. Germàn.
Título: Re: Binario A Decimal
Publicado por: lencho en Viernes 13 de Julio de 2007, 07:15
pero, ayuda en que !!!
plantea tu problema especifico, no tu general, que no nos gusta resolver obligaciones.
BYTE.
Título: Re: Binario A Decimal
Publicado por: cuajoa en Viernes 13 de Julio de 2007, 20:27
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
Título: Re: Binario A Decimal
Publicado por: jogosk8 en Martes 23 de Octubre de 2007, 22:35
: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