0

Tengo este código en un Command1 que pretende convertir en número de octal a Hexadecimal.
El tema es que da siempre 0 y no se corregirlo. ¿Cómo se puede solventar el error?

Private Sub Command3_Click()
    ' Procedimiento que convierte un número de Octal a Hexadecimal
    
    Dim octNumber, length As String
    Dim total, i, j, dec, modnum As Integer
    
    total = 0
    j = 0
    
    Dim oct As String
    
    octNumber = Val(Text1.Text)
    
    oct = octNumber
    length = Len(oct)
    
    Dim value As Boolean
    
    value = True
    
    For i = length - 1 To 0 Step -1
        dec = 0
        
        Select Case (Str(i))
            Case 0
                dec = 0
            Case 1
                dec = CInt(8 ^ j)
            Case 2
                dec = CInt(8 ^ j) * 2
            Case 3
                dec = CInt(8 ^ j) * 3
            Case 4
                dec = CInt(8 ^ j) * 4
            Case 5
                dec = CInt(8 ^ j) * 5
            Case 6
                dec = CInt(8 ^ j) * 6
            Case 7
                dec = CInt(8 ^ j) * 7
            Case Else
                value = False
        End Select
        total = total + dec
        j = j + 1
    Next
    
    If value Then
        Dim hexa As String
        hexa = ""
        If total > 0 Then
            While (total > 0)
                modnum = CInt(total Mod 16)
                total = total \ 16
                Select Case (modnum)
                    Case 0
                        hexa = "0" & hexa
                    Case 1
                        hexa = "1" & hexa
                    Case 2
                        hexa = "2" & hexa
                    Case 3
                        hexa = "3" & hexa
                    Case 4
                        hexa = "4" & hexa
                    Case 5
                        hexa = "5" & hexa
                    Case 6
                        hexa = "6" & hexa
                    Case 7
                        hexa = "7" & hexa
                    Case 8
                        hexa = "8" & hexa
                    Case 9
                        hexa = "9" & hexa
                    Case 10
                        hexa = "A" & hexa
                    Case 11
                        hexa = "B" & hexa
                    Case 12
                        hexa = "C" & hexa
                    Case 13
                        hexa = "D" & hexa
                    Case 14
                        hexa = "E" & hexa
                    Case 15
                        hexa = "F" & hexa
                End Select
            Wend
            Text2.Text = hexa
    
            ElseIf total = 0 Then
                Text2.Text = "0"
            ElseIf Not hexa Then
                Text2.Text = "Dato erróneo"
            Else
                Text2.Text = "Dato erróneo"
            End If
        End If
End Sub
4
  • Veo algunos errores en tu código, de los cuales debería hablar en una respuesta y no en un comentario. Podrías evaluar la posibilidad de pasar de octal a decimal (como supiste en tu otra pregunta) y luego a hexadecimal. Depende de cuál a cual sistema quieras convertir seguirás un procedimiento u otro. La idea básica para convertir del sistema decimal a otro es valerse de la división y el resto (o módulo) y si es alreves mediante multiplicación y suma. Te dejo esta página de wikipedia con información que puede serte útil en.m.wikipedia.org/wiki/Hexadecimal
    – Mateo
    Commented el 5 jul. 2021 a las 2:00
  • y value es true siempre_
    – gbianchi
    Commented el 6 jul. 2021 a las 0:14
  • ¿Cómo se puede corregir eso? Commented el 6 jul. 2021 a las 0:44
  • No necesitas el case ¿Condicionas el dígito para multiplicarlo (Si el dígito es X te multiplico por Y)? La condición es la posición, mas no el dígito en esa posición. Tampoco necesitas j.
    – Sal
    Commented el 6 jul. 2021 a las 1:27

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.