Convertire un numero da rappresentazione esadecimale in binaria

Da Gambas-it.org - Wikipedia.
Versione del 31 ott 2024 alle 01:40 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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