document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub Form_show()
  4.  
  5.   \'creo la conferencia
  6.   Dim confe As New SalonDeConferencia(TextLabelConversacion)
  7.  
  8.   \'creo a los usuarios,pasandoles la referencia de la conferencia
  9.   Dim u0 As New Asistente(confe)
  10.   Dim u1 As New Asistente(confe)
  11.   Dim u2 As New Asistente(confe)
  12.  
  13.   \'creo al presentador
  14.   Dim presentador As New Conferenciante(confe)
  15.  
  16.   \'doy algunas propiedades a los asistentes y al presentador
  17.   u0.setnombre("Juan")
  18.   u0.colortexto = "red"
  19.   u1.setnombre("Pepe")
  20.   u1.colortexto = "blue"
  21.   u2.setnombre("Pedro")
  22.   u2.colortexto = "orange"
  23.  
  24.   presentador.colortexto = "green"
  25.  
  26.   \'registros los usuarios en la sala (para que la sala tenga la referencia de ellos)
  27.   confe.registraAsistente(u0)
  28.   confe.registraAsistente(u1)
  29.   confe.registraAsistente(u2)
  30.  
  31.   \'añado al presentador a la sala
  32.   confe.registraPresentador(presentador)
  33.  
  34.   \'conversacion:
  35.   presentador.enviarNuevaImagen("Pantalla Inicio: Estadisticas")
  36.   TextLabelConversacion.text &= "<br>----------------------<br>"
  37.   u0.enviarPregunta("¿que son mensuales o anuales?")
  38.   presentador.enviarRespuesta(u0, "Son anuales")
  39.   TextLabelConversacion.text &= "<br>----------------------<br>"
  40.   presentador.enviarNuevaImagen("Pantalla Segunda: Datos Numericos")
  41.   TextLabelConversacion.text &= "<br>----------------------<br>"
  42.   presentador.enviarNuevaImagen(" Gracias por su asistencia")
  43.   \'termina la conferencia
  44.   confe.cierra()
  45.  
  46. End
  47.  
  48. Public Sub ToolButtonSalir_Click()
  49.  
  50.   Me.Close()
  51.  
  52. End
');