Differenze tra le versioni di "Rappresentazione esadecimale di un dato a lunghezza variabile"
Da Gambas-it.org - Wikipedia.
| Riga 5: | Riga 5: | ||
| − | '''Public''' Sub | + | '''Public''' Sub Button1_Click() |
| − | Dim a, b, | + | Dim a, b, rob As Integer |
c = InputBox("Immetti un numero in forma decimale:") | c = InputBox("Immetti un numero in forma decimale:") | ||
| − | b = | + | b = rob Mod 128 |
| − | + | rob = CInt(rob / 128) | |
| − | While | + | While rob > 0 |
| − | a = | + | a = rob Mod 128 |
a = a Or 128 | a = a Or 128 | ||
| − | + | rob = CInt(rob / 128) | |
''<Font Color= #006400>' valori mostra i finali:''</font> | ''<Font Color= #006400>' valori mostra i finali:''</font> | ||
Versione delle 16:28, 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)
' valori mostra i finali:
Print Hex(a), Hex(b, 2)
Wend
End
