Convertire un numero da rappresentazione esadecimale in binaria

Da Gambas-it.org - Wikipedia.

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:

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