document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private hmando As Unidad
  4. Private hnombre As String
  5.  
  6. Public Sub establecerMando(mando As Unidad)
  7.  
  8.   hmando = mando
  9.  
  10. End
  11.  
  12. Public Sub getMando() As Unidad
  13.  
  14.   If IsNull(hmando) Then
  15.     Return Null
  16.   Else
  17.     Return hmando
  18.   Endif
  19.  
  20. End
  21.  
  22. Public Sub _new(nombre As String)
  23.  
  24.   hnombre = nombre
  25.  
  26. End
  27.  
  28. Public Function DevuelveNombre() As String
  29.  
  30.   Return hnombre & "<br>"
  31.  
  32. End
  33.  
  34. Public Function orden() As String
  35.  
  36.   If hmando = Null Then
  37.     Return "(sin ordenes)" & "<br>"
  38.   Else
  39.    
  40.     Return hmando.orden()
  41.   Endif
  42.  
  43. End
  44.  
  45. Public Sub setNombre(valor As String)
  46.  
  47.   hnombre = valor
  48.  
  49. End
  50.  
  51. Public Function getNombre() As String
  52.  
  53.   Return hnombre
  54.  
  55. End
');