\' 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