Differenze tra le versioni di "Convertire un numero da rappresentazione esadecimale in binaria"
Da Gambas-it.org - Wikipedia.
| Riga 15: | Riga 15: | ||
Next | Next | ||
| − | <FONT Color=gray>' ''Mostriamo il risultato finale:''</font> | + | <FONT Color=gray>' ''Mostriamo il risultato finale binario:''</font> |
Print bnr | Print bnr | ||
'''End''' | '''End''' | ||
Versione delle 02:45, 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 binario:
Print bnr
End
