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
