General :: Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Martes, 14 May 2024, 06:15 • Todas las horas son UTC + 1 Hora

Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Página 1 de 1

Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Autor

Mensaje

Shell

Analista Programador

Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación:

Al otro lado de la pantalla

Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Buenas!.

Pues eso.

Primer caso:

Código: [Descargar] [Ocultar] [Seleccionar]

Private algo As Cosa

Public Sub Form_Open()

  algo = New Cosa(Me)

  algo.ContarChiste()


End

La clase Cosa:

Código: [Descargar] [Ocultar] [Seleccionar]

Event Reir()
Event Hablar()

Private obs1 As Observer

Public Sub _new(obj As Object)

  obs1 = New Observer(Me) As "reaccion"

End

Public Sub ContarChiste()

  Raise Reir()

End

Public Sub Conversar()

  Raise Hablar()

End

Public Sub reaccion_Reir()

  Print "Jajaja!"

End

Public Sub reaccion_Hablar()

  Print "Blablabla"

End

El segundo ejemplo hace lo mismo pero de otra forma.

Código: [Descargar] [Ocultar] [Seleccionar]

Public obs As Observer

Public Sub Form_Open()

  Dim unacosa As Cosa2

  unacosa = New Cosa2

  obs = New Observer(unacosa) As "reaccion"

  unacosa.Hablar()

End

Public Sub ContarChistes()

  Raise Reir()

End

Public Sub Conversar()

  Raise Hablar()

End

Clase Cosa2:

Código: [Descargar] [Ocultar] [Seleccionar]

Event Reir()
Event Hablar()

Public Sub Reir()

  Print "Jajaja!"

End

Public Sub Hablar()

  Print "Blablabla"

End

No, por ahora el segundo ejemplo está mal. Solo llama a los métodos de la clase cosa2.

Saludos

===================
Gambas Básico
"No es un bug, es una característica no documentada"

última edición por Shell el Miercoles, 01 Abril 2020, 22:46; editado 1 vez

#1 Miercoles, 01 Abril 2020, 22:42

Shell

Analista Programador

Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación:

Al otro lado de la pantalla

Re: Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Hice que funcionara con la clase cosa2, pero resulta algo extraño, ~~dos observadores.~~

Si, es que parecían dos observadores, solo tiene observador la clase cosa2 y un "manejador de eventos" en el main del Form1...que se parece a la misma
forma de construcción que el observador, por eso me parecieron dos.

Código: [Descargar] [Ocultar] [Seleccionar]

Private unacosa As Cosa2

Public Sub Form_Open()

  unacosa = New Cosa2(Me) As "reaccion"

  unacosa.ContarChiste()

End

Public Sub reaccion_Reir()

  Print "Jajaja!"

End

Public Sub reaccion_Hablar()

  Print "Blablabla"

End

Clase Cosa2:

Código: [Descargar] [Ocultar] [Seleccionar]

Event Reir()
Event Hablar()

Private obs As Observer

Public Sub _new(objeto As Object)
      obs = New Observer(objeto) As "observador"
End

Public Sub ContarChiste()

  Raise Reir()

End

Public Sub Conversar()

  Raise Hablar()

End

Como es lógico desde el main no se puede llamar a los objetos que añaden el nombre del observador "reaccion"

Olvidaba subir el ejemplo..

Saludos

EjemploConEventos-0.0.1.tar.gz
Descripción:	Dos modos de crear un evento en Gambas. Para test	Descargar
Nombre del archivo:	EjemploConEventos-0.0.1.tar.gz
Tamaño:	4.16 KB
Descargado:	39 veces

EjemploConEventos-0.0.1.tar.gz
Descripción:	Dos modos de crear un evento en Gambas. Para test	Descargar
Nombre del archivo:	EjemploConEventos-0.0.1.tar.gz
Tamaño:	4.16 KB
Descargado:	39 veces

EjemploConEventos-0.0.1.tar.gz
Descripción:	Dos modos de crear un evento en Gambas. Para test	Descargar
Nombre del archivo:	EjemploConEventos-0.0.1.tar.gz
Tamaño:	4.16 KB
Descargado:	39 veces

===================
Gambas Básico
"No es un bug, es una característica no documentada"

última edición por Shell el Jueves, 02 Abril 2020, 10:18; editado 2 veces

#2 Miercoles, 01 Abril 2020, 23:23

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Shell:

Mirate este ejemplo que hice hace tiempo:
https://jsbsan.blogspot.com/2014/09...do-eventos.html

Saludos

Julio

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#3 Viernes, 03 Abril 2020, 16:44

Shell

Analista Programador

Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación:

Al otro lado de la pantalla

Re: Eventos. ¿ Cuál De Los Dos Códigos Os Parece Más Correcto ?

Hola Julio!.

Citar:

Mirate este ejemplo que hice hace tiempo:

Es uno de los primeros que estuve viendo y tienes otro con dos formularios, observadores y eventos.

El del ejemplo con los objetos pelotón, creo que tuviste un problema en su día que comentaste,
pero ahora no recuerdo bien. Creo que iba por el tema de crear más de un observador.

He modificado el ejemplo un poco. Con el tiempo logré cambiarle cosas.
Me parece mejor usar checkbuttons, que radiobuttons, así podíamos elegir desde un pelotón a todos.

Parece que existe un orden de ejecución de los observadores, según añades los objetos a observar.
- La ejecución de los observadores tienen un orden. Esto se puede cambiar.

- El parámetro "after" del observador, no parece necesario en el jemplo.

Citar:

Si el valor de After se establece en TRUE, entonces el observador capturará los eventos después de que hayan sido procesados. En ese caso, no podrá cancelarlos.

- Tampoco es necesario un constructor en los observadores.

¿ Intentaste crear un observador del formulario ?. ¿ Por ?. ¿ Lo viste necesario al principio ?.

Subo tu ejemplo modificado. Comprueba hasta donde llegan los cambios. A ver si me bajo los dos ejemplos que hiciste del mismo y los comparo con la aplicación "Meld".

Saludos

EjemploEventosPeloton-0.0.1.tar.gz
Descripción:	Ejemplo de eventos y observadores de Jsbsan, modificado.	Descargar
Nombre del archivo:	EjemploEventosPeloton-0.0.1.tar.gz
Tamaño:	5.35 KB
Descargado:	42 veces

EjemploEventosPeloton-0.0.1.tar.gz
Descripción:	Ejemplo de eventos y observadores de Jsbsan, modificado.	Descargar
Nombre del archivo:	EjemploEventosPeloton-0.0.1.tar.gz
Tamaño:	5.35 KB
Descargado:	42 veces

EjemploEventosPeloton-0.0.1.tar.gz
Descripción:	Ejemplo de eventos y observadores de Jsbsan, modificado.	Descargar
Nombre del archivo:	EjemploEventosPeloton-0.0.1.tar.gz
Tamaño:	5.35 KB
Descargado:	42 veces

===================
Gambas Básico
"No es un bug, es una característica no documentada"

#4 Sabado, 04 Abril 2020, 09:38

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Uso De Correcto Excepciones: TRY	jsbsan	General	7	Domingo, 20 Abril 2014, 21:25 leonel
¿ Qué Forma Os Parece Más Correcta Para...	Shell	General	4	Viernes, 20 Febrero 2015, 13:51 Shell
Averiguar Cuál Es El Programa Que Abre Un...	shordi	General	7	Lunes, 27 Abril 2015, 12:50 shordi
Entrada De DNI Correcto.	frajanic	Aplicaciones/Fragmentos de Código	0	Sabado, 27 Junio 2015, 20:14 frajanic

Página 1 de 1

Fecha y hora actual: Martes, 14 May 2024, 06:15 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.3381s (PHP: -51% SQL: 151%)
Consultas SQL: 33 - Debug off - GZIP Activado

Design by Mighty Gorgon