[tincho]

Hola.
Como saben para convertir en bits un numero byte se hace así:
Bin(254)
El resultado es:
11111110

Pero.. ¿Como se hace para obtener el 254 a partir del 11111110 ?

[cogier]

GAMBAS

Print Val("%11111110")

[vuott]

Hooola tinchooo !
Olivier te dio la solución más rápida:
https://lists.gambas-basic.org/pipermail...76707.html

Pero yo por curiosidad te propongo una solución más simpatica:

GAMBAS

Library "libc:6"
 
' long int strtol (const char *__restrict __nptr, char **__restrict __endptr, int __base)
' Convert a string to a long integer.
Private Extern strtol(__nptr As String, __endptr As Pointer, __base As Integer) As Long
 
 
Public Sub Main()
 
  Dim binario As String
 
  binario = "11111110"
 
  Print strtol(binario, 0, 2)
 
End

[tincho]

Print Val("%11111110")

Gracias Charlie.

---

Pero yo por curiosidad te propongo una solución más simpatica:

C a través de Extern suele ser siempre mas veloz, en el uso que le voy a dar ahora solo ocurrirá la conversión al inicio de sesión pero tal vez si uso este método en otras tablas y una gran cantidad de veces seguramente la opción con C sea la optima.
Gracias Vuott.

[vuott]

...y, si te gusta, puedes tambien usar un array de tipo Byte:

GAMBAS

Public Sub Main()
 
  Dim s As String  
  Dim bb As Byte[]
  Dim b As Byte
  Dim l As Long   ' u otro tipo de dato nativo
 
  s = "11111110"
 
  bb = Byte[].FromString(s).Reverse()
 
  For b = 0 To bb.Max
    l += CLong((bb - 48) * (2 ^ b))
  Next
 
  Print l
 
End

[tercoide]

en realidad puede usarse, en las operaciones matemáticas, cualquier formato, por ejemplo prueben sumar un binario, un decimal y un hex en la consola:
%11111110 + 1 + &H1 

el resultado sera :

256