\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
Dim truman As New Capitan("truman")
Dim ryan As New Soldado("Ryan")
Dim rambo As New Soldado("Rambo")
truman.setOrden("tomar posicion enemiga")
TextLabel1.text &= "Nombre:" & truman.DevuelveNombre()
TextLabel1.text &= "Orden: " & truman.orden()
TextLabel1.text &= "Nombre:" & rambo.DevuelveNombre()
TextLabel1.text &= "Orden: " & rambo.orden()
rambo.EstablecerMando(truman) \'ahora el mando de Rambo es Truman.
TextLabel1.text &= "Se ha establecido su mando (que es " & rambo.getMando().getNombre() & "), y su orden es: " & rambo.orden()
TextLabel1.text &= "Nombre:" & ryan.DevuelveNombre()
TextLabel1.text &= "Orden: " & ryan.orden()
TextLabel1.text &= "Se establece como mando del soldado " & ryan.getNombre() & " a " & rambo.getNombre() & "<br>"
ryan.EstablecerMando(rambo)
TextLabel1.text &= "El soldado " & ryan.getNombre() & ", tiene de mando " & ryan.getMando().getnombre() & ", y su orden es: " & ryan.orden()
End