Differenze tra le versioni di "Convertire un numero da rappresentazione esadecimale in binaria"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | Per convertire un numero esadecimale nella sua rappresentazione binaria, sarà sufficiente convertire ogni sua singola cifra esadecimale nel corrispondente binario come segue: | + | ==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 esa, bnr As String | ||
Riga 6: | Riga 16: | ||
Dim b As Byte | Dim b As Byte | ||
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Converte ad esempio il valore esadecimale:''</font> |
− | + | esa = "1A2B3C" | |
− | + | bb = Byte[].FromString(esa) | |
− | + | For Each b In bb | |
− | + | bnr &= Bin(Val("&" & (Chr(b))), 4) | |
− | + | Next | |
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Mostra il risultato finale binario:''</font> |
− | + | Print bnr | |
− | + | End |
Versione attuale delle 08:30, 29 set 2023
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