Shell 25-07-2023, 14:34
Buenas!.

¿ Suelen ustedes usar eso ?.

No suelo hacerlo normalmente y ademas no he obtenido el resultado que quería.
Si que ha funcionado el nombre del identificador o variable.

Ejemplo: Dibujo un rectángulo con el que uso un color.
Os muestro el cambio de una propiedad de la clase.

Código:
'Property colorect As Integer Use hcolorect

Property {color} As Integer Use hcolor

Fijaros que color es una palabra reservada del lenguaje Gambas.
Pero con el uso de llaves se puede usar esa palabra reservada.
Luego más tarde no hay problema en usar Me.color en la clase

Mi idea fue querer usar:

Código:
Property {color} As Color Use hcolor

Ademas de que no me funciona parece que me complica el código.
Desde el constructor y creo que luego con el tipo de valor que esperan los métodos de la clase Paint.

Si le paso Color.Blue y la propiedad {color} es del tipo Color.
Me dará error, mostrando que no coinciden los tipos, requerido color, obtenido entero.
Creo que es complicarlo más, incluso si usase un tipo ColorInfo, al final es un entero.
No merece la pena, complicarse tanto.

Pero, ¿ qué os parece el tema de usar una palabra reservada, como un identificador ?
Puede que usar esto sea más por un "especial" capricho del desarrollador al nombrar las variables. Rolleyes
( Si, puede resultar el nombre más próximo a lo que quiere, pero es que ya tiene dueño ).  Wink

Saludos
Shell 23-07-2023, 23:36
Buenas!.

Si quiero convertir un número de binario a decimal, puedo hacerlo de esta forma:

Código:
'Binario -> Decimal
'Eso no es una cadena
Print &X11
'Nos devolvería 3

El problema que me encontraba es que quería usar los operadores lógicos con números binarios. Ejemplo:

Código:
Public Sub Ejemplo2()
 
 Print OperaAND("0011", "0110")
 Print
 Print OperaOR("0011", "0110")
 
End

Me tuve que apoyar en la función val. Convertir una cadena a número. Realizar un AND de dos números decimales y el resultado convertirlo a binario
En este caso solo necesité obtener cuatro dígitos.

Código:
''Realiza un AND de dos números binarios
Public Function OperaAND(numero1 As String, numero2 As String) As String
   
  Return Subst("&1 AND &2 = &3", numero1, numero2, Bin(Val("&X" & numero1) And Val("&X" & numero2), 4))
    
End

''Realiza un OR de dos números binarios
Public Function OperaOR(numero1 As String, numero2 As String) As String
 
  Return Subst("&1 OR &2 = &3", numero1, numero2, Bin(Val("&X" & numero1) Or Val("&X" & numero2), 4))
 
End

Resultado:
Cita: 
0011 AND 0110 = 0010

0011 OR 0110 = 0111

Saludos
tercoide 21-07-2023, 16:22
LPM
Ayer se corto la energia y mi All-In-One Acer no arranca. Lleva un trafo como las laptop, pero segun el tecnico esta OK. Es posible que el micro se rompa de esa manera? no deberia haber fusible o algo intermedio????
Páginas (574):    1 … 158 159 160 161 162 … 574   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 316
Último miembro: CarlosZam
Temas del foro: 1,774
Mensajes del foro: 9,212
Últimos temas
Me hace falta el dato de ...
Foro: Sobre gambas-es.org
Último mensaje por: jguardon, 30-09-2026, 20:25
Respuestas: 1 - Vistas: 160
El conector de alimentaci...
Foro: Hardware & IoT
Último mensaje por: tincho, 23-09-2026, 23:03
Respuestas: 3 - Vistas: 199
Problemas con la versión ...
Foro: General
Último mensaje por: Piero71, 19-09-2026, 23:56
Respuestas: 3 - Vistas: 395
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: tincho, 02-09-2026, 21:41
Respuestas: 21 - Vistas: 22,456
Programando con la IA
Foro: General
Último mensaje por: alberto-moyano, 02-09-2026, 18:04
Respuestas: 19 - Vistas: 9,412
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.