Rappresentazione esadecimale di un dato a lunghezza variabile

Verrà mostrato un algoritmo per ottenerne la rappresentazione esadecimale di un dato a lunghezza variabile.

' Gambas class file


Public Sub Button1_Click()
 
 Dim a, b, rob As Integer
 
 c = InputBox("Immetti un numero in forma decimale:")
 
 b = rob Mod 128
 rob = CInt(rob / 128)

 
 While rob > 0
 
   a = rob Mod 128
   a = a Or 128
   rob = CInt(rob / 128)
   
' mostra i valori finali:
 Print Hex(a), Hex(b, 2)
 
 Wend

End