IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Jeu de rôle en ligne
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Conseiller à un ami
 Statistiques-TOP 10
 Me contacter
 

   

 
SERVICES

 OFFRES D'EMPLOI
 Appartement à vendre
 

 
Partenaires

 Les Partenaires

 
 

Tester la présence d'une carte SON  



' Déclaration de fonction API
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

Public Function CarteSon() As Boolean
   Dim Temp As Long
   Temp = waveOutGetNumDevs()
   CarteSon = (Temp > 0)
End Sub

ensuite il suffit de faire :

If CarteSon=True then
   msgbox "Il y a une carte son sur votre PC"
Else
   msgbox "Désolé, vous n'aurez pas de son !!!"
EndIf
 



[ Jeux gratuits ] - [ photo ] - [ photo numerique ] - [ programmation ]
[ Foot Phocéen / Olympique de Marseille ] - [ turf / pmu / paris ] - [ payer moins d'impot ] -

Copyright © 2000-2009 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192