conversione hex-dec in visual basic

[jack]

Supponiamo che io voglia trasformare un numero da decimale in esadecimale.... Sia con visual basic che con java (da quanto ne so) questo processo viene fatto trasformando il mio numero sottoforma di stringa esadecimale.....
Ora supponiamo che io voglia ritornare al numero precedente partendo dalla stringa esadecimale..... Come facciooo?????

[Frengo78]

Prova a guardare se nella guida di visual basic script (lo so che stai parlando di vb ma fa lo stesso) di http://www.html.it trovi la funzione che cerchi

[piercing]

la prima che mi viene in mente...

Codice: Seleziona tutto

Function HexToDec(sHex)
   HexToDec = "" & cStr(CLng("&H" & sHex))
   If len(HexToDec) = 1 then HexToDec = "0" & HexToDec
End Function

dovrebbe fungere... non ho fatto molti test... solo 4 o 5 prove...

[infinito1971]

A me era venuto in mente il seguente...

Public Function Dec2Hex(NumeroDaConvertire As Long) As String
Dec2Hex = Hex(NumeroDaConvertire)
End Function

Public Function Hex2Dec(NumeroDaConvertire As String) As Long
Hex2Dec = Val("&H" & NumeroDaConvertire)
End Function


Un saluto,
infinito1971

[zello]

e per i java-addicted (non ho provato il codice, ma dovrebbe funzionare)

Codice: Seleziona tutto


public class Converter
{
    public static String fromHex(String hex)throws NumberFormatException
    {
         int n=Integer.parseInt(hex,16);
         return ""+n;
    }
}


[Nicola]

Riporto dal doppio topic:
http://www.pc-facile.com/forum/viewtopi ... 0875#60875

Innanzi tutto vorrei ringraziare chi mi ha risposto e poi vorrei formulare un'altra domanda.
Il problema di conversione hex-dec è stato risolto sia in vb che in java, ma mentre in java le cose funzionano in vb ho alcuni problemucci.
Il fatto è che il numero esadecimale contiene più di 8 cifre e mentre con java si puo ovviare al problema con un throws IOException in visual non so come fare. Mi da errore di overflow(6).
Come posso fargli accettare un numero esadecimale anche se questo contiene più di 8 cifre???
Grazie ancora...

Ciao