determination de la frequence d'un son simple

Question

salut &#224; tous

comme on dit, j'ai un pb !!!!!
le voil&#224; :
j'ai besoin de d&#233;coder un son qui arrive sur la carte son.
en fait de sons, il s'agit de frequence DTMF standard. je connais ces differentes frequences et &#224; quelles touches cela correspond. pas de probleme.
par contre, je ne sais pas comment recup&#233;rer ce son pour en extraire sa frequence.

pourriez vous m'aider l&#224; dessus.

Merci &#224; tous

neodelphi · Answer

R&#233;cup&#233;rer le son depuis la carte je peu pas te dire comment faire, mais pour ce qui est de trouver sa fr&#233;quence tu peut chercher cot&#233; des FFT (transform&#233;es de fourier rapides).

neodelphi

neodelphi · Answer

"Acquisitionner" 
Si tu veut le faire toi meme comme un pro je pense qu'il doit &#234;tre possible de trouver les infos sur la MSDN et utiliser les API windows. J'ai essay&#233; pour faire de la capture video &#224; l'aide de la carte gr&#226;phique.
Bon courage

neodelphi

ffroggy · Answer

Slaut &#224; tous,

merci pour vos infos.
alors pour "Acquisitionner" !! j'dirais plutot acqu&#233;rir hi 
mais c rien, tu as repondu c bien et merci.
en ce qui concerne donc ce fameux son que je ve acquerir et decoder,
j'ai vu avec le composant WaveIn. la demo est bien c'est kler, mais comme ont dit NeoDelphi et GrandVizir, c'est pas encore fini.
Le son repr&#233;sente ce que vous avez qd vous faites un num&#233;ro de telephone. c'est le meme son que je dois decoder, ni plus ni moins, encore faut il que j'y arrive.
Alors aussi, les maths et Fourrier, on est pas trop copain hi 
Si quelqu'un en connait plus que moi, et c'est facile, pourrait il m'en dire plus sur le principe. car je vois pas tres bien &#224; quoi peut servir cette transform&#233;e, au risque de paraitre vraiment idiot. excusez moi.

Merci pour votre aide &#224; tous

ffroggy · Answer

ah, j'ai encore oubli&#233;,

je bosse sur Delphi 7.

merci

neodelphi · Answer

Hummm pour ce qui est de l'acquisition, je serai toi je chercherai du cot&#233; des api windows avant d'utiliser un composant, ou alors d&#233;cortiquer le composant pour en extraire ce qui t'es utile... c'est plus long mais aussi plus p&#233;dagogique !

Pour ce qui est de la transform&#233;e de fourier, je n'en connai que le nom et les application, &#231;a consiste en gros &#224; d&#233;composer un signal p&#233;riodique (ou presque) en une multitude de fr&#233;quences. Mais si dans ton cas le signal ne comporte qu'une seule fr&#233;quence (en ignorant les parasites l&#233;ger de l'entr&#233;e), tu doit avoir moyen de bricoler &#231;a toi meme sans fourier: par exemple relever les temps ou le signal est le plus fort, et calculer la moyenne s&#233;parant deux "pics" de son... &#231;a doit etre simple &#224; faire &#231;a.

neodelphi

ffroggy · Answer

salut &#224; tous,

je reviens pour vous donner qques infos de l'avancement, &#231;&#224; peut servir ....

alors en ce qui concerne le son qu arrive sur la carte, j'ai utilis&#233; WaveIn.
pour le decodage dtmf, j'ai trouv&#233; dsplab mais pas finalis&#233; encore &#231;&#224;.
par contre je me suis rendu compte que j'utilise la fonction suivante donc voici un bout de code :
procedure TForm1.WaveIn1BufferFull(Sender: TObject);
var
  i: Integer;
begin
  ProgressBar1.Position:= WaveIn1.Level*3;
  try
    DTMF.Threshold:= 0; // Seuil amplitude
    for i:=0 to WaveIn1.BufferLength-1 do
      begin
        DTMF.Put(WaveIn1.data[i]);
      end;
    DTMF.Finilize;
  finally
    Wave.Free;
  end;
end;

mais lorsque le signal re&#231;u est assez court, tout va bien, je decode mon dtmf
par contre si je reste coinc&#233; sur ma touche dtmf, l&#224; par contre mon appli va m'en compter 2, 3 ou 4 ... alors que je n'ai appuy&#233; qu'une seule fois, mais longtps.

que puis je utiliser comme fonction de WaveIn je pense pour justement ne prendre que les 25 premieres milliseconde du tone re&#231;u ?
ou bien que puis je faire autrement (timer, ...) ? je seche l&#224;...

Merci pour votre aide.

jlen100 · Answer

salut 

le probl&#232;me du timer c'est qu'il n'est intialiser qu'apr&#232;s la sortie de
la proc&#233;dure.Essayes d'utliser le double click ou l'&#233;vement on mouseup
qui ne d&#233;clenchera la proc&#233;dure qu'apr&#233;s relachemnt de la touche.

bonne prog

ffroggy · Answer

salut,

ton idee est bien mais ds mon appli, elle devra au futur etre totalement autonome sans aucune intervention de declenchement manuel (relais radioamateur).
Y'a t il un autre moyen d'intercepter et de "brider" le tps d'acquisition qui est mon pb en ce moment.
par contre je decode parfaiement sans erreur, or mis qu'il me double de tps en tps les tones si elles sont trop longues.

Merci

jlen100 · Answer

est-ce que tu peux piloter ton relai?

ffroggy · Answer

oui, mon relais si tu ve sera autonome. et en veille.
mais lorsqu'il re&#231;oit un code DTMF donn&#233;, il passe en emission apres decodage avec l'envoi des infos coorespondantes au code donn&#233;.
c'est pour &#231;&#224; que le code dtmf doit etre autonome et fiable lorsque l'appli va le decoder.

jlen100 · Answer

qu'est ce qui declenche ta procedure?

jlen100 · Answer

je m'explique:

quand tu re&#231;ois le signal tu envoies l'ordre au relai c'est cela?

comme il n'est pas possible d'utilser un timer directement dans la
procedure pour interrompre la procedure (il faut sortir de la procedure
pour que le timmer soit reelement intialiser on peut se servir du temps
de r&#233;ponse du relai pour arr&#234;ter la procedure;

&#224; la r&#233;ception du collage on interrompt la procedure. pour cela on peut utliser la sortie imprimante.

ffroggy · Answer

non c'est pas tt &#224; fait &#231;&#224;.
mon relais sera activ&#233; apres. je m'explique :
pour activer le relais il faut qu'il recoive un code dtmf ex *0 et # pour valider la cde
des que je decode le #, je declnche une fonction ki va ouvrir le relais par ex.
mais le pb n'est pas l&#224;. le pb est que le decodage dtmf est pas fiable ds le sens ou je decode plusieur "0" par ex car la personne a l'autre bout ki fait le code a appuy&#233; plus longtps sur sa touche. donc avec &#231;&#224; c pas fiable. je cherche donc un moyen qui va me permettre justement de toujours decoder un son dtmf de meme longueur pour avoir tjrs la meme reference de decodage.
procedure :
code dtmf re&#231;u -> decodage pendant xx ms -> arret de "l'ecoute" -> decodage et enregistrement du caractere re&#231;u -> reprise de l'ecoute du chiffre suivant -> ......

voil&#224;

Merci

jlen100 · Answer

comme le timer ne fonctionne pas dans ce cas on peut utiliser une
boucle for to pour faire une temporisation c'est bloquant mais efficace
et pour une vingtaine c'est acceptable compte environ 30000 &#224;
100000boucles pour 20ms  &#224; ajuster .

en fin de tempo tu interromps  le d&#233;codage.

tu peux aussi  appeller une fonction qui d&#233;cr&#233;mente une variable globale



var temps:integer;

function decomptetemps:boolean;

begin

     dec(temps);

    if temps=0 then result:=true else reult:=false;

end;



dans ta fonction &#224; l'entr&#233;e tu intialises temps par exemple &#224; 30000

puis dans ta boucle de d&#233;codage 

if decomptetemps then fin de decodage;

DeltaFX · Answer

Dans ton exemple, entre 0 et #, vu que c'est un humain qui tape, il y a
forcement un blanc, donc si ton prog d&#233;tecte 3 ou 4 z&#233;ro &#224; la suite
sans blanc, c'est que la touche &#224; &#233;t&#233; appuy&#233;e plus longtemps que
necessaire. Reste &#224; faire un filtre du genre:



if DecodedChar = PreviouslyDecodedChar and not PreviousCharFollowedByBlank then

DumpDecodedChar;

ffroggy · Answer

salut,

ok pour ton filtre, mais il faudrait alors que je l'integre o&#249; ?
jsute avant de "valider" le caractere d&#233;cod&#233; ?
du style :

if DecodedChar =  PreviouslyDecodedChar  and not  PreviousCharFollowedByBlank then
   begin
      DumpDecodedChar;
      exit;
   end
else
   Edit1.Text: = Edit1.Text + Tone;

ensuite, les variables DecodedChar, previouly, ... sont de quel type ?

merci pour ton aide

ffroggy · Answer

salut,

ok pour ton filtre, mais il faudrait alors que je l'integre o&#249; ?
jsute avant de "valider" le caractere d&#233;cod&#233; ?
du style :

if DecodedChar =  PreviouslyDecodedChar  and not  PreviousCharFollowedByBlank then
   begin
      DumpDecodedChar;
      exit;
   end
else
   Edit1.Text: = Edit1.Text + Tone;

ensuite, les variables DecodedChar, previouly, ... sont de quel type ?

merci pour ton aide

fersouce · Answer

Salut ffroggy,
je ne vais apporté rien mais au contraire je veut savoir si tu a réussi a faire 1 pgm qui fait la distinction entre les codes DTMF entrant en principe 1 an de recherche
tu maitrise le sujet

agomopot · Answer

je suis etudiant en génie electrique et je suis interessé par ce que vous aurez pu decouvrir, je fais aussi la detectio des fréquences des touches DTMF et je ne sais par où commener,je voudrais que vous m'aidiez

Determination de la frequence d'un son simple

19 réponses

Votre réponse

Discussions similaires