document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas module file
  2.  
  3. Library "test"
  4.  
  5. \'sumar....
  6. Public Extern sumar(a As Float, b As Float) As Float
  7.  
  8. \'Arrays de 1 dimension (vectores)
  9. Public Extern duplica(dimension As Integer, a As Float[], b As Float[])
  10.  
  11. \'Valorar tablero
  12. Public Extern ValorarTablero(tablero As Float[], ancho As Integer) As Float \'para tableros cuadrados...
  13.  
  14. Public Sub duplicaInicial(Avector As Float[], Bvector As Float[])
  15.  
  16.   Dim a As Integer
  17.  
  18.   Bvector.Resize(avector.count)
  19.  
  20.   UsoLibreriatest.duplica(avector.count, Avector, Bvector) \'uso funcion el vector Avector es multiplicado por 2
  21.  
  22. End
');