document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_show()
  8.  
  9.   \'creo la sala
  10.   Dim s As New SalonDeChat(TextLabelConversacion)
  11.  
  12.   \'creo a los usuarios,pasandoles la referencia de la sala
  13.   Dim u0 As New Usuario(s)
  14.   Dim u1 As New Usuario(s)
  15.   Dim u2 As New Usuario(s)
  16.  
  17.   \'doy algunas propiedades a los usuarios
  18.   u0.setnombre("Juan")
  19.   u0.colortexto = "red"
  20.   u1.setnombre("Pepe")
  21.   u1.colortexto = "blue"
  22.   u2.setnombre("Pedro")
  23.   u2.colortexto = "orange"
  24.  
  25.   \'registros los usuarios en la sala (para que la sala tenga la referencia de ellos)
  26.   s.registra(u0)
  27.   s.registra(u1)
  28.   s.registra(u2)
  29.  
  30.   \'conversacion:
  31.  
  32.   u0.envia("Pepe", "¿hola como andas?")
  33.   u1.envia("Juan", "¿todo bien, y uds?")
  34.   u2.envia("Martin", "¿Martin estas?")
  35.   u2.envia("Pepe", "Hola Pepe, soy Pedro")
  36.   u0.envia("Pedro", "Hola que tiempo sin verte")
  37.   s.cierra()
  38.  
  39. End
  40.  
  41. Public Sub ToolButtonSalir_Click()
  42.  
  43.   Me.Close()
  44.  
  45. End
  46.  
  47. Public Sub Form_Open()
  48.  
  49. End
');