trouver valeur max

Je cherche une façon ultra rapide de trouver la valeur maximale d'une grande liste de nombres. Il n'est donc pas question ici de commencer à comparer des nombres dans une boucle...

Une solution pourrait être une API (que je ne connais pas) qui s'appliquerait sur un bloc de mémoire en spécifiant un pointeur et une dimention.

Une autre solution pourrait être une fonction (que je ne connais pas) qui s'appliquerait sur un tableau. Je sais déjà comment remplir ce tableau très rapidement en copiant un bloc de mémoire directement dans ce tableau.

Merci de m'aider

Bonjour,
Je pense que le plus rapide est belle et bien une boucle.

@+: SCCréat
Pensez:  Réponse acceptée

Mail:Stéphan.COCHET

c'est quoi un bloc de mémoire ? des pointeurs ?? de toute façon, tu n'as pas le choix que de comparer des valeurs entre elles, puisque tu veux le max des valeurs, donc une boucle ... par contre, c'est elle qu'il faudra optimiser, la base est simple : while if tab(n) > tab(n+1) then mavaleur = tab(n) wend

Pas le choix de comparer des valeurs... Donc, faut une boucle?

Dans Excel il y a une fonction qui compare des valeurs...sans faire de boucle...    

Max(liste de nombres ou plage d'adr contenant des nombres)

C'est quoi un bloc de mémoire, un pointeur?
Si tu sais ce qu'est une API alors examine celle-ci:

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

· Destination
Points to the starting address of the copied block's destination.

· Source
Points to the starting address of the block of memory to copy.

· Length
Specifies the size, in bytes, of the block of memory to copy.

Une API ça s'écrit, encore faut-il avoir qlq détail.
Quel type tes nombres, intt16, int32, single, double ?

ciao...
BruNews, MVP VC++

"Dans Excel il y a une fonction qui compare des valeurs...sans faire de boucle..." < Ah !! Bon ! Parce que tu connais le code exécuter par la fonction Max d'Excel toi ? Tu croit vraiment qu'il n'y a pas de boucle dans le Max() !! Moi, je pense qu'il y en a une. Quel que soit ce ue tu utiliseras pour faire ca, tu auras une boucle. La seule différence, c'est que si tu fais ta boucle en C ou mieux en ASM, ca va booster bien plus qu'une boucle en VB6 !! Tu parles de bloc mémoire, de pointeur et de dimension. Pour ballader ton ptr du début à la fin du bloc, il te faudra bien une boucle ! Ou alors tu es magicien !

Salut BruNews

Mes nombres proviennent de fichiers wave de 8 bits et 16 bits et il est inutile de préciser qu'il y en a plusieurs millions dans chaque fichier alors les boucles en VB c'est pas ce qu'il y a de mieux.

Présentement, j'utilise l'API  ReadFile pour placer ces nombres directement dans un tableau dimentionné soit en Bytes ou en Integer. C'est ultra rapide! Il faut à peine quelques mSec!

Mais çà se gâte quand je travaille avec ce tableau pour extraire les valeurs crêtes de blocs de 128 échantillons en faisant une boucle en VB. Il me faut 12 sec pour traiter un fichier de 6 millions d'échantillons alors qu'un logiciel du commerce le fait en 3 ou 4 sec. Voilà pour la lenteur de VB!

Tu dis être capable d'en écrire une?
Je sais que les API sont livrées dans des DLL et qu'il est possible d'écrire des DLL mais pour qu'elles soient rapide il ne faut pas le faire en VB. D'après ce que j'en sais, C++ est beaucoup mieux.

J'espère que cela répond à ta question.
Merci

Declare Sub bnGetInt16MinMax Lib "vbMinMax.dll" (ByRef ptab As Integer, ByVal nelems As Long, ByRef pMin As Integer, ByRef pMax As Integer)
les 2 bornes min et max retournées dans pMin et pMax, OK ?

exemple:
Declare Sub bnGetInt16MinMax Lib "vbMinMax.dll" (ByRef ptab As Integer, ByVal nelems As Long, ByRef pMin As Integer, ByRef pMax As Integer)

Dim T(100) As Integer
Dim a, b
' remplir T de 100 valeurs int16
bnGetInt16MinMax(T(0), 100, a, b)
debug.Print a
debug.Print b

et la meme en 8 bits: bnGetInt8MinMax

les valeurs sont à considérer en unsigned ?

ciao...
BruNews, MVP VC++

Exemple fait sur Excel, je n'ai pas VB.

Option Explicit

' RECHERCHE BORMES MIN ET MAX SUR ENTIERS 16 BITS
Declare Sub bnGetInt16MinMax Lib "D:\vbMinMax.dll" (ByRef ptab As Integer, ByVal nelems As Long, ByRef pMin As Integer, ByRef pMax As Integer)
Declare Sub bnGetWordMinMax Lib "D:\vbMinMax.dll" (ByRef ptab As Integer, ByVal nelems As Long, ByRef pMin As Integer, ByRef pMax As Integer)

Sub DireInt16MinMax()
  Dim cel As Range
  Dim n As Integer, a, z
  Dim T(100) As Integer
  Set cel = Range("A1")
  n = 100
  Do
    T(n) = CInt(cel.Value)
    Set cel = cel.Offset(1, 0)
    n = n - 1
  Loop While n >= 0
 
  bnGetInt16MinMax T(0), 100, a, z
  ' SI TRAVAIL EN UNSIGNED UTILISER bnGetWordMinMax AVEC MEMES PARAMS
 
  Debug.Print a
  Debug.Print z
End Sub

DLL (2,5 Ko) ici: http://brunews.com/vbMinMax.zip

ciao...
BruNews, MVP VC++

Merci pour ton travail BruNews!
Malheureusement je ne réussi pas à faire fonctionner cette DLL.
Voici ce que j'ai fait:

1-J'ai d'abord déclaré les 2 fonctions dans un module:
Public Declare Sub bnGetInt16MinMax Lib "vbMinMax.dll" ( _
        ByRef ptab As Integer, _
        ByVal nelems As Long, _
        ByRef pMin As Integer, _
        ByRef pMax As Integer)

Public Declare Sub bnGetInt8MinMax Lib "vbMinMax.dll" ( _
        ByRef ptab As Integer, _
        ByVal nelems As Long, _
        ByRef pMin As Integer, _
        ByRef pMax As Integer)

2-J'ai ensuite écrit un code test dans un formulaire:
Public Sub btnTEST_Click()
    Dim T(100) As Integer
    Dim a, b, rt
    ' remplir T de 100 valeurs int16
    For rt = 0 To 99
        T(rt) = rt + 5
    Next

    rt = bnGetInt16MinMax(T(0), 100, a, b)
    Debug.Print a
    Debug.Print b
Exit Sub

=> J'ai obtenu le message suivant:
Erreur de compilation:
Function ou variable attendue

Alors je me suis dit qu'il fallait enrégistrer cette dll; ce que j'ai fait en utilisant la ligne de commande suivante: 
regsvr32 C:\windows\system\vbMinMax.dll

=> J'ai obtenu le message suivant:
C:\windows\system\vbMinMax.dll was loaded, but the DllRegisterServer entry point was not found.

DllRegisterServer may not be exported, or a corrupt version of C:\windows\system\vbMinMax.dll may be in memory. Consider using Pview to detect and remove it.

J'ai donc utilisé mon Pview pour voir tous les process actifs et il n'y avait pas trace de vbMinMax.dll.
Peut-être que le fichier n'est pas correct ou qu'il est corrompu...
...Il a pourtant fonctionné avec ton Excell!

Je vais le retélécharger et le réessayer...au cas où il aurait été corrompu lors du téléchargement (mais j'en doute).

Ce serait bien si d'autres personnes pouvaient l'essayer avec un code VB et poster ici leur résultat.

Tes 2 fonctions semblent répondre à mes besoins mais il va y avoir un autre petit problème que voici:

Les fichiers wave ont 1 ou 2 canaux et les données sont ordonnées en conséquence. Le tableau qui recevra ces données doit être dimentionné en conséquence.
 
Ceci veut dire que pour un fichier wave à 1 canal, le tableau doit avoir 1 seule dimention (0  à  N-1 échantillons).
Pour un fichier wave à 2 canaux, ce sera 2 dimentions (0 à 1, 0 à N-1).

Il faudrait avoir la possibilité d'extraire les valeurs Min Max pour chacun des 2 canaux (si il y en a 2).
Il suffirait donc d'ajouter une autre variable à tes fonctions...

Encore une fois merci pour ton aide.