PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Comment régler le volume de windows automatiquement

https://www.purebasic.fr/french/viewtopic.php?t=15283

Page 2 sur 2

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 09/juil./2015 9:48
par Mesa
Je dois rectifier une affirmation fausse de spock qui comme presque toujours a, à la fois tord et raison.
G-Rom a raison, le mieux c'est de faire ça en Hard !
par contre pour la pub, pas d'interet , car il compress le son , ils ne montent pas le volume
Si les pubs nous hurlent dans les oreilles, ce n'est pas parce que le diffuseur augmente le volume (les décibels n'augmentent pas) encore moins parce qu'il y aurait une quelconque compression (que vient faire la compression la dedans !) mais parce ce que ces satanés ingénieurs du son connaissent le fonctionnement de l'oreille humaine qui n'est pas linéaire mais logarithmique. L'oreille humaine perçoit mieux les fréquences de la voix qui se situent autour de 1 KHz. Les pubs sont donc fabriquées pour que leur spectre sonore se situe au maximum autour de cette fréquence. Et donc on les perçoit mieux et donc elle nous "cassent" les oreilles.

La prochaine fois que vous écouterez une pub, essayez d'identifier les graves et les aiguës, il n'y en a quasiment pas. Par contre, les musiques, les bruits comme les coup de feu, les claquement de portes, et bien sûr les voix tournent tous autour des 1000 Hz.
Si les pubs ne nous semblent pas monotones, c'est que les ingés-son sont très forts !

Pour plus d'info lire ici
https://fr.wikipedia.org/wiki/Psychoacoustique

par exemple ce passage:
Les modèles psychoacoustiques ont abouti à la construction de plusieurs modèles raffinés de la sonie, à finalité principalement environnementale. Si les tribunaux, dans la plupart des pays, utilisent principalement la mesure pondérée de la pression acoustique en dB (A) (décibel pondération A), et si depuis 2011 la télévision a mis en place une mesure simplifiée de son niveau sonore25, Zwicker (de), puis Stevens, ont élaboré des méthodes visant à s'approcher beaucoup plus de la perception auditive, au prix d'une analyse plus précise et d'un calcul plus compliqué26.

M.

Re: Comment régler le volume de windows automatiquement

Publié : mer. 06/janv./2016 13:57
par nico
Je cherchais comment changer le volume général pour Sapi et c'était sur le site, merci Spock. :roll: :)

@Micoute, est ce que ce n'est pas la fonction Loundness (égalisation) que tu cherches a mettre en oeuvre?

Re: Comment régler le volume de windows automatiquement

Publié : mer. 06/janv./2016 18:49
par nico
Oui et je vais rajouter les events dessus pour avoir les notications de changement de volume par l'utilisateur.

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 2:17
par Shadow
Bonsoir,

Se que veux Micoute je pense, est de faire en sorte que le programme ajuste automatiquement
en temps réel le volume globale de windows sur une vidéo ou une musique, un son etc.

Je parle pas sur la vidéo ou une musique ou un son directement...

Certaine vidéo, film, son, musique ne sont pas linéaire dans le volume du son.
Par exemple dans certain film, les dialogue son bas et la musique forte en comparaison.

Le programme surveille le niveau sonore.

Le programme dois alors augmenter le volume générale quand c'est les dialogues (Pour l'exemple) (Quand le son est au plus bas)
et diminuer celui-ci quand c'est la musique ou des effet spéciaux ou le niveau sonore est trop élevé.

Par exemple ont dis au programme la chose suivante:

Si le son est trop fort, par exemple au dessus de 50 décibel (Pour l’exemple)
Alors le programme baisse le son jusqu’à être dans une fourchette, ici donc ce serra env entre 45 et 50.

Mais si le son est trop bas, par exemple au dessous de 45 décibel (Pour l’exemple)
Alors le programme augmente le son jusqu’à être dans une fourchette, ici donc ce serra env entre 45 et 50.

Niveler le son en temps réel.
Je sais pas si je suis clair mais en gros c'est ça.

Ya aussi plusieurs barre sur le volume du son de windows.
Une barre grise et verte.

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 9:44
par Micoute
Oui, c'est bien résumé, c'est le principe de la contre réaction.

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 11:04
par Torp
Hello,

VLC est capable de faire cela : http://www.pcastuces.com/pratique/astuces/3802.htm

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 11:19
par celtic88
ta demande est faisable avec la librairie "Bass.dll" et "basswasapi.dll" tu l trouve
ici avec les exemples
http://www.un4seen.com/
la dll "basswasapi.dll" permet d' obtenir le son des baffes et L'analyse du son Elle se fait par "Bass.dll" :)

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 11:21
par celtic88
Bonne chance.

Re: Comment régler le volume de windows automatiquement

Publié : jeu. 07/janv./2016 19:38
par nico
Je ne pense pas que ça suffise, l'interface que tu as besoin est IAudioMeterInformation, voir ici sur le site de Microsoft, il y a un exemple d'utilisation:
https://msdn.microsoft.com/en-us/librar ... s.85).aspx

Re: Comment régler le volume de windows automatiquement

Publié : ven. 08/janv./2016 3:52
par celtic88
Oki Essayez ce code :D

Code : Tout sélectionner

;////////////////////////////////////
;          Author Celtic88(c)
;///////////////////////////////////

IncludeFile "bass.pbi"
IncludeFile "basswasapi.pbi"

Debug Hex(BASS_WASAPI_GetVersion())

Procedure Get_Device_SPEAKERS()
  Protected info.BASS_WASAPI_DEVICEINFO ,DeviceiD=-1
  For ok=0 To 99
    If Not BASS_WASAPI_GetDeviceInfo(ok,@info) : Break : EndIf
    If info\flags & #BASS_DEVICE_ENABLED And info\flags &  #BASS_DEVICE_LOOPBACK And info\type &  #BASS_WASAPI_TYPE_SPEAKERS
      Debug PeekS(info\name,-1,#PB_Ascii)
      DeviceiD=ok
      Break
    EndIf
  Next
  ProcedureReturn DeviceiD
EndProcedure
Procedure LoWord(value)
  ProcedureReturn value & $FFFF
EndProcedure
Procedure HiWord(value)
  ProcedureReturn value >> 16 & $FFFF
EndProcedure
Procedure _CallBack_WASAPIPROC(*buffer, length.l, user.i)
  ProcedureReturn length
EndProcedure

DeviceiD=Get_Device_SPEAKERS()
If DeviceiD = -1
  Debug "Error Get_Device_SPEAKERS"
  End
EndIf

BASS_SetConfig(#BASS_CONFIG_UPDATETHREADS, 0)
If BASS_Init(0, 44100, #BASS_DEVICE_DEFAULT, 0,0)
  If BASS_WASAPI_Init(DeviceiD,0,0,#BASS_WASAPI_BUFFER,1.0,0.5,@_CallBack_WASAPIPROC(),1006)
    If BASS_WASAPI_Start()
      
      Repeat
        GetLevel=BASS_WASAPI_GetLevel()
        left_channel = LoWord(GetLevel)*100/32768 
        Right_channel = HiWord(GetLevel)*100/32768 
        
;         If left_channel Or Right_channel
;           Debug "left channel Level" + Str(left_channel)
;           Debug "Right channel Level" + Str(Right_channel)
;         EndIf
        
        If left_channel > 10 Or Right_channel > 10
          BASS_WASAPI_SetVolume(#BASS_WASAPI_CURVE_WINDOWS,0.10)
        ElseIf  left_channel < 5 And Right_channel < 5
          BASS_WASAPI_SetVolume(#BASS_WASAPI_CURVE_WINDOWS,0.05)
        EndIf
        Delay(100)
      ForEver
      BASS_WASAPI_Stop(1)
    EndIf
    BASS_WASAPI_Free()
  EndIf
  BASS_Free()
EndIf
Debug "Error "+Str(BASS_ErrorGetCode())
les dll avec les pbi télécharger ici
http://www.mediafire.com/download/mqlv2 ... i_bass.rar

Re: Comment régler le volume de windows automatiquement

Publié : ven. 08/janv./2016 13:31
par Shadow
Merci celtic88 :)
Mais moi rien ne se passe :(

Le programme se lance ok mais rien ne se passe, j'ai juste ça qui s'affiche:
2040102
VX248-C (NVIDIA High Definition Audio)

Re: Comment régler le volume de windows automatiquement

Publié : ven. 08/janv./2016 13:53
par celtic88
Shadow a écrit :Merci celtic88 :)
Mais moi rien ne se passe :(

Le programme se lance ok mais rien ne se passe, j'ai juste ça qui s'affiche:
2040102
VX248-C (NVIDIA High Definition Audio)
ok essai avec ce code et dit moi l erreur qui te Reçoit

Code : Tout sélectionner

;////////////////////////////////////
;          Author Celtic88(c)
;///////////////////////////////////

IncludeFile "bass.pbi"
IncludeFile "basswasapi.pbi"

Debug Hex(BASS_WASAPI_GetVersion())

Procedure Get_Device_SPEAKERS()
  Protected info.BASS_WASAPI_DEVICEINFO ,DeviceiD=-1
  For ok=0 To 99
    If Not BASS_WASAPI_GetDeviceInfo(ok,@info) 
      Errcode=BASS_ErrorGetCode()
      If Errcode
        Debug "Error N : 1 Code : "+Str(Errcode)
      EndIf
    Break : EndIf
    If info\flags & #BASS_DEVICE_ENABLED And info\flags &  #BASS_DEVICE_LOOPBACK And info\type &  #BASS_WASAPI_TYPE_SPEAKERS
      Debug PeekS(info\name,-1,#PB_Ascii)
      DeviceiD=ok
      Break
    EndIf
  Next
  ProcedureReturn DeviceiD
EndProcedure
Procedure LoWord(value)
  ProcedureReturn value & $FFFF
EndProcedure
Procedure HiWord(value)
  ProcedureReturn value >> 16 & $FFFF
EndProcedure
Procedure _CallBack_WASAPIPROC(*buffer, length.l, user.i)
  ProcedureReturn length
EndProcedure

DeviceiD=Get_Device_SPEAKERS()
If DeviceiD = -1
  Debug "Error Get_Device_SPEAKERS"
  End
EndIf

errorp=0:Errcode=0
BASS_SetConfig(#BASS_CONFIG_UPDATETHREADS, 0)
If BASS_Init(0, 44100, #BASS_DEVICE_DEFAULT, 0,0)
  If BASS_WASAPI_Init(DeviceiD,0,0,#BASS_WASAPI_BUFFER,1.0,0.5,@_CallBack_WASAPIPROC(),1006)
    If BASS_WASAPI_Start()
      
      Repeat
        GetLevel=BASS_WASAPI_GetLevel()
        If GetLevel = -1
          Errcode=BASS_ErrorGetCode()
          errorp=5
          Break
        EndIf
        left_channel = LoWord(GetLevel)*100/32768 
        Right_channel = HiWord(GetLevel)*100/32768 
        
        If left_channel Or Right_channel
          Debug "left channel Level : " + Str(left_channel)
          Debug "Right channel Level : " + Str(Right_channel)
        EndIf
        
        If left_channel > 10 Or Right_channel > 10
          If Not BASS_WASAPI_SetVolume(#BASS_WASAPI_CURVE_WINDOWS,0.10)
            Errcode=BASS_ErrorGetCode()
            errorp=6
            Break
          EndIf
        ElseIf  left_channel < 5 And Right_channel < 5
          If Not BASS_WASAPI_SetVolume(#BASS_WASAPI_CURVE_WINDOWS,0.05)
            Errcode=BASS_ErrorGetCode()
            errorp=6
            Break
          EndIf
        EndIf
        Delay(100)
      ForEver
      
      BASS_WASAPI_Stop(1)
    Else
      Errcode=BASS_ErrorGetCode()
      errorp=4
    EndIf
    
    BASS_WASAPI_Free()
  Else
    Errcode=BASS_ErrorGetCode()
    errorp=3
  EndIf
  
  BASS_Free()
Else
  Errcode=BASS_ErrorGetCode()
  errorp=2
EndIf

Debug "Error N : "+Str(errorp)+" Code : "+Str(Errcode)

Re: Comment régler le volume de windows automatiquement

Publié : ven. 08/janv./2016 20:09
par Shadow
Je reçois ceci:
2040102
VX248-8 (NVIDIA High Definition Audio)
Error N : 6 Code : 37

Re: Comment régler le volume de windows automatiquement

Publié : mer. 07/août/2019 23:29
par Shadow
Hum, sujet vieux certes mais toujours pas eu se que je voulais hélas :(
J'ai demander à l'auteur mais pas de réponses !

PB peut régler le volume sonore mais ne peut pas renvoyer celui-ci....
Je ne sais pas ou chercher, je n'est rien trouver !

Il n'y à pas de langage ou de programme qui ferais ça ?
Un langage qui peut manipuler le signale sonore ?
Fuseau horaire sur UTC+01:00
Page 2 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru