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

Da Gambas-it.org - Wikipedia.
 
(14 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 Form_Open()
 
 
 
  Dim a, b, c As Integer
 
 
 
  c = InputBox("Immetti un numero in forma decimale:")
 
 
 
  b = c Mod 128
 
  c = CInt(c / 128)
 
 
 
 
  While c > 0
 
 
 
    a = c Mod 128
 
    a = a Or 128
 
    c = CInt(c / 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