Differenze tra le versioni di "Rappresentazione esadecimale di un dato a lunghezza variabile"
Da Gambas-it.org - Wikipedia.
| Riga 21: | Riga 21: | ||
rob = CInt(rob / 128) | rob = CInt(rob / 128) | ||
| − | ''<Font Color= #006400>' | + | ''<Font Color= #006400>' mostra i valori finali:''</font> |
| − | + | Print Hex(a), Hex(b, 2) | |
Wend | Wend | ||
'''End''' | '''End''' | ||
Versione delle 16:29, 20 gen 2012
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
