fmainconferencia

' Gambas class file

Public Sub Form_show()

  'creo la conferencia
  Dim confe As New SalonDeConferencia(TextLabelConversacion)

  'creo a los usuarios,pasandoles la referencia de la conferencia
  Dim u0 As New Asistente(confe)
  Dim u1 As New Asistente(confe)
  Dim u2 As New Asistente(confe)

  'creo al presentador
  Dim presentador As New Conferenciante(confe)

  'doy algunas propiedades a los asistentes y al presentador
  u0.setnombre("Juan")
  u0.colortexto = "red"
  u1.setnombre("Pepe")
  u1.colortexto = "blue"
  u2.setnombre("Pedro")
  u2.colortexto = "orange"

  presentador.colortexto = "green"

  'registros los usuarios en la sala (para que la sala tenga la referencia de ellos)
  confe.registraAsistente(u0)
  confe.registraAsistente(u1)
  confe.registraAsistente(u2)

  'añado al presentador a la sala
  confe.registraPresentador(presentador)

  'conversacion:
  presentador.enviarNuevaImagen("Pantalla Inicio: Estadisticas")
  TextLabelConversacion.text &= "<br>----------------------<br>"
  u0.enviarPregunta("¿que son mensuales o anuales?")
  presentador.enviarRespuesta(u0, "Son anuales")
  TextLabelConversacion.text &= "<br>----------------------<br>"
  presentador.enviarNuevaImagen("Pantalla Segunda: Datos Numericos")
  TextLabelConversacion.text &= "<br>----------------------<br>"
  presentador.enviarNuevaImagen(" Gracias por su asistencia")
  'termina la conferencia
  confe.cierra()

End

Public Sub ToolButtonSalir_Click()

  Me.Close()

End