Accueil > > > ENREGISTREUR WAVEIN, FILTRE ET ANALYSE SPECTRALE
ENREGISTREUR WAVEIN, FILTRE ET ANALYSE SPECTRALE
Information sur la source
Description
Petit programme pour écouter l'entrée de la carte son et l'enregistrer sur le disque. Utilise les API WaveIn permettant de faire un traitement du signal avant d'écrire sur le disque dur. Code optimisé aussi bien pour l'IDE que la compilation. Le programme fonctionne de manière très fluide, avec tous les traitements activés, sur une machine d'environ 1GHz. En version compilé on peut le faire fonctionner sur des vieux systèmes. Le premier traitement réalisé est un filtrage passe-haut utilisant le principe du filtrage numérique à réponse impulsionnelle infinie (ceux qui veulent comprendre, cherchez sur google!). Il permet de virer le défaut des cartes sons bon marchés qui décalent le zéro, ce qui amène un bruit parasite dans les très basses fréquences. Le second traitement est un préamplificateur, au cas où le signal soit trop faible malgré que vous ayez configuré l'entrée de la carte son au maximum. Le troisième est l'analyse spectrale du signal (via filtrage de la fenêtre temporel -apodisation-, puis transformée de Fourier rapide). En outre l'interface réalise le spectrogramme sur quelques secondes. C'est ce qui consomme le plus le CPU - j'utilise les méthode VB et le GDI standard, c'est pas tip top rapide. Enfin, un VU-mètre indique le gain pic du signal, et un indicateur s'active si jamais le signal est trop fort (donc tronqué par la carte son). L'enregistrement sur disque dur se fait par fragment de fichier WAV de 10 minutes (paramètrable) : l'intérêt et de faire des sessions d'enregistrement de plusieurs dizaines d'heures avec des fichiers qui peuvent être déplacé / comprimé au fur et à mesure.
Source
- 'Form1.frm : démo, interface, spectrogramme (voir dans le Timer)
- 'audiofft.bas : transformation de Fourier rapide, par Murphy McCauley
- ' (version "raccourci" sur 1024 points, très performante)
- 'WaveInBIO.bas : acquisition et traitement du signal.
- '
- 'Commencez par lire les commentaires de la checkbox nommée "Ecouter"
- 'L'interface est mise à jour dans le sub Timer1_Timer
-
- '
- '
- 'Comment faire un spectrogramme a partir des résultats de la transformée de Fourier ?
- 'VU_FFTr() contient le spectre courant (en dB)
- 'ColoTable() est la palette de couleur à utiliser
- 'pWidth est la largeur de la PictureBox en pixel
- 'pHeight est la hauteur de la PictureBox en pixel
- 'toute l'astuce consiste à faire un BitBlt décalé d'un pixel !
-
- PictureBox.AutoRedraw = True
- BitBlt PictureBox.hDC, 0, 1, pWidth, pHeight, PictureBox.hDC, 0, 0, vbSrcCopy
- For i = 0 To 512
- c = VU_FFTr(i) * 6.2
- PictureBox.PSet (i, 0), ColoTable(c)
- Next i
- PictureBox.AutoRedraw = False
-
- 'le glissement se fait sur l'axe Y, mais on peut le faire sur l'axe X
'Form1.frm : démo, interface, spectrogramme (voir dans le Timer)
'audiofft.bas : transformation de Fourier rapide, par Murphy McCauley
' (version "raccourci" sur 1024 points, très performante)
'WaveInBIO.bas : acquisition et traitement du signal.
'
'Commencez par lire les commentaires de la checkbox nommée "Ecouter"
'L'interface est mise à jour dans le sub Timer1_Timer
'
'
'Comment faire un spectrogramme a partir des résultats de la transformée de Fourier ?
'VU_FFTr() contient le spectre courant (en dB)
'ColoTable() est la palette de couleur à utiliser
'pWidth est la largeur de la PictureBox en pixel
'pHeight est la hauteur de la PictureBox en pixel
'toute l'astuce consiste à faire un BitBlt décalé d'un pixel !
PictureBox.AutoRedraw = True
BitBlt PictureBox.hDC, 0, 1, pWidth, pHeight, PictureBox.hDC, 0, 0, vbSrcCopy
For i = 0 To 512
c = VU_FFTr(i) * 6.2
PictureBox.PSet (i, 0), ColoTable(c)
Next i
PictureBox.AutoRedraw = False
'le glissement se fait sur l'axe Y, mais on peut le faire sur l'axe X
Conclusion
En modifiant les paramètres globaux dans le module WaveIn, vous pouvez changer le type de filtre, la durée des fragments échantillonnés, etc... Pour adapter le programme à votre carte son.
Le programme se veux pédagogique au possible. Ceux qui étudient le traitement du signal, vous avez là une bonne base pour tester des fonctions de filtrage et visionner le résultat :)
nota : l'analyse spectral se fait sur 512 points, mais pour que l'interface ne soit pas trop grande, l'affichage est sur 330 pixel environ. En étirant les picturebox vous gagnerez en résolution.
Une seconde démo est disponible dans le Zip, exploitant les 512 points du spectre et affiche séparément les canaux gauche et droite. Cette version épuré est plus simple à comprendre.
Historique
- 01 décembre 2007 00:41:21 :
- - Correction d'un petit bug entrainant un overflow. - Seconde démo rajouté au ZIP.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
LIST GENERICS 2LIST GENERICS 2 par JLuc01
Cliquez pour lire la suite par JLuc01
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|