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