Convertire un numero da rappresentazione esadecimale in binaria
Da Gambas-it.org - Wikipedia.
Versione del 31 ott 2024 alle 02:40 di Vuott (Discussione | contributi)
Uso della funzione "Base()"
Per convertire un numero esadecimale nella sua rappresentazione binaria, può essere utilizzata la funzione "Base()", avendo convertito preliminarmente un numero da rappresentazione esadecimale in quella decimale.
Nel secondo parametro della funzione "Base()" va impostato il valore (in questo caso 2 = binario) che rappresenta la base numerica, nella quale dovrà essere convertito il numero di partenza.
Public Sub Main() Print Base(Val("&03E8"), 2) End
Uso di apposito algoritmo
Altresì sarà sufficiente convertire ogni sua singola cifra esadecimale nel corrispondente binario come segue:
Public Sub Main() Dim esa, bnr As String Dim bb As Byte[] Dim b As Byte ' Converte ad esempio il valore esadecimale: esa = "1A2B3C" bb = Byte[].FromString(esa) For Each b In bb bnr &= Bin(Val("&" & (Chr(b))), 4) Next ' Mostra il risultato finale binario: Print bnr End