Convertire un numero da rappresentazione esadecimale in binaria
Da Gambas-it.org - Wikipedia.
Versione del 29 set 2023 alle 08:30 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:
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