ESTIMATION LOI STABLE (MC KULLOCH) POUR UN DLL POUR EXCEL

Commentaire de BruNews le 03/06/2004 12:56:00 administrateur CS

pour obtenir *ptrTab en param dans ta DLL, tu passes bien tab(0) en byref depuis vb ?

Vois que les questions se posent dans le forum, une source doit etre un exemple FONCTIONNANT.
Si pas de maj de la source dans la soiree, je me verrai contraint d'enlever.

ciao...
BruNews, Admin CS, MVP Visual C++

Commentaire de BruNews le 04/06/2004 00:59:31 administrateur CS

Ben voila c'est deja fini et va impec.
Si prob tu postes ton mail et je t'envoie le proj et le xls.

Fichier CPP de SortXls.dll, je compile en mode C (non C++).

#include <windows.h>

int WINAPI DllMain(HINSTANCE hinst, unsigned long reason, void* x)
{
  return 1;
}

int dblComp(const void *arg1, const void *arg2)
{
  if(*(double*)arg1 > *(double*)arg2) return 1;
  if(*(double*)arg1 < *(double*)arg2) return -1;
  return 0;
}

// ICI LA FONCTION EXPORTEE, tableau double a trier croissant
// pas trouve plus court comme exemple
void __stdcall bnSortDbl(double *pdbl, int n)
{
  if(n < 2) return;
  qsort(pdbl, n, sizeof(double), dblComp);
}

----------------------------
Fichier SortXls.def

LIBRARY SortXls
EXPORTS
  bnSortDbl      @1

----------------------------
Module VB a inserer dans un Excel:

Option Explicit

Declare Sub bnSortDbl Lib "D:\SortXls.dll" (pArray As Double, ByVal nElem As Long)

Sub Test()
  Dim dArray(8) As Double, i As Long
  dArray(7) = 1.25
  dArray(6) = 5.25
  dArray(5) = 6.25
  dArray(4) = 4.25
  dArray(3) = 2.25
  dArray(2) = 3.25
  dArray(1) = 7.25
  dArray(0) = 8.25
  bnSortDbl dArray(0), 8
  For i = 0 To 7
    Debug.Print dArray(i)
  Next i
End Sub