document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits ISalonDeConferencia
  4.  
  5. Private Asistentes As New Collection
  6. Private presentador As Conferenciante \'presentador es un objeto del tipo Conferenciante, si le pongo New tambien le tengo que definir en que sala esta
  7.  
  8. Public ZonaEscribe As TextLabel
  9.  
  10. Public Sub _new(z As TextLabel)
  11.  
  12.   ZonaEscribe = z
  13.   ZonaEscribe.text = "<br>Inicio de la conferencia...<br><br>"
  14.  
  15. End
  16.  
  17. Public Sub registraAsistente(PersonaAsistente As Asistente)
  18.  
  19.   Asistentes.Add(PersonaAsistente, PersonaAsistente.getNombre())
  20.  
  21. End
  22.  
  23. Public Sub registraPresentador(PersonaPresentador As Conferenciante)
  24.  
  25.   presentador = PersonaPresentador
  26.  
  27. End
  28.  
  29. Public Sub enviarRespuesta(a As Asistente, msg As String)
  30.  
  31.   a.RecibirRespuesta(msg)
  32.  
  33. End
  34.  
  35. Public Sub enviarPregunta(a As Asistente, msg As String)
  36.  
  37.   presentador.RecibirPregunta(a, msg)
  38.  
  39. End
  40.  
  41. Public Sub ActualizarDiapositiva(msg As String)
  42.  
  43.   Dim persona As Asistente
  44.  
  45.   For Each persona In Asistentes
  46.     persona.RecibirImagen(msg)
  47.   Next
  48.  
  49. End
  50.  
  51. Public Sub cierra()
  52.   \'esto se hace para cuando se deje de usar el objeto, no queden referencias circulares
  53.  
  54.   Asistentes = Null
  55.   presentador = Null
  56.  
  57. End
');