unidad

' Gambas class file

Private hmando As Unidad
Private hnombre As String

Public Sub establecerMando(mando As Unidad)

  hmando = mando

End

Public Sub getMando() As Unidad

  If IsNull(hmando) Then
    Return Null
  Else
    Return hmando
  Endif

End

Public Sub _new(nombre As String)

  hnombre = nombre

End

Public Function DevuelveNombre() As String

  Return hnombre & "<br>"

End

Public Function orden() As String

  If hmando = Null Then
    Return "(sin ordenes)" & "<br>"
  Else

    Return hmando.orden()
  Endif

End

Public Sub setNombre(valor As String)

  hnombre = valor

End

Public Function getNombre() As String

  Return hnombre

End