Convertire un numero da rappresentazione esadecimale in binaria

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