AFFICHER LE WAVEFORM D'UN WAV

Commentaire de Kallimakhos le 23/03/2002 22:50:33

Génial ! En mot à voir ... Sugestion : ajouter de quoi lire les sons et pourquoi pas un curseur qui suit l'onde au fur et à mesure de la lecture... Bonne prog à tous !

Commentaire de vanpet le 24/03/2002 18:13:26

Pour Patrice99 : si tu es capable de faire un analyseur de spectre, tu m'interesse vachement pour mon projet de musique, voir rubrique labo "VBFrance Music Studio"
@+

Commentaire de intello2001 le 10/04/2002 21:30:10

c'est super mais dommage qui ne lit pas tout les fichier

Commentaire de Proger le 18/05/2002 15:41:11

Analyseur de spectre tadiiin :

Function FDT(ElCnt, ByRef ls(), Sortie() As Double, Harmonique As Long) As Long
'tranformé discrete de Fourier
'code issue d'un cours d'algo, retranscrit et intégré pour VB par Proger
'même s'il sais pas trop a quoi correspond ce truc
'Parametre :
'ElCnt = longueur de Ls() - on aurai pu le faire avec UBound, mais bon...
'Ls() : tableau des valeurs a analyser
'Sortie() : pointe vers un tableau qui contiendra le résultat de l'analyse
'Harmonique : indiquez ici une valeur d'harmonique (entre 1 et 48 c'est bien), ca sera egal a la longueur de Sortie()

'plus l'harmonique est élevé, plus il y a de ... je sais pas.
Dim nCos() As Double
Dim nSin() As Double
Dim Harmonique As Integer
Dim Fondamentale As Double  'est inutilisé, je sais pas pourquoi
maxech = ElCnt  'longueur d'échantillon a traité
ReDim nCos(maxech) As Double
ReDim nSin(maxech) As Double
ech = ElCnt  'longueur totale de l'echantillon reçu
If Harmonique = 0 Then Harmonique = 1
PI = 3.1415926535893
For i = 1 To maxech
    Fondamentale = Fondamentale + ls(i)
Next i
Fondamentale = Fondamentale / maxech
For i = 1 To Harmonique
    For j = 1 To maxech
        nCos(j) = nCos(j) + ls(j) * Cos(i * (ech / (maxech * 2 * PI)))
        nSin(j) = nSin(j) + ls(j) * Sin(i * (ech / (maxech * 2 * PI)))
    Next j
    nCos(i) = 2 * nCos(i) / ech
    nSin(i) = 2 * nSin(i) / ech
Next i
Fondamentale = Fondamentale * Fondamentale
ReDim Sortie(Harmonique) As Double
For i = 1 To Harmonique 'truc de Parceval
    Sortie(i) = nCos(i) * nCos(i) + nSin(i) * nSin(i)
Next i
FDT = Harmonique 'oui bon ça, ça sert a rien :)
End Function

J'ai fait marcher ce code devant qqun qui m'a dit que "c'est ça, c'est bon, tu as le trucmuche de Fourier de ton signal" , mais moi j'ai rien compris, alors inutile de me demander de l'aide...