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 (566):    1 150 151 152 153 154 566   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 294
Último miembro: adal
Temas del foro: 1,748
Mensajes del foro: 9,071
Últimos temas
Problemas con las interru...
Foro: General
Último mensaje por: Shordi, Ayer, 07:29
Respuestas: 4 - Vistas: 124
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 770
Resultados dispares según...
Foro: Bases de Datos
Último mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 282
Mover un Result a una pos...
Foro: Bases de Datos
Último mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 151
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.