Differenze tra le versioni di "Convertire un numero da rappresentazione esadecimale in binaria"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per convertire un numero esadecimale nella sua rappresentazione binaria, sarà sufficiente convertire ogni sua singola cifra esadecimale nel corrispondente binario come segue:...') |
|||
Riga 15: | Riga 15: | ||
Next | Next | ||
+ | <FONT Color=gray>' ''Mostriamo il risultato finale:''</font> | ||
Print bnr | Print bnr | ||
'''End''' | '''End''' |
Versione delle 02:40, 21 apr 2015
Per convertire un numero esadecimale nella sua rappresentazione binaria, 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 ' Convertiamo ad esempio il valore esadecimale: esa = "1A2B3C" bb = Byte[].FromString(esa) For Each b In bb bnr &= Bin(Val("&" & (Chr(b))), 4) Next ' Mostriamo il risultato finale: Print bnr End