Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Usercontrol / Options - Manejo de 8 opciones con un solo byte
#1

Hola amigos.
Finalmente logre crear un control que usando un solo byte permite manejar 8 opciones.
Gracias a Cogier y Vuott que me ayudaron con la codificación del byte con la cadena de texto, pero también a Jerry, Oliver, Fabien de la lista internacional.
Dejo aquí el código por si a alguien le interesa y por supuesto cualquier mejora en la simplificación del código, mejora de eficiencia, etc. es bienvenida.
Espero que les resulte igual de divertido que lo que me resulto a mi.
Este control esta hecho con la intensión de usarlo para editar un campo de una base de datos donde cada Bit es un grupo de trabajo y un usuario puede pertenecer a mas de un grupo, luego solo se gurda un solo Byte en la table.
[Imagen: imuTVSt.gif]


Archivos adjuntos
.gz options-0.0.2.tar.gz Tamaño: 15.3 KB  Descargas: 0
.gz options-0.0.3.tar.gz Tamaño: 15.51 KB  Descargas: 3

1 Saludo.
[-] Los siguientes 1 usuarios dice gracias a tincho por este post:
  • Shordi
    ¡Gracias!
#2

Shordi, olvide agradecerte, ya que no hubiese podido hacer el control sin tus fantásticos vídeos de controles, sobretodo el de Usercontrol.
Así, que muchas gracias.

Luego al usarlo encontré algunos errores, así que los corregí y subí la versión nueva.
Aquí esta en funcionamiento.
[Imagen: UVJBfVH.gif]

1 Saludo.
[-] Los siguientes 1 usuarios dice gracias a tincho por este post:
  • Shordi
    ¡Gracias!
#3

¡Gracias, es un placer saber que algo de lo que hago le ha valido a alguien! Como que le da sentido a todo este lío... Big Grin Big Grin Big Grin

No podemos regresar
    ¡Gracias!
#4

...y este codigo ? Dodgy
GAMBAS
  1.  
  2. Public Sub Form_Open()
  3.   
  4.   Dim b As Byte
  5.   
  6.   With Me
  7.     .W = 300
  8.     .H = 300
  9.   For b = 0 To 7
  10.     With tb = New ToggleButton(Me) As "TButton"
  11.       .W = Me.W * 0.1
  12.       .H = Me.H * 0.2
  13.       .X = Me.X + (30 + (30 * b))
  14.       .Y = 100
  15.       .Text = CStr(2 ^ (7 - b))
  16.     End With
  17.   Next
  18.   
  19.  
  20. Public Sub TButton_Click()
  21.  
  22.   Dim binario As String
  23.  
  24.   For Each tgb In Me.Children
  25.     binario &= Abs(tgb.Value)
  26.   Next
  27.  
  28.   Me.Title = Val("&x" & binario)
  29.  



"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)

"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)
[-] Los siguientes 1 usuarios dice gracias a vuott por este post:
  • tincho
    ¡Gracias!
#5

(Ayer, 16:54)vuott escribió:  ...y este codigo ?

lo pruebo.
Si, también esta bien.
Una pregunta
¿Por que algunos ejemplos usan Val("&x" & ...) mientras que otros Val("%" & ...)? evidentemente el resultado es el mismo.

1 Saludo.
    ¡Gracias!


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)