SoundOut et SoundIn impossible avec XP - VB/VBA/VBS - Programmation
Marsh Posté le 23-06-2005 à 22:31:55
Ca fait plusieurs forums sur lesquels je pose mon problème de soundout et soundin....
Mais ça n'a pas l'air d'être utilisé par beaucoup de programmeur...
Dire que ça marchait avec win 98 !
Pourquoi pas avec XP ???
Marsh Posté le 24-06-2005 à 00:39:45
Non, il envoie directement à la carte son.
Marsh Posté le 24-06-2005 à 08:33:10
ah dommage. j'ai vu qques trucs sur le port série, pas sur la carte son.
Marsh Posté le 24-06-2005 à 12:16:55
Je bricole aussi sur le port parallèle, ( mieux que le port série à mon avis ), mais pas pour envoyer des sons.
Ce que je voudrais, en fait c'est fabriquer un générateur basse fréquence ( GBF ) comme on dit en électronique. Et pouvoir envoyer les signaux de ce pseudo GBF sur la carte son.
Sinon, pour le moment, je vais essayer d'envoyer des .wav en mettant un objet OLE ( son Wave ) dans VB. Je n'ai jamais fait ça, si quelqu'un a des conseils...
Et je vais auparavant enregistrer moi même les .wav ( des sons purs sinusoidaux ) avec un vrai GBF et un micro. C'est pas terrible, mais pour le moment, je ne vois que cette solution.
A +
Marsh Posté le 23-06-2005 à 18:30:49
Bonjour,
Avec Windows 98, j'utilisais port.dll et je pouvais envoyer des sons "calculés" dans la carte son grâce à SoundOut, SoundIn, SoundIs....
Avec XP, rien ne marche.
Quelle est la solution ?
Exemple de code qui fonctionne avec Win 98 :
Const Cadence = 22050
Const Pi = 3.1415
Private Sub Command1_Click()
Amp = 50
For t = 0 To Cadence - 1
p = Chr(Round(127 + Amp * Sin(2 * Pi * 100 * t / Cadence)))
SOUNDOUT p, Cadence
Next t
End Sub
Sans oublier la dll dans windows\system ( port.dll ) et le module :
Declare Sub SOUNDOUT Lib "Port" (ByVal A$, ByVal Gr As Long)
Merci.