Réaliser un vue mètre

Bonjour,

J'ai dans l'idée de créer un VU METRE qui réagit au volume sonore de la carte son.
En fait l'idée m'est venue en utilisant les LEDS de Jicehel...

Y a t il une DLL qui pourrai répondre a cette demande ?
J'ai commençais quelques recherches mais je n'ai rien trouvé de précis.

Quelqu'un pourrai m'aider ?
Peut être mon idée n'est pas réalisable en Panoramic. drunken

Avec la DLL de klus tu peux récupérer la valeur du son. Après tu veux faire un vu mettre a aiguille ou à led (ou les 2, on a les formules maintenant Wink

)

Merci Jicehel

Je regarde tout a l'heure dès que je rentre.
Là, je suis encore au boulot.

Bon, j'ai bien regardé la dll de klaus, mais je n'ai rien trouvé...

Dommage !!

A moins que Klaus me donne une piste, sinon tant pis !!

J' aurai bien voulu t' aider mais j' ai du mal à visualiser
ce que tu veux faire... scratch

Bonjour à tous, Smile

Il y a 2 ans à peu près, j'ai réalisé ce petit programme pour tester des timer et les track bar. Si ça peut aider et donner des idées... Cool

Code:: dim i,cx,cy,ar,ad,aa,cva,cvd,caa,cad,cwa,cwd,cvx,cax,cwx
cva=50:cvd=50:caa=50:cad=50:cwa=50:cwd=50:cvx=100:cax=270:cwx=440
label c166c109,curseurV,curseurA,curseurW,volt,ampr,watt
alpha 10:left 10,090:top 10,140:font_name 10,"Consolas":font_size 10,30:font_bold 10:caption 10,"V"
alpha 20:left 20,260:top 20,140:font_name 20,"Consolas":font_size 20,30:font_bold 20:caption 20,"A"
alpha 30:left 30,420:top 30,140:font_name 30,"Consolas":font_size 30,30:font_bold 30:caption 30,"KW"
alpha 40:left 40,085:top 40,185:font_name 40,"Wingdings":font_size 40,30:font_color 40,255,0,0:caption 40,chr$(109):on_click 40,c166c109
alpha 41:left 41,094:top 41,200:font_name 41,"Consolas" :font_size 41,08:font_color 41,255,0,0:caption 41,"OFF":on_click 41,c166c109
alpha 42:left 42,255:top 42,185:font_name 42,"Wingdings":font_size 42,30:font_color 42,255,0,0:caption 42,chr$(109):on_click 42,c166c109
alpha 43:left 43,264:top 43,200:font_name 43,"Consolas" :font_size 43,08:font_color 43,255,0,0:caption 43,"OFF":on_click 43,c166c109
alpha 44:left 44,425:top 44,185:font_name 44,"Wingdings":font_size 44,30:font_color 44,255,0,0:caption 44,chr$(109):on_click 44,c166c109
alpha 45:left 45,434:top 45,200:font_name 45,"Consolas" :font_size 45,08:font_color 45,255,0,0:caption 45,"OFF":on_click 45,c166c109
alpha 50:left 50,080:top 50,025:font_name 50,"Terminal" :font_size 50,12:font_bold 50:font_color 50,0,64,64:color 50,255,192,0:caption 50,"00"
alpha 51:left 51,250:top 51,025:font_name 51,"Terminal" :font_size 51,12:font_bold 51:font_color 51,0,64,64:color 51,255,192,0:caption 51,"00"
alpha 52:left 52,420:top 52,025:font_name 52,"Terminal" :font_size 52,12:font_bold 52:font_color 52,0,64,64:color 52,255,192,0:caption 52,"00"
track_bar 146:left 146,025:top 146,225:on_change 146,curseurV
track_bar 147:left 147,195:top 147,225:on_change 147,curseurA
graph()
timer 97:timer_interval 97,030:timer_off 97:on_timer 97,volt
timer 98:timer_interval 98,010:timer_off 98:on_timer 98,ampr
timer 99:timer_interval 99,050:timer_off 99:on_timer 99,watt
end

c166c109:
select number_click
case 40:if caption$(41)="OFF" then font_color 40,0,155,0:font_color 41,0,130,0:caption 41,"ON":timer_on 97:else:font_color 40,255,0,0:font_color 41,255,0,0:caption 41,"OFF":timer_off 97
case 41:if caption$(41)="OFF" then font_color 40,0,155,0:font_color 41,0,130,0:caption 41,"ON":timer_on 97:else:font_color 40,255,0,0:font_color 41,255,0,0:caption 41,"OFF":timer_off 97
case 42:if caption$(43)="OFF" then font_color 42,0,155,0:font_color 43,0,130,0:caption 43,"ON":timer_on 98:else:font_color 42,255,0,0:font_color 43,255,0,0:caption 43,"OFF":timer_off 98
case 43:if caption$(43)="OFF" then font_color 42,0,155,0:font_color 43,0,130,0:caption 43,"ON":timer_on 98:else:font_color 42,255,0,0:font_color 43,255,0,0:caption 43,"OFF":timer_off 98
case 44:if caption$(45)="OFF" then font_color 44,0,155,0:font_color 45,0,130,0:caption 45,"ON":timer_on 99:else:font_color 44,255,0,0:font_color 45,255,0,0:caption 45,"OFF":timer_off 99
case 45:if caption$(45)="OFF" then font_color 44,0,155,0:font_color 45,0,130,0:caption 45,"ON":timer_on 99:else:font_color 44,255,0,0:font_color 45,255,0,0:caption 45,"OFF":timer_off 99
end_select
return

volt:
if cva=cvd then return
2d_pen_color 240,240,240:2d_line cvx,cy,cvx-((ar-2)*sin(cvd/57.29577951)),cy-((ar-2)*cos(cvd/57.29577951))
if cva<cvd:cvd=cvd-0.5:else:cvd=cvd+0.5:end_if
2d_pen_color 0,0,255:2d_line cvx,cy,cvx-((ar-2)*sin(cvd/57.29577951)),cy-((ar-2)*cos(cvd/57.29577951)):caption 50,str$((-10*cvd)+500):gosub curseurW
return

ampr:
if caa=cad then return
2d_pen_color 240,240,240:2d_line cax,cy,cax-((ar-2)*sin(cad/57.29577951)),cy-((ar-2)*cos(cad/57.29577951))
if caa<cad:cad=cad-0.5:else:cad=cad+0.5:end_if
2d_pen_color 0,0,255:2d_line cax,cy,cax-((ar-2)*sin(cad/57.29577951)),cy-((ar-2)*cos(cad/57.29577951)):caption 51,str$((-1*cad)+50):gosub curseurW
return

watt:
if cwa=cwd then return
2d_pen_color 240,240,240:2d_line cwx,cy,cwx-((ar-2)*sin(cwd/57.29577951)),cy-((ar-2)*cos(cwd/57.29577951))
if cwa<cwd:cwd=cwd-1:else:cwd=cwd+1:end_if
2d_pen_color 0,0,255:2d_line cwx,cy,cwx-((ar-2)*sin(cwd/57.29577951)),cy-((ar-2)*cos(cwd/57.29577951)):caption 52,str$((-1*cwd)+50)
return

curseurV:
cva=position(146):cva=(-10*cva)+50:return

curseurA:
caa=position(147):caa=(-10*caa)+50:return

curseurW:
cwa=position(146)*position(147):cwa=cwa/10:cwa=(-10*cwa)+50:return

sub graph()
cx=100:cy=150:ar=100:ad=-45:aa=45
for cx=100 to 440 step 170
for i=ad to aa step 0.5
2d_pen_color 0,0,255:2d_point cx-(ar*sin(i/57.29577951)),cy-(ar*cos(i/57.29577951))
if frac(i/5)=0 then 2d_pen_color 255,0,0:2d_line cx-(ar*sin(i/57.29577951)),cy-(ar*cos(i/57.29577951)),cx-((ar+10)*sin(i/57.29577951)),cy-((ar+10)*cos(i/57.29577951))
next i
2d_line cx,cy,cx-((ar-2)*sin(50/57.29577951)),cy-((ar-2)*cos(50/57.29577951))
next cx
end_sub

Ça ressemble pas vraiment à un vu-mètre, mais bon ça donne une idée...
A+ Wink

@Minibug
Pour ce qui est de l'intensité du son pour faire varier l'aiguille du vu-mètre, je ne vois pas comment faire. Je ne sais même pas si Klaus pourrait adapter une dll dans KGF. Mais cela doit être réalisable. Il faut prendre en compte le volume du son, les aigus, les graves, la fréquence. On devrait même pouvoir faire un équalizer de son.
A+

Je cite Klaus sur le post "Controle du son":

Klaus a écrit:: J'ai ajouté une fonction dans KGF.dll:
Code:
res% = dll_call1("SetSpeakerVolume",volume%)

Puis un peu plus loin ...

Klaus a écrit:: C'est fait. SetSpeakerVolume retourne maintenant la valeur qui était de mise avant l'appel de cette fonction. Ainsi, on peut écrire ceci:
Code:

SetSpeakerVolume(45000) : ' mettre le volume à 45000
...
SetSpeakerVolume(SetSpeakerVolume) : ' remettre le volume à sa valeur initiale
en utilisant KGF_SUB.bas. Sinon, on peut bien sûr faire l'appel par DLL_CALL1, mémoriser la valeur retournée par le premier appel et utiliser cette valeur mémorisée au second appel.

Fichiers modifiés: KGF.dll, KGF_SUB.bas et demo_KGF_SUB.bas.

Par contre ça ne donne pas l'intensité u son actuellement joué qui serait le but du vumetre, mais ça en effet pour le moment, je ne pense pas qu'il y ait de dll faite pour le faire. Par contre en cherchant bien, ça doit exister dans les DLL Windows. Je vais jeter un oeil

Il semblerait qu'une dll de Windows permette de contrôler plusieurs paramètres du son et peut-être de créer des fichiers wave. Mais je ne suis pas sûr.
"winmm.dll" avec la liste de ses fonctions:

Spoiler:

J'ai trouvé aussi ces liens:
http://www.vbexplorer.com/VBExplorer/library/winmm.htm
http://xpdll.nirsoft.net/winmm_dll.html
https://winmm.codeplex.com/SourceControl/latest#WinMM.Net/WinMM.Net/PlaySound.cs

Mais je suis incapable de comprendre l'utilisation des fonctions.
Klaus, si tu pouvais donner ton avis sur la question... Merci
A+ Wink

Oui, je crois bien que là, l'intervention de Klaus est requise ...

Je ne vois pas comment y arriver à l'aide des liens que tu as donné, Bignono. Ce sont bien des fonctions gérant le système de son, mais je ne vois pas comment faire un VU mètre avec ça.

Et en fait, tu veux un VU mètre (juste une aiguille analogique) ou un equalizer graphique ?

Bonjour Klaus, Smile

Ce n'est pas moi qui veux faire un vu mètre, mais Minibug. Suite aux leds de Jicehel, je pense qu'il veut faire un vu mètre avec des leds qui réagit au volume de sortie du son sur les haut-parleurs. Je trouve son idée intéressante et comme j'ai remarqué toutes les fonctions de cette dll de Windows (winmm.dll), je me suis dit que l'on pouvait peut-être en tirer parti pour plein d'autres choses (comme par exemple réaliser un equaliser avec des track_bar ou des scroll_bar pour régler le niveau des différentes fréquences de sortie du son). Mais je ne sais pas si cela est possible de le faire, c'est pourquoi je te posais la question de savoir ce que peuvent réaliser toutes les fonctions de cette dll et voir si on peut les utiliser dans panoramic!
Voilà, A+ Wink

ou si tu avais un moyen de le faire en ajoutant une fonction qui retourne n'on pas le volume maximum du son que tu retourne déjà mais la puisance mais la volume d'un son joué ou reçu en entrée ? L'idée est bonne mais je ne crois pas que l'on puisse le faire actuellement sans ton aide.

Bonjour a tous !!

@Bignono : tu as bien compris ma démarche et bravo pour cette réalisation que tu as présenté.
Ces vu mètre sont très sympa.

Concernant la réalisation de ce projet, je souhaite effectivement créer un vu mètre qui pourrai ressembler visiuellement au programme ci_dessus de Bignono.

Le but étant d'avoir l'aiguille ou une rampe de leds qui s'allume au rythme de la musique ou du son.
IL s'agit de décrypter le signal sonore pour identifier son spectre.

D'après mes premières recherches : 2 solutions existent.
Soit de trouvé la dll avec laquelle on obtient cette valeur dans windows mais cela ne semble pas si simple.
ou bien réussir a décodé le signal sonore dans un fichier wave ou mp3 et ce servir de ces résultats pour les convertir en valeur.

La dll dans parle bignono (winmm.dll) est surement une piste. le problème c'est que l'on ne connait pas l'usage.

J'ai repéré hier plusieurs infos sur des sites traitant de ce sujet hier, mais j'était au boulot.
Je vais tenté de vous mettre plus d'infos...

Moi, j'ai trouvé des dll avec des vu mettres (codé en vb), mais bon ce n'est pas du tout ce que l'on veut puisque ce sont les objets déjà faits que lon peut réutiliser

Je viens de mettre sur mon WEBDAV un dossier intitulé : -- VU METRE VB --
C'est le premier dossier tout en haut.

Il s'agit d'un programme en Visual Basic que je viens de trouver sur internet.

En décortiquant rapidement on voit qu'il utilise la dll winmm.dll

Pour ceux qui métrisent ce langage, peut etre pourrez vous comprendre comment utiliser cette dll
et ensuite adapter a notre panoramic.

Merci a tous pour l’intérêt que vous portez à ma demande.

PLus j'essaie de comprendre comment fonctionne winmm.dll, et plus je me perds.

suite a la publication des outils dans cette rubrique : https://panoramic.1fr1.net/t4191-recuperer-des-infos-dans-les-dlls

quelqu'un a t il une piste ?

Je viens de trouver ceci :

http://www.developpez.net/forums/d1444938/environnements-developpement/windev/encapsulation-l-api-bass-dll-audio/

En utilisant la dll bass.dll

Je pense que je suis prêt du but...

Tu vas utiliser en l'adptant:
VU := BASS_ChannelGetLevel(hChannel(0));

pour récupérer le volume ?

Je cherche... mais pour l'instant sans succès. drunken

j'ai tenté cela :

Code:: dim res% , channel%

DLL_ON "C:\Users\Laurent\Downloads\bass.dll"

WHILE SCANCODE<>27
   res%=DLL_CALL1("BASS_ChannelGetLevel",channel%)
   CAPTION 0,"CANAL : "+STR$(channel%)+" :"+STR$(res%)
   PAUSE 50
END_WHILE

TERMINATE
END

Pas d'erreur dans l’exécution du code mais retour de res%=-1 !!!

En ayant bien sur pris soin de mettre de la musique en lecture et a niveau assez fort.

Klaus, s'il te plais, si tu passes par ici pourrais tu voir mon problème...

Je pense que toi seul peux trouver une solution a mon problème.

Voici de nouveau lien pour utiliser la dll BASS.DLL

http://www.un4seen.com/doc/#bass/BASS_Init.html

http://www.developpez.net/forums/d1444938/environnements-developpement/windev/encapsulation-l-api-bass-dll-audio/

Merci d'avance pour ton aide. Wink

Voila ou j'en suis :

Code:: dim res% , channel% , hnd%

DLL_ON "D:\BASIC\VU METRE\bass.dll"

' la ligne ci_dessous doit correspondre au handle du lecteur mp3 que tu utilise
' Cela fonctionne chez moi
hnd%=HANDLE_FORM("02 - Love Will Prevail.mp3")

' on initialise. ca aussi je pense que ca fonctionne.
' en tout cas pas d'erreur !
res%=DLL_CALL5("BASS_Init" , (-1) , 44100 , 0 , hnd% , 0)

WHILE SCANCODE<>27 : ' touche échappe pour quitter

   ' c'est la ou ca ne va pas !!!!
   ' La valeur de res% est -1
   res%=DLL_CALL1("BASS_ChannelGetLevel",hnd%)
   MESSAGE res%

   res%=DLL_CALL0("BASS_ErrorGetCode")
   MESSAGE "ERREUR : "+STR$(res%)
' et là on a une erreur 5
   ' si tu va sur ce lien : http://www.un4seen.com/doc/#bass/BASS_ChannelGetData.html
   ' tu trouvera une liste des erreurs
   ' l'erreur 5, correspond a : BASS_ERROR_HANDLE
   ' J'ai bien compris que ce n'ai pas le handle du lecteur que je dois rentrer
   ' Mais quelque chose comme HCHANNEL, HMUSIC, HSTREAM, or HRECORD.
   ' et là je ne comprends pas....

   PAUSE 50
END_WHILE

TERMINATE
END

Je pense que tout est dit dans le programme

Merci a tous ceux qui tenterons de trouver une solution.

D'autant plus que cette DLL a plus d'un tour dans son sac, elle peux aussi gérer l'encodage, la gestion d'un equaliseur, etc...

bonjour à tous,

@minibug
tu devrais mettre sur ton webDAV un dossier qui contient tes échantillons de code en panoramic, le mp3, et la dll afin que tout le monde puisse tester avec la même version que toi.

Oui bonne idée.

Voila qui est fait ! Very Happy

Pour ceux qui sont intérressés par ma recherche, je vous invite a étudier cela :

http://www.un4seen.com/doc/#bass/BASS_Init.html

http://www.developpez.net/forums/d1444938/environnements-developpement/windev/encapsulation-l-api-bass-dll-audio/

Voici un lien sur le forum Darkbasic.
Download l'exemple(bouton download à côté du smiley rouge),décompresse le, et execute l'exe. C'est ça que tu cherche à faire?

http://forum.thegamecreators.com/?m=forum_view&t=202786&b=1

» Dessin de VU-metre analogique
» Caractères à obtenir à partir du clavier
» Comment réaliser un écran radar