document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private c As New Conexion
  4.  
  5.  
  6. Public Sub _new()
  7.  
  8. End
  9.  
  10. Public Sub Form_Open()
  11.  
  12. TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\\n"
  13.  
  14. End
  15.  
  16. Public Sub ButtonSalir_Click()
  17.  
  18.   Me.Close()
  19.  
  20. End
  21.  
  22. Public Sub ButtonEstadoConectar_Click()
  23.  
  24. \'cambiamos de estado
  25. c = c.conectar()
  26. TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\\n"
  27. End
  28.  
  29. Public Sub ButtonEstadoDesconectar_Click()
  30.  
  31.  
  32. \'cambiamos de estado
  33. c = c.desconectar()
  34. TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\\n"
  35.  
  36. End
');