Advertisement
jsbsan

moduloExtern

Dec 28th, 2013
1,965
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.58 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement