nesecito que me den una gran mano por que estoy re perdido

[tone02323]

me pidieron en la faculta que hiciera un programa en visual basic 2005.net en el cual tiene un texbox se ingrese un numero y coloque las bases en unos radio buton (seleccionando la base para asignarla al numero colocado en el texbox) y en otro textbox large el resultado de esta convercion dependiendo el boton que se de clik(teniendo un boton para converitr el numero a binario otro a decimala otro a octal y otro a hexadecimal).
nada poco no jeje
bueno ni idea como se hace si me pueden dar una mano para hacer este programita le estaria muy agradesido

muchas gracias

[Peterpay]

Hex() METODOS
Oct() METODOS
SByte

Revisa esos 3 conceptos lo dema slo haces tu.

[tone02323]

impcable la verdad me re alludo esas funciones que me tiraste

me podiras desir que tendria que buscar para hacer las converciones de numeros binarios a : DECIMAL
OCTAL
HEXADESIMAL


DESDE YA MUCHAS GRACIAS POR CONTESTARME ANERIORMENTE

[tone02323]

nesecito que me tiren algun dato para poder hacer las converciones cuando tengo un numero binario a otras bases como octal hexadecimal y a decimal

[Avellaneda]

Mira, en este ejemplo convertimos un número decimal a sus equivalentes Hexadecimal, Octal o binario.

En el Form coloca estos controles (entre paréntesis, el nombre utilizado)
- Dos TextBox, uno para introducir el Decimal (TxtDec) y otro para mostrar la conversión (TxtResult).
- Tres RadioButton, uno para convertir a Binario (RBBin), otro para convertir a Hexadecimal (RBHex) y el otro para convertir en Octal (RBOct).
- y un CommandButton (cmdConvert)

Código:

Public Class Form1

    Private Sub cmdConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConvert.Click
        If RBHex.Checked = True Then
            TxtResult.Text = "&H" & Hex(TxtDec.Text).ToString
        ElseIf RBOct.Checked = True Then
            TxtResult.Text = Oct(TxtDec.Text).ToString
        Else
            TxtResult.Text = DecimalAbinario(TxtDec.Text)
        End If
    End Sub

    Private Function DecimalAbinario(ByVal sDecimal As String) As String
        Dim b As Boolean = True
        Dim iDec As Integer = CInt(sDecimal)
        Dim sBin As String = ""
        Do While b = True
            Dim iMat As Integer = Math.Floor(iDec / 2)
            Dim iMod As Integer = iDec Mod 2
            iDec = iMat
            sBin = sBin & CStr(iMod)
            If iMat = 0 Then
                b = False
            End If
        Loop
        Dim sResult As String = StrReverse(sBin)
        Return sResult
    End Function
End Class

[tone02323]

si ta muy buena la funcion esa pero yo ya avia echo una lo que me falta es hacer ahhora las converciones de que si ingreso un binario lo pase a decimal ,octal,hexadesimal


osea la convercion alreves

eso es lo que me esta complicando