Sección de códigos , trucos y ejemplos para visual basic

36 - Función para convertir números de una base a otra base

<Volver> - Anterior - Siguiente

Módulo de clase que permite convertir números a base Binario, decimal y Hexadecimal

El módulo tiene tres propiedades :

Número : es el número a convertir
DeBase : Base del número ( debe ser un Binario, Decimal o Hexadecimal )
ToBase : Base a la que se va a convertir el número en cuestión ( Binario, Decimal o Hexadecimal )

El método o función que convierte el número es el método "Convertir " , por ejemplo :

MsgBox .Convertir("El número a converir ", "La base", "Base a converir"), vbInformation

Ejemplo

Agregar en un formulario un control CommandButton
un módulo de clase

Código fuente en el formulario

Option Explicit Dim clsConvert As New Class1 Private Sub Command1_Click() With clsConvert ' Inputobx para el número a convertir .Numero = InputBox(" Ingrese el numero a convertir ") If .Numero = "" Then Exit Sub ' base del número ( DEcimal - binario o Hexadecimal ) .DeBase = InputBox("Ingrese la base del numero que ingresó :" & _ " Binario = 2, Decimal = 10, o Hexadecimal = 16") If .DeBase = 0 Then Exit Sub ' diálogo para especificar la base de la conversión _ ( binario - decimal o hexadecimal -) .tobase = InputBox("Ingrese el numero de la " & _ "base a convertir : Binario = 2, " & _ "Decimal = 10, o Hexadecimal = 16") If .tobase = 0 Then Exit Sub ' este método Convierte el número y muestra el resultado MsgBox .Convertir(.Numero, .DeBase, .tobase), vbInformation End With End Sub Private Sub Form_Load() Command1.Caption = " Convertir " End Sub

Código fuente en el módulo de clase ( class1 )

Option Explicit Public Numero As String Public DeBase As Integer Public tobase As Integer ' función que convierte de número Hexadecimal a Decimal '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function HexToDec(ByVal HexStr As String) As Double Dim mult As Double Dim DecNum As Double Dim ch As String mult = 1 DecNum = 0 Dim i As Integer For i = Len(HexStr) To 1 Step -1 ch = Mid(HexStr, i, 1) If (ch >= "0") And (ch <= "9") Then DecNum = DecNum + (Val(ch) * mult) Else If (ch >= "A") And (ch <= "F") Then DecNum = DecNum + ((Asc(ch) - Asc("A") + 10) * mult) Else If (ch >= "a") And (ch <= "f") Then DecNum = DecNum + ((Asc(ch) - Asc("a") + 10) * mult) Else HexToDec = 0 Exit Function End If End If End If mult = mult * 16 Next i HexToDec = DecNum End Function ' función que convierte de número Decimal a Hexadecimal '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function DecToHex(ByVal DecNum As Double) As String Dim remainder As Integer Dim HexStr As String HexStr = "" Do While DecNum <> 0 remainder = DecNum Mod 16 If remainder <= 9 Then HexStr = Chr(Asc(remainder)) & HexStr Else HexStr = Chr(Asc("A") + remainder - 10) & HexStr End If DecNum = DecNum \ 16 Loop If HexStr = "" Then HexStr = "0" DecToHex = HexStr End Function ' función que convierte de número Decimal a Binario '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function DecToBin(ByVal DecNum As Double) As String Dim BinStr As String BinStr = "" Do While DecNum <> 0 If (DecNum Mod 2) = 1 Then BinStr = "1" & BinStr Else BinStr = "0" & BinStr End If DecNum = DecNum \ 2 Loop If BinStr = "" Then BinStr = "0000" DecToBin = BinStr End Function ' función que convierte de número Binario a número decimal '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function BinToDec(ByVal BinStr As String) As Double Dim mult As Double Dim DecNum As Double mult = 1 DecNum = 0 Dim i As Integer For i = Len(BinStr) To 1 Step -1 If Mid(BinStr, i, 1) = "1" Then DecNum = DecNum + mult End If mult = mult * 2 Next i BinToDec = DecNum End Function ' función que convierte de número Hexadecimal a número binario '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function HexToBin(ByVal HexStr As String) As String Dim BinStr As String BinStr = "" Dim i As Integer For i = 1 To Len(HexStr) BinStr = BinStr & DecToBin(HexToDec(Mid(HexStr, i, 1))) Next i HexToBin = BinStr End Function ' función que convierte de número binario a Hexadecimal '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function BinToHex(ByVal BinStr As String) As String Dim HexStr As String HexStr = "" Dim i As Integer For i = 1 To Len(BinStr) Step 4 HexStr = HexStr & DecToHex(BinToDec(Mid(BinStr, i, 4))) Next i BinToHex = HexStr End Function 'función que retorna el valor ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Convertir(ByVal numToConvert As Variant, _ ByVal DeBase As Integer, _ ByVal tobase As Integer) As Variant Select Case DeBase Case 2 If Not Verificar(Numero, "01") Then MsgBox "Base 2 sólo puede contener 0 y 1" Exit Function End If Case 10 If Not Verificar(Numero, "0123456789") Then MsgBox "Base 10 sólo puede contener de '0' a '9'." Exit Function End If Case 16 If Not Verificar(Numero, "0123456789ABCDEFabcdef") Then MsgBox "La Base 16 sólo puede contener " & _ " de '0' a '9' y de 'A' a 'F' o de 'a' a 'f'." Exit Function End If End Select If DeBase = tobase Then Convertir = numToConvert Exit Function End If Select Case DeBase Case 2 Select Case tobase Case 10 Convertir = BinToDec(numToConvert) Exit Function Case 16 Convertir = BinToHex(numToConvert) Exit Function End Select Case 10 Select Case tobase Case 2 Convertir = DecToBin(numToConvert) Exit Function Case 16 Convertir = DecToHex(numToConvert) Exit Function End Select Case 16 Select Case tobase Case 2 Convertir = HexToBin(numToConvert) Exit Function Case 10 Convertir = HexToDec(numToConvert) Exit Function End Select End Select End Function Private Function Verificar(valor As String, _ bag As String) As Boolean Dim i As Integer Verificar = True For i = 1 To Len(valor) If InStr(1, bag, Mid(valor, i, 1)) = 0 Then Verificar = False Exit Function End If Next i End Function

Recursos vb 6.0 - Enlaces

Convertir bytes a megas y gigas en vb6

Recursos vb.net - enlaces relacionados

Convertir bytes a megabytes y gigabytes

Buscar en Recursos vb