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 (564):    1 148 149 150 151 152 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: DarkWolf
Temas del foro: 1,742
Mensajes del foro: 9,031
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 05-11-2025, 23:26
Respuestas: 5 - Vistas: 146
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,587
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,343
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 119
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.