document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   Dim truman As New Capitan("truman")
  10.   Dim ryan As New Soldado("Ryan")
  11.   Dim rambo As New Soldado("Rambo")
  12.  
  13.   truman.setOrden("tomar posicion enemiga")
  14.  
  15.   TextLabel1.text &= "Nombre:" & truman.DevuelveNombre()
  16.   TextLabel1.text &= "Orden: " & truman.orden()
  17.  
  18.   TextLabel1.text &= "Nombre:" & rambo.DevuelveNombre()
  19.   TextLabel1.text &= "Orden: " & rambo.orden()
  20.  
  21.   rambo.EstablecerMando(truman) \'ahora el mando de Rambo es Truman.
  22.  
  23.   TextLabel1.text &= "Se ha establecido su mando (que es " & rambo.getMando().getNombre() & "), y su orden es: " & rambo.orden()
  24.  
  25.   TextLabel1.text &= "Nombre:" & ryan.DevuelveNombre()
  26.   TextLabel1.text &= "Orden: " & ryan.orden()
  27.   TextLabel1.text &= "Se establece como mando del soldado " & ryan.getNombre() & " a " & rambo.getNombre() & "<br>"
  28.   ryan.EstablecerMando(rambo)
  29.   TextLabel1.text &= "El soldado " & ryan.getNombre() & ", tiene de mando " & ryan.getMando().getnombre() & ", y su orden es: " & ryan.orden()
  30.  
  31. End
');