begin process at 2010 02 09 23:04:13
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Modules

 > ETAT VOLUME WINDOWS - MODIFIER LE VOLUME, LE MUTE, ET OBTENIR DES INFORMATIONS SUR LA CARTE SON [MODULE DE CLASSE]

ETAT VOLUME WINDOWS - MODIFIER LE VOLUME, LE MUTE, ET OBTENIR DES INFORMATIONS SUR LA CARTE SON [MODULE DE CLASSE]


 Information sur la source

Note :
10 / 10 - par 4 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Modules Classé sous :mixerGetLineControls, mixerSetControlDetails, volume, class, afck Niveau :Débutant Date de création :27/08/2008 Date de mise à jour :27/08/2008 02:02:47 Vu / téléchargé :3 927 / 410

Auteur : PCPT

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
bonjour, ici une classe toute simple permettant de consulter et modifier le MASTER VOLUME

cette source répond à une demande sur le forum :
http://www.vbfrance.com/infomsg_VERIFIER-SON-TOU CHE_1193189.aspx


cette classe n'a rien de transcendant mais c'est apparemment un sujet difficile à retrouver et ici très facile d'emploi.
de plus vous y trouverez dans la description différents liens utiles

espérant que çà puisse vous servir

Source

  • Private Sub Command1_Click()
  • Dim AfVol As New AfCls_MasterVolume
  • With AfVol
  • MsgBox "NOM CARTE = '" & .GetActiveDeviceName & "', Mute coché : " & .Mute
  • AfVol.Percent = 75
  • End With
  • Set AfVol = Nothing
  • End Sub
Private Sub Command1_Click()
    Dim AfVol As New AfCls_MasterVolume
    With AfVol
        MsgBox "NOM CARTE = '" & .GetActiveDeviceName & "', Mute coché : " & .Mute
        AfVol.Percent = 75
    End With
    Set AfVol = Nothing
End Sub

 Conclusion

testée sous Windows 2000 SP4
pas de bug connu, ne sera logiquement pas mise à jour

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

27 août 2008 01:54:29 :
zip
27 août 2008 02:02:47 :
un fichier en trop

 Sources du même auteur

Source avec Zip Source avec une capture PUBLIC SHARED SANS MODULE - VARIABLE SINGLETON : IDENTIFICAT...
Source avec Zip Source avec une capture RÉCUPÉRATION DES IMAGES SYSTÈME DEPUIS LEUR EXTENSION OU LEU...
Source avec Zip Source avec une capture FILE FOLDER LOCKER - BLOQUER (ET DÉBLOQUER) L'ACCÈS À CERTAI...
Source avec Zip Source avec une capture FOLDER HELPER - DOSSIERS SPECIAUX, MANIPULATION DE DOSSIERS,...
Source avec Zip Source avec une capture TEXTBOX AUTOCOMPLETE - ZONE DE TEXTE PRÉREMPLISSABLE LORS DE...

 Sources de la même categorie

GÉNÉRATEUR DE MAIL LOTUS NOTES AVEC MISE EN FORME VIA UNE SY... par 8Tnerolf8
Source avec Zip Source avec une capture VB6 ADDIN - FAITES DISPARAITRE LES MSGBOX D'ERREUR IDE par EBArtSoft
MODULE DE COMMUNICATION ENTRE APPLICATION par PROTEUS91
REGISTRE WINDOWS par Duke49
Source avec Zip Source avec une capture LECTURE / ÉCRITURE SUR LE PORT PARALLÈLE FACILEMENT AVEC INP... par Moritus

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ADDIN HELPER - CRÉEZ VOS PROPRES ADDIN POUR VB6 [MODULES DE ... par PCPT
Source avec Zip Source avec une capture DIR RÉCURSIF MULTI-FILTRES EN UNE SEULE PASSE [MODULE / MODU... par PCPT
Source avec Zip Source avec une capture CONVERTIR DU CODE HTML TEXTE AU FORMAT HTML (EN VB6 ET VBA) ... par PCPT
Source avec Zip Source avec une capture DESSINER SANS PASSER PAR LA PICTUREBOX [MODULE DE CLASSE] par PCPT
Source avec Zip Source avec une capture WMI HELPER - TOUTES LES CLASSES WIN32 [AIDE-MÉMO] par PCPT

Commentaires et avis

Commentaire de MadM@tt le 27/08/2008 02:57:10 10/10

On ne peut plus simple d'utilisation !

Commentaire de Exploreur le 27/08/2008 19:07:08

Salut,

Cool comme petite source...toujours aussi clair que limpide la lisibilité du code...j'aime toujours autant ^^

Mais...pourquoi cet inversement de sens du volume par rapport à celui de windows ?

@+
Exploreur

Commentaire de PCPT le 27/08/2008 19:23:46 administrateur CS

merci pour vos comms

si le slider avait été horizontal, quelle aurait été la question? ^^

le slider fourni en exemple part juste de 0 à 100 (du haut vers le bas)
celui dans le systray n'est pas le même, et part du bas vers le haut...

la valeur est bien la même?

çà me rassure sur le code en tout cas, j'avais peur qu'il ne fonctionne pas sous XP :)

Commentaire de Sechaud le 28/08/2008 14:58:22 10/10

Super ce code, il va me servir dans mon TéléInternet car lorsque j'utilise VLC MédiaPlayer, je n'ai pas de réglage de volume, contrairement au MediaPlayer.
   C'est vrai que moi aussi j'aurais aimé le 0 en bas.
Avec le slider en vertical on a bien le 0 à gauche par contre.
Je n'ai pas trouvé comment inverser si on le met vertical.

Commentaire de Exploreur le 28/08/2008 15:13:23

Sechaud >> pour vlc tu peux essayer avec les touches :

Ctrl et flèche du haut pour monter ou flèvhe du bas pour descendre le son...à essayer ^^

@+
Exploreur

Commentaire de PCPT le 28/08/2008 15:54:44 administrateur CS

pour inverser le sens il suffit juste de faire
lors du scroll :
AfVolume.Percent = 100 - Sld_Volume.Value

lors du tick timer :
Sld_Volume.Value = 100 - iVal


mais le tooltip n'afficherait pas la bonne valeur
de toute façon qui utilise ce slider moche à souhait... ^^

(j'commence à me poser des questions sur les sources que je dépose, le code concerne la class, on s'en fiche un peu du slider vb en exemple, non? :) )

Commentaire de candyraton le 28/08/2008 23:19:11

oui, c pas important;
bonjour,
J'ai cherché ça un jour, j'ai pas trouvé;
Je m'étais satisfait de Shell ("sndvol32 /t")
merci

Commentaire de Sechaud le 29/08/2008 08:47:44

EXPLORER, merci pour la combinaison des touches.
J'ai essayé, mais chez moi sous XP, cela ne marche pas alors que la class de PCPT permet le contrôle du volume sous VLC.
Merci PCPT pour le zéro en bas, ta solution fonctionne, mais comme tu le dis, le Tooltip est incorrect. On gardera le zéro en haut.L'essentiel c'est de pouvoir régler le volume.

Commentaire de Exploreur le 29/08/2008 09:32:17 10/10

Re,

Oui me suis trompé, cela fontionne que quand tu visualises avec Vlc ^^

@+
Exploreur

Commentaire de jmc70 le 01/09/2008 20:50:38 10/10

Bonne source qui me sera utile. Très claire, bien commentée et facilement réutilisable. Merci.

Commentaire de Sechaud le 02/09/2008 09:43:45

En implantant le contrôle de volume dans mon TéléInternet, j'ai constaté qu'en quittant mon programme
le volume général de Windows se mettait à la valeur du slider, ce qui ne me plaisait pas. Je voulais retrouver le volume présent au lancement de mon programme.
J'ai donc ajouté les lignes suivantes:
Au début de mon source --->
Dim Niv As Integer 'Niveau du volume au lancement
Dans le Load  --->
Niv = AfVolume.Percent
Dans le Unload  --->
AfVolume.Percent = Niv
et là on retrouve le réglage initial du volume de Windows à la sortie.
Voilà, si cela peut servir.

Commentaire de Souplyne le 10/09/2008 15:00:01

Voila le genre de petite source sympa, pratique et facilement réutilisable.

Commentaire de Tidauph le 13/10/2008 19:42:05

J'ai essayé de comprendre mais je n'ai pas trouvé la ligne que je cherche (si elle existe). Peut-on récupérer le son de droite et gauche séparément afin d'en faire un vumètre gauche/droite. Je cherche désespérement mais je ne trouve rien..
Merci

Commentaire de m_simohamed le 09/02/2009 15:52:58

peut-on trouver un moyen de le rendre compatible avec windows vista? j'ai beau cherché une source qui marche sous vista mais rien, ca n'existe pas encore a mon avis car windows vista a complétement changer la façon de géré le volume (c'est fait par application mnt, cad qu'on peut mettre media player a 20% de volume et vlc a 90% et ceci en même temps). existe t'il un code pour contrôler le volume sous windows vista (enfin la master volume)?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Mixage simple... [ par holger ] Voila j'aurai simplement souhaiter obtenir la liste des contrôles complet que la dll winmm.dll nous apporte.Car j'ai récuperé un code sur le site de m plantage intempestif VB et directx7 [ par ze_bat ] Hello,j'ai développé un petit jeux en directx7 et VB6. J'ai créer une classe missile: qui instancie une frame et un visual dedans (le missile) au clas réglage de volume mp3 [ par Thugs ] je voudrais augmenter ou diminuer independamment le volume de 2 Mp3 lancer en même temps.Est-ce possible? !!! Controler le volume sonore pendant un enregistrement de wave ???? [ par vince ] Salut a tous les developpeurs VB,Je souhaiterais pouvoir piloter sous VB la table de mixage Windows non pas en lecture mais en enregistrement (dans la Web Class [ par CK ] Salut,j'ai du mal à assimiler la notion des web class et leurs manières d'utilisation.si quelqu'un peut me donner quelques explications je le serai re Chargement dynamique [ par couriousous ] Hello!! QQn sait comment charger un controle (Winsock dans mon cas) sans passer par la commande Load(nom(index)) car cela serait pour l'utiliser sur u Débutant cherhce à manipuler TEMPS ET VOLUME SONORE... [ par Sam ] Y-a-t-il une autre façon (si possible plus précise) que les contrôles Timer pour manipuler le temps?D'autre part, j'utilise des fichiers wave (actuell pb requête SQL [ par Evangelion ] J'ai une base de données Access avec une table T_Volume contenant les champs : N°Contrat, Annee, Mois et Volume.ds un formulaire, j'effectue le requêt


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,452 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales