Hola a todos.
Luego de buscar un largo rato en el foro y en la ayuda de gambas no logre encontrar la forma de Convertir Hexadecimal en Decimal.
Tengo los siguientes números por ejemplo:
0x0
0x100
0x2000
0x2008

Nota: dichos valores provienen de una librería que decodifica archivos binarios y según el manual de dicha librería el valor debería ser "short 1 bit-encoded unsigned short"

¿Alguna idea?

tincho escribió:  

... en la ayuda de gambas no logre encontrar la forma de Convertir Hexadecimal en Decimal.
Tengo los siguientes números por ejemplo:
0x0
0x100
0x2000
0x2008

Parto de la premisa de que debes convertir a decimal aquellos números como los escribiste en la representación hexadecimal usada por el C.
Si tienes que convertir aquella representación, significa que está expresa en tipo String.
Tienes que eliminar el simbolo "x" y luego convertir de manera gambasiana.
Es decir:

tincho escribió:  

unsigned short"

...como sabes gambas no tiene el typo Unsigned Short.  

vuott escribió:  

tincho escribió:  

... en la ayuda de gambas no logre encontrar la forma de Convertir Hexadecimal en Decimal.
Tengo los siguientes números por ejemplo:
0x0
0x100
0x2000
0x2008

Parto de la premisa de que debes convertir a decimal aquellos números como los escribiste en la representación hexadecimal usada por el C.
Si tienes que convertir aquella representación, significa que está expresa en tipo String.
Tienes que eliminar el simbolo "x" y luego convertir de manera gambasiana.
Es decir:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Main()
  Dim s As String = "0x100"
  Dim c As Short
  s = Replace(s, "x", "0")
  c = Val("&" & s)
  Print c
End

tincho escribió:  

unsigned short"

...como sabes gambas no tiene el typo Unsigned Short.  

Gracias Vuott. Siempre estas al pie del cañón.

Mira que he integrado mi código !

Vuott, perfecto si, he visto (y usado) tu código (el de este post y muchos que pones en el foro tambien).
Quedo así:

Gracias otra vez.
Saludos.

tincho escribió:  

Quedo así:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

              sVal = Replace(sVal, "0x", "&00")
              i = Val(sVal)

ok