Advertisement
jsbsan

conexion

Nov 29th, 2013
1,741
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.35 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Private conex As Conexion
  4.  
  5. Public Function conectar() As Conexion
  6.  
  7.   conex = New Conectado
  8.   Return conex
  9.  
  10. End
  11.  
  12. Public Function desconectar() As Conexion
  13.  
  14.   conex = New Desconectado
  15.   Return conex
  16.  
  17.  
  18. End
  19.  
  20. Public Function imprimirEstado() As String
  21.  
  22.   Print "Sin estado"
  23.   Return "Sin estado"
  24.  
  25.  
  26. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement