Contrôler la membrane des hauts-parleurs

Question

Bonjour,

Vous connaissez pas une fonction ou une api qui permettrait de d&#233;finir
la position de la membrane du haut-parleur, pour pouvoir &#233;mettre un son.

Je pense (par exemple) au programme GoldWave qui permet notamment
d'&#233;crire un son d'apr&#232;s une fonction en fonction du temps que l'on
&#233;crit. Par exemple [position de la membrane]=sin(2*pi*t*440) pour avoir
un "La". Le prog g&#233;n&#232;re le graphique de cette fonction, et quand on
fait "play", il "joue" les points du graphique.



Voil&#224;, j'esp&#232;re &#234;tre plus ou moins clair, merci pour vos id&#233;es...



Julien.

PCPT · Answer

salut,

avec un peu d'imagination, Beep peut te satisfaire.

Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

PCPT [AFCK]

cs_DARKSIDIOUS · Answer

Salut,



Tu ne pourras (ou du moins ca m'&#233;tonnerai fort) contr&#244;ler la membrane
de l'haut-parleur directement (surtout que ca d&#233;pend d'&#233;norm&#233;ment de
contrainte !), mais par contre, tu pourras s&#251;rement trouver des
librairies te permettant de transformer des fonctions sinuso&#239;dales en
son &#233;mis par l'haut-parleur.



Par contre, je n'en conna&#238;s par personnellement, mais ca doit d&#233;j&#224; te mettre sur une piste

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Julien237 · Answer

Beep ne me permet que de faire des sinus (en plus chez moi les param&#232;tres n'ont jamais rien chang&#233; au son...)



Merci darksidious, je vais chercher un peu...

PCPT · Answer

bah comme je disais, il faut un peu d'imagination. mais de toute façon, cette API ne fonctionne que pour le tweeter de la CM, donc çà ne répond pas à ta question... Option Explicit Private Declare Function Beep Lib "kernel32" _ (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long ' ' Private Sub Form_Load() Dim Cpt As Long For Cpt = 850 To 950 Step 5: Call Beep (Cpt, 5): DoEvents: Next Cpt For Cpt = 450 To 470: Call Beep(Cpt, 100): DoEvents: Next Cpt For Cpt = 1000 To 300 Step -20: Call Beep(Cpt, 20): DoEvents: Next Cpt Unload Me End Sub Coloration syntaxique automatique [AFCK]

Julien237 · Answer

Oui merci j'avais compris mais bon...



Par contre je viens d'avoir une autre id&#233;e : la carte son doit sans
doute &#234;tre atteignible par inpout32.dll non ? je suis donc tomb&#233; sur
cette page (waouw un tr&#233;sor !) :

http://users.skynet.be/lpjjl/pgm/fichiers/docasm/ioports.lst

O&#249; on parle notamment du port de la carte son... je cherche un peu pis
je ferai sans doute une petite source, je trouve sa bien utile...



Julien.

Contrôler la membrane des hauts-parleurs

5 réponses

Discussions similaires