Ejemplo de programa orientado a eventos: Pelotón

Ejemplo de programa orientado a eventos

En este ejemplo vamos a ver como programar usando eventos y observadores.  Se basa en que cuando se produce un evento en un objeto del programa, este evento se propaga por toda la aplicación haciendo que los objetos que lo estuvieran observando  ejecuten el código que tengan asociado a dicho evento.



Eston son los comandos que vamos a usar:
Event: es un comando que hace que se declare un evento dentro de una clase (verhttp://gambaswiki.org/wiki/lang/eventdecl?l=es&w )

EVENT Nombre ( [ Parámetro #1 [ , Parámetro #2 ... ] )

Raise: es un comando que hace que se dispare el evento. (verhttp://gambaswiki.org/wiki/lang/raise?l=es&w )

[ Cancelado = ] RAISE Evento ( [ Parámetro #1 [ , Parámetro #2 ... ] )

Observer: Los Observadores son objetos que le permiten interceptar eventos lanzados por otros objetos, es decir que los "observan". (ver http://gambaswiki.org/wiki/comp/gb/observer/_new?l=es&w )

hObserver = New Observer ( Object As Object [ , After As Boolean ] )

Nuestro Ejemplo:



Tenemos varios objetos "peloton" los cuales cuando son atacados (evento atacar), informan a sus superiores (que los estan observando), para que tomen las acciones adecuadas.

 Este es el código de la clase Pelotón:
' gambas class file

Event ataque(obj As Object, dato As Point)
Private posicion As New Point

Public Sub _new(xx As Integer, yy As Integer)
'posicion en el tablero

posicion.X = xx
posicion.y = yy

End

Public Sub SiendoAtacado()

Raise ataque(Me, posicion)

End


Como veis, hemos declarado un evento, "ataque", que acepta los parametros obj (un objeto) y dato (una coordenada)
Cuando se ejecuta el método "SiendoAtacado()", este hace que se dispare en el programa, el evento ataque, pasando los datos (parámetros) el propio objeto (ME) y su posicion.


Ahora vemos,la clase ControlDeTropas:
' gambas class file

Private ObservadorControl2 As Observer

Public Sub _new()

End

Public Sub addObservador(p As Peloton)

ObservadorControl2 = New Observer(p) As "Observador"

End

Public Sub Observador_ataque(obj As Object, d As Point)

Print "Posicion atacada (evento desde objeto): ", obj, d.x, d.y

End 


Comentamos el código:
Lo primero que hacemos es definir un observador: ObservadorControl2
Luego tenemos el metodo publico .addObservador, que tiene como parámetro a un objeto peloton, y que lo que hace es crear un observador al objeto pasado , agrupandolo en "Observador"

"Observador" tiene ahora un evento "_ataque", que recibe los datos del objeto y de la posición (losdatos que manda Raise). Y nos presenta un texto por pantalla. Esto  de escribir un mensaje, es una simplificación, no normal seria que hiciera algo: mandar ayuda (otro peloton) a esa posición, etc


La clase ServiciosSanitarios:
' gambas class file

Private ObservadorControl As Observer

Public Sub _new()

End

Public Sub addObservador(p As Peloton)

ObservadorControl = New Observer(p) As "Observador"

End

Public Sub observador_ataque(obj As Object, d As Point)

Print "Posicion que tengo que enviar ayuda (evento desde objeto): ", obj, d.x, d.y

End


Esta clase es muy similar a la anterior, lo que cambia es la acción que realizará cuando se produzca el evento  _Ataque(), ya que nos muestra distitno mensaje

El principal Fmain

:

' gambas class file

Public cTropas As ControlTropas
Public ServSani As ServiciosSanitarios
Public ptmp As Peloton
Public listaPelotones As New Peloton[]

Public Sub _new()

End

Public Sub Form_Open()

cTropas = New ControlTropas
ServSani = New ServiciosSanitarios

ptmp = New Peloton(10, 243)
listaPelotones.add(ptmp)
ptmp = New Peloton(130, 3)
listaPelotones.add(ptmp)
ptmp = New Peloton(-2, -53)
listaPelotones.add(ptmp)

For Each ptmp In listaPelotones
cTropas.addObservador(ptmp)
ServSani.addObservador(ptmp)
Next

End

Public Sub Button1_Click()

Dim p As Peloton

If RadioButton1.value = True Then p = listaPelotones[0]
If RadioButton2.value = True Then p = listaPelotones[1]
If RadioButton3.value = True Then p = listaPelotones[2]

p.SiendoAtacado()

End

En el programa pincipal, cuando se abre el formulario (_open() ) se crea una lista de objetos pelotones. y estos se van añadiendo a los objetos cTropas y ServSani, para que los observen.

Si se elige a un peloton dependiendo del radiobutton seleccionado. elegido y se pulsa el boton del formulario (button1_click) , , se llama al método ".siendoAtacado" del peloton seleccionado.

De una manera "trasparente" .siendoAtacado, hace que se dispare el evento Ataque, y que los objetos que observan al peloton elegido, respondan y manden los mensajes.


En el siguiente video podemos ver como se ejecuta el programa y lo que se va obteniendo.

¿que utilidad tiene todo esto? Imaginaos que creamos otra clase "X" que tambien va a observar y hacer algo cuando un peloton sea atacado....solo con  añadir el código de la nueva clase, y modificando el bucle For Each,  para que observen los objetos pelotones por el objeto "X", podemos ampliar el código, sin tocar el resto del programa:

For Each ptmp In listaPelotones
cTropas.addObservador(ptmp)
ServSani.addObservador(ptmp)
'.....aqui se pueden añadir los  nuevos objetos que observen a ptmp
Next



'Codigo fuente de ejemplo:
https://drive.google.com/file/d/0B02Ro2CNt-OOSjUtc2RGRG1OS00/edit?usp=sharing
https://drive.google.com/file/d/0B02Ro2CNt-OOQUw0UnhZdEV2c3c/edit?usp=sharing

El 2º enlace es un ejemplo ampliado, añadiendo un nuevo observdor al formulario

Nota:
Todo lo anteriormente dicho, se trata de la forma que tiene gambas3 de aplicar el patron observador.
Como vereis es más simple ya que nos proporciona todas las herramientas para aplicarlo.


Fuente:
http://gambaswiki.org/wiki/doc/object-model?l=es 
http://www.gambas-es.org/viewtopic.php?f=1&t=3960&highlight=eventos