hey amigos, miren me dejaron hacer un programa que transforme numeros decimales a hexadecimales, estoy empezando en programar en basic por consola aun, ya lo hize pero tengon problema, que al momento de convertirlo no se como hacer para q enves de 10 me muestre la letra A.... hasta el 15 = F,. este es el codigo q hize, ojala me ayuden
Imports System.Console
Module Module1
Sub Main()
Dim x, d, xx, r As Double
Dim cadena As String
Write("Ingrese el numero")
x = ReadLine()
cadena = ""
For xx = 1 To x
If x >= 16 Then
d = x/16
r = x Mod 16
If r > 0 Then
d = (x - r) / 16
End If
x = d
cadena = Str(r) & cadena
End If
Next
cadena = Str(x) & cadena
WriteLine("el hexadecimal es :" & cadena)
ReadLine()
End Sub
End Module
Imports System.Console
Module Module1
Sub Main()
Dim x, d, xx, r As Double
Dim cadena As String
Write("Ingrese el numero")
x = ReadLine()
cadena = ""
For xx = 1 To x
If x >= 16 Then
d = x/16
r = x Mod 16
If r > 0 Then
d = (x - r) / 16
End If
x = d
cadena = Str(r) & cadena
End If
Next
cadena = Str(x) & cadena
WriteLine("el hexadecimal es :" & cadena)
ReadLine()
End Sub
End Module
