Augmenter son [Résolu]

mohamed3000 8 Messages postés jeudi 19 mai 2005Date d'inscription 23 septembre 2009 Dernière intervention - 9 févr. 2008 à 14:43 - Dernière réponse : mohamed3000 8 Messages postés jeudi 19 mai 2005Date d'inscription 23 septembre 2009 Dernière intervention
- 10 févr. 2008 à 00:27
Comment je peux augmenter et diminumer le son windows
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 9 févr. 2008 à 22:50
3
Merci
Bonsoir,

Il te faut également utiliser la fonction waveOutGetVolume...

Voici comment on s'y prend sous VB6 (la transposition en VB.Net n'est qu'une question de typage, s'agissant de l'utilisations directes de fonctions de l'Api de Windows !!!)
Je crois savoir que tu dois utiliser des Integer au lieux de Longs...

' Déclaration des fonctions API
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
' Déclaration des constantes
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_NOWAIT = &H2000
' Variable globale du volume
Public lgVolG As Long
Public lgVolR As Long
Public lgVol As Long
' Variable globale bidon pour les retour d'API
Public lgRep As Long



Private Sub Form_Load()
  ' Récupération du volume courant
  lgRep = waveOutGetVolume(0, lgVol)
  lgVolG = lgVol And &HFFFF&
  lgVolR = ((lgVol And &HFFFF0000) / &H10000) And &HFFFF&
  ' Affichage du volume courant
  lblVolumeG.Caption = Hex$(lgVolG)
  lblVolumeR.Caption = Hex$(lgVolR)
End Sub



Private Sub cmdPlusG_Click()
' Augmente le volume du côté gauche
  lgVolG = lgVolG + &H1000
  If lgVolG > &HFFFF& Then lgVolG = &HFFFF&
  lgRep = waveOutSetVolume(0, CLng("&H" + Hex$(lgVolR) + Hex$(lgVolG)))
  lblVolumeG.Caption = Format$(Hex$(lgVolG))
End Sub



Private Sub cmdMoinsG_Click()
  ' Diminue le volume du côté gauche
  lgVolG = lgVolG - &H1000
  If lgVolG < &H0& Then lgVolG = &H0&
  lgRep = waveOutSetVolume(0, CLng("&H" + Hex$(lgVolR) + Hex$(lgVolG)))
  lblVolumeG.Caption = Hex$(lgVolG)
End Sub



Private Sub cmdPlusR_Click()
  ' Augmente le volume du côté droit
  lgVolR = lgVolR + &H1000
  If lgVolR > &HFFFF& Then lgVolR = &HFFFF&
  lgRep = waveOutSetVolume(0, CLng("&H" + Hex$(lgVolR) + Hex$(lgVolG)))
  lblVolumeR.Caption = Format$(Hex$(lgVolR))
End Sub



Private Sub cmdMoinsR_Click()
  ' Diminue le volume du côté droit
  lgVolR = lgVolR - &H1000
  If lgVolR < &H0& Then lgVolR = &H0&
  lgRep = waveOutSetVolume(0, CLng("&H" + Hex$(lgVolR) + Hex$(lgVolG)))
  lblVolumeR.Caption = Hex$(lgVolR)
End Sub


Tu as là tout ce qu'il te faut (à condition d'analyser, comprendre et de ne pas te contenter d'un bête copier/coller)...

Merci jmfmarques 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 125 internautes ce mois-ci

Commenter la réponse de jmfmarques
kakenette 218 Messages postés dimanche 1 mai 2005Date d'inscription 15 novembre 2009 Dernière intervention - 9 févr. 2008 à 17:07
0
Merci
Je crois que il y à un jolie exemple ici :

http://www.vbfrance.com/codes/REGLER-SON-VOLUME-WINDOWS-PARTIR-SON-APPLI_39185.aspx

Peux être fait des recherches avant de poster? A++

kakenette
Commenter la réponse de kakenette
mohamed3000 8 Messages postés jeudi 19 mai 2005Date d'inscription 23 septembre 2009 Dernière intervention - 9 févr. 2008 à 17:16
0
Merci
[auteur/KAKENETTE/502742.aspx kakenette]



merci

mais je veux le code          VB 2005
Commenter la réponse de mohamed3000
kakenette 218 Messages postés dimanche 1 mai 2005Date d'inscription 15 novembre 2009 Dernière intervention - 9 févr. 2008 à 18:30
0
Merci
Arf désolé j'oublie toujours de regarder les thread du forum, je répond directement depuis les derniers messages postés. Pour me pardonner je vais voire si je peux te trouver ca en VB 2005.

kakenette
Commenter la réponse de kakenette
kakenette 218 Messages postés dimanche 1 mai 2005Date d'inscription 15 novembre 2009 Dernière intervention - 9 févr. 2008 à 18:34
0
Merci
http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=4684&lngWId=10

( This application is used to change the volume and set the mute status of Windows Master Volume Control. )

Est-ce que ceci correspond à tes attentes ?

kakenette
Commenter la réponse de kakenette
mohamed3000 8 Messages postés jeudi 19 mai 2005Date d'inscription 23 septembre 2009 Dernière intervention - 9 févr. 2008 à 20:34
0
Merci
j ais trouver l API

    Private Declare Function waveOutSetVolume Lib "WINMM.DLL" (ByVal wDeviceID As Short, ByVal dwVolume As Integer) As Short

mais ca marche pas

il augmente le son seulment droit

voila mon code

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
                     Call waveOutSetVolume(0, TrackBar1.Value)

    End Sub
Commenter la réponse de mohamed3000
mohamed3000 8 Messages postés jeudi 19 mai 2005Date d'inscription 23 septembre 2009 Dernière intervention - 10 févr. 2008 à 00:27
0
Merci
[auteur/JMFMARQUES/615490.aspx jmfmarques]



merci
Commenter la réponse de mohamed3000

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.