AFFICHER LE WAVEFORM D'UN WAV
Kallimakhos
Messages postés
6
Date d'inscription
lundi 20 août 2001
Statut
Membre
Dernière intervention
28 février 2007
-
23 mars 2002 à 22:50
yanthorpes91 Messages postés 3 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 27 octobre 2004 - 5 déc. 2004 à 20:19
yanthorpes91 Messages postés 3 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 27 octobre 2004 - 5 déc. 2004 à 20:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2886-afficher-le-waveform-d-un-wav
https://codes-sources.commentcamarche.net/source/2886-afficher-le-waveform-d-un-wav
5 déc. 2004 à 20:19
30 juil. 2004 à 22:04
C'est sympa [:)] !!
18 mai 2002 à 15:41
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...
11 avril 2002 à 11:23
10 avril 2002 à 21:30
25 mars 2002 à 14:42
24 mars 2002 à 18:13
@+
24 mars 2002 à 14:08
Si quelqu'un sait lire les fichiers mid, ca m'intéresse vachement !
23 mars 2002 à 22:50