volume wave

Question

salut , j'ai vu que sur ce site , il y a plein de sources pour changer le volume wave, qui marchent , dotres qui marchent moins bien , mais bon....

mùoi je cherche une source ou une api avec laquelle je pourrai changer le volume PRINCIPAL , et non pas le wave ou le midi out autre chose , je voudrais juste le principal, ya til des api pour faire ca ?

ou bien en directx , mais je pense kil dois y avoir une api , c quand meme plus simple.

merci @+

cs_radada · Answer

Il y aurait peut être ça :
Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer

Voici l'exemple que j'ai trouvé sur allapi (http://www.mentalis.rog/apilist/apilist.php)

'Example submitted by Danjel Nyberg
'It needs a textbox (Text1) and two command buttons (Command1, Command2)
Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Command1_Click()
    Dim a, i As Long
    Dim tmp As String
    a = waveOutGetVolume(0, i)
    tmp = "&h" & Right(Hex$(i), 4)
    Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
    Dim a, i As Long
    Dim tmp, vol As String
    vol = Text1
    tmp = Right((Hex$(vol + 65536)), 4)
    vol = CLng("&H" & tmp & tmp)
    a = waveOutSetVolume(0, vol)
End Sub

hackademius · Answer

bah ouai , merci , mais ca monte le volume wave , pas le principal, ca va pas .

merci quand meme radada , si kkun a une reponse , si on peu evidement.

merci.

cs_radada · Answer

Ben sinon tu a Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Sinon, je sais pô, dsl : ((

hackademius · Answer

ah nan , c'est pour changer le nom du volume d'un disque et pas le volume du son , nan tampis , je le metrai , merci quand meme .
comme c'etait une option , je vais pas la metre c tout , merci a toi radada.

cs_radada · Answer

Nan, il doit y avoir moyen non??? Et avec les fonctions directinput??? Y'a rien????

cs_radada · Answer

Va voir là, je crois que c'est ce que tu cherches
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q178/4/56.asp&NoWebContent=1

hackademius · Answer

ouai , c'est ca , c'a fais un gros code mais je vais enlever ce qui sert a rien .

jte remercie beacoups.
c sympa de ta part.

cs_radada · Answer

2r, je suis content si je peux aider les autres car je suis content qu'on me files un coup de main quand j'en ai besoin ; ))

cs_AbriBus · Answer

Hackademius> ce serait cool si tu proposait ton code "épuré" parceque tu n'avais pas été le seul à poser cette question et ma conclusion avait été "impossible de changer autre chose que wave ou mid ou mic ou..."

hackademius · Answer

ok , pas de probleme , je le metrai.

hackademius · Answer

c'est mis , voici le lien :
http://www.vbfrance.com/code.aspx?ID=18290

Bon , j'ai pas fais grand chose , je tient a le dire , j'ai juste simplifié la commande , j'ai regroupé tout le reste dans le module et voila.
donc au load , un Init pour recuperer les valeurs Min et Max et pour changer le volume , c'est

vol = CLng(Text1.Text)
SetVolumeControl hmixer, volCtrl, vol

text1 contient la valeur a metre au volume , chez moi ca va de 0 a 65535
c tout .

merci et @+ et bonne prog a tous

Volume wave

11 réponses

Discussions similaires