Differenze tra le versioni di "Rappresentazione esadecimale di un dato a lunghezza variabile"

Da Gambas-it.org - Wikipedia.
 
(13 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Verrà mostrato un algoritmo per ottenerne la ''rappresentazione'' esadecimale di un dato a ''lunghezza variabile''.
+
#REDIRECT [[Conversione_del_Tempo_Delta_fra_due_eventi_Midi_dai_secondi_nel_valore_esadecimale_in_formato_"a_lunghezza_variabile"]]
 
 
 
 
''<Font Color= #006400>' Gambas class file''</font>
 
 
 
'''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)
 
   
 
''<Font Color= #006400>' valori mostra i finali:''</font>
 
      Print Hex(a), Hex(b, 2)
 
 
 
  Wend
 
 
'''End'''
 

Versione attuale delle 19:26, 17 ott 2020